Menu déroulant, Choix multiples fixes
Bonjour à tous,
Pour commencer un grand merci a toute cette communauté qui m'a sauvé la vie plusieurs fois !
Bon maintenant le problème...
J'ai une plage de données (20 lignes par exemple), la colonne "A" est vide.
Chaque cellule en colonne "A" doit contenir un menu déroulant.
Le menu déroulant doit contenir 3 choix : "Moi" / "Toi" / "Eux" (exemple, exemple...)
Ces choix sont fixes et n'apparaissent nul part dans le classeur.
Je ne veux pas passer par une listebox, pas non plus par "Data validation" (car les données ne sont pas ds le classeur).
j'avais pensé à ça :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| For i = 1 To Nb_L
Range("A" & i).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="moi", Formula2:="toi"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next i |
Mais mauvaise pioche, le menu déroulant n'affiche que le "Moi" ...
Merci d'avance de votre aide.
