Liste de validation variable

[julien974]

Bonjour,

J'ai ce code et je souhaiterais que la liste de validation ne se cantonne pas qu'à $A$1:$A$9 mais à toutes les valeurs de la colonne A.

Sub Macro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$1:$A$9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Merci de votre aide,

Juli3n974

 

[Cousinhub]

Re : Liste de validation variable

Bonjour,

si j'ai bien compris, essaie comme ceci :

Sub Macro1()
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$1:$A$" & [A65000].End(xlUp).Row
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub