Liste de choix

[Christophe]

Bonjour, Je veux affecter à une plage de cellules, une liste de choix par l'intermédiaire d'une macro.J'enregistre cette macro en faisant la manipulation, mais quand j'exécute cette macro j'obtiens un message d'erreur. Merci.

 

[david]

Si j'essaye en cherchant par exemple à appliquer une liste de choix simple du type oui-non ca donne ça et ca marche, tu sélectionne ta plage et actionne la macro :


With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="oui;non"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


david of lunel

 

[Christophe]

Ca marche effectivement quand j' établit la liste, mais pas quand la propriété Formula1 fait référence à une plage de cellules, c'est à ce moment là que j'ai le message d'erreur.

 

[catherine]

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=toto" '*** toto est le nom de ta plage de cellules
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Cathy