Discussion :

[robinicol]

Bonjour à tous, j'ai un problème avec une liste de choix que j'ai créée à partir d'un code VBA, je veux pouvoir choisir soit "K=10", soit "K=20". Cette liste est définie pour un ensemble de cellule.
Mon soucis, c'est qu'une fois le code déroulé, la liste qui apparaît au niveau de chaque cellule ne comporte qu'un seul choix qui est "K=10;K=20"

Voici le code que j'ai rentré sous VBA :

Code :

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

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

Quelqu'un peut-il m'aider...?

Merci d'avance

[casefayere]

Bonjour,
si c'est juste pour dire que la valeur de la cellule en colonne K doit être 10 ou 20 :
ce code suffit :

Code :

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

1
2
3
4
5
6
7
8
9
    With selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="10,20" 'une virgule
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With

[robinicol]

Merci pour votre réponse!
En réalité je souhaiterai afficher "K=10(méca)" ou bien "K=20(élec)" et pas simplement les valeurs "10" ou "20"... existe-t-il une solution?

[casefayere]

Re,

Ce code devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Selection.Validation
     .Delete
     .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="""K=10"",""K=20"""
     .IgnoreBlank = True
     .InCellDropdown = True
     .ShowInput = True
     .ShowError = True
End With

et en évitant les "select"

Code :

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

1
2
3
4
5
6
7
8
9
With Range("K7:K3000").Validation
   .Delete
   .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="""K=10"",""K=20"""
   .IgnoreBlank = True
   .InCellDropdown = True
   .ShowInput = True
   .ShowError = True
End With

[robinicol]

Merci beaucoup pour votre aide, cela fonctionne parfaitement !!!