thespeedy20
XLDnaute Occasionnel
Bonjour,
j'ai deux listes déroulantes distinctes, une pour la plage B18:B63 et une pour la plage P18:63....dans la feuille Rec
Dans la plage B18:B63 j'obtiens la liste de colonne P18:63 !!!!
Les valeurs de la liste de la B18:B63 se trouve dans la feuille Profs et celle P18:63 dans la feuille Evenements.
les deux listes se retrouvent dans la feuille Rec
j'ai deux listes déroulantes distinctes, une pour la plage B18:B63 et une pour la plage P18:63....dans la feuille Rec
Dans la plage B18:B63 j'obtiens la liste de colonne P18:63 !!!!
Les valeurs de la liste de la B18:B63 se trouve dans la feuille Profs et celle P18:63 dans la feuille Evenements.
les deux listes se retrouvent dans la feuille Rec
VB:
Dim Lst As Range
Dim Lst2 As Range
Dim Liste As String
With Worksheets("Profs")
Set Lst = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste", "=Profs!" & Lst.Address
With Worksheets("Rec").Range("B18:B63").Validation
.Delete
.Add xlValidateList, , , "=Liste"
.InputTitle = "Sélection"
.InputMessage = "Recherche rapide"
End With
With Worksheets("Evenements")
Set Lst2 = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
End With
ThisWorkbook.Names.Add "Liste", "=Evenements!" & Lst2.Address
With Worksheets("Rec").Range("P18:P63").Validation
.Delete
.Add xlValidateList, , , "=Liste"
.InputTitle = "Sélection"
.InputMessage = "Recherche rapide"
End With