Contenu d'une liste déroulante à partir d'autres listes déroulantes.

blancolie

XLDnaute Impliqué
Bonsoir le forum,

j'aimerais créer une liste déroulante dans la colonne agent (F9) et que son contenu fasse apparaître les éléments de la liste 1 et liste 2 dans cette fameuse liste déroulante.

je vois des tutos liste déroulante en cascade mais ce n'est pas vraiment ce que je recherche.

Merci de votre aide.
 

Pièces jointes

  • exemple1.xlsx
    8.9 KB · Affichages: 25

blancolie

XLDnaute Impliqué
bonsoir le forum,

je reviens sur cette discussion car j'aimerais dans ce fichier ci-joint rajouter autant de ligne dans le tableau liste et qu'elles affichent le contenu des 2 autres tableaux (agent et astreinte) ( tout en conservant les les formats et cellules) qu'il y de ligne dans les tableaux agent et astreinte. bien sur, il faut que ds ces 2 tableaux (agent et astreinte), les lignes soient remplies.

merci pour votre aide.
 

Pièces jointes

  • Classeur3.xlsm
    16 KB · Affichages: 6
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour blancolie, le forum,

Avec 3 tableaux structurés le VBA est en effet bien plus simple, fichier (2) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error Resume Next 'si aucune SpecialCell
[Liste].Clear 'RAZ
[Agent].Copy [Liste].Cells(1)
[Astreinte].Copy [Liste].Cells([Agent].Count + 1)
[Liste].SpecialCells(xlCellTypeBlanks).Delete xlUp 'supprime les cellules vides
Application.EnableEvents = True
End Sub
Notez que la liste de validation en F13 est définie par =INDIRECT("Liste")

A+
 

Pièces jointes

  • Liste(2).xlsm
    19.6 KB · Affichages: 8

blancolie

XLDnaute Impliqué
cool bien pensé les couleurs ? peut on faire pareil dans la liste déroulante ?

Je vois que tu as cré un module et je vois range("E16"), cela tombe sur une cellule vide dans la colonne permanence, Pourquoi ? Pourqui autant de ActiveWorkbook.Save ?
 
Dernière édition:

Discussions similaires