Discussion :

[nicolas_151]

Bonjour à tous

Je cherche à créer une liste déroulante des cellules par la méthode validation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 With Range("I13").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1;2;3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
 
    End With

Le problème est : au lieu de m'afficher une liste 1 puis 2 puis 3
J’obtiens une liste avec un élément 1;2;3


Merci de votre aide

[ouskel'n'or]

Si c'est pour avoir les données des lignes 1 à 3, alors tu dois mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$I$1:$I$3"

Tu parles d'autre chose ?

[nicolas_151]

Je voulais entrée directement mes données dans la liste

mettre toto, titi, tata
mais ces données ne sont pas dans a feuille de calcul


Mais pourquoi pas contournée le problème avec les données sur une feuille de calcul.

Merci pour l'idée

Peut t'on prendre la plage de cellule d'une autre feuille ?

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="1,2,3"

XlValidateList
Formula1 obligatoire. Formula2 ignoré. L'argument Formula1 doit contenir soit une liste de valeurs délimitées par des virgules, soit une référence de feuille de calcul à cette liste.

[nicolas_151]

Merci Beaucoup


Désoler du dérangement.
J’avais mal lu l'aide.