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:

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
Merci par avance