Problème avec liste de choix sous VBA‏

Version imprimable

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:

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

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:

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

25/03/2011, 19h39
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?

Re,

Ce code devrait fonctionner :

Code:

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:

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

28/03/2011, 10h07
robinicol

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