Bonjour à tous,
J'affecte une liste déroulante aux cellules d'une colonne (page 1) avec les données contenues (page 2).
Je souhaite pour une flexibilité de l'application que le taille de ma liste déroulante s'adapte automatiquement au nombre de lignes qui alimentent ma liste déroulante, le tout en ayant une valeur unique (c'est à dire que si toto est inscrit deux fois, il n'apparaît qu'une fois dans ma liste :-)
Ci joint mon code:
Merci par avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 'TypeOfTest array: If ActiveSheet.Name = "PAGE1" Then If ActiveColumn = 5 And ActiveRow < 101 Then 'MsgBox "Column: " & ActiveColumn & ", line: " & ActiveRow With Range("E" & ActiveRow).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=PAGE2!G2:G10" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End If End If
Partager