Re : Générer une liste déroulante avec une macro à partir d'une source Variant
ben, je ne suis pas sûr que le fichier serve à quelque chose mais pour petre un peu pplus précis, mon problème est que je dois faire une liste déroulante d'enseignes, liste qui peut varier selon les utilisateurs. J'ai identifié cette liste que j'ai donc intégré dans un objet variant que j'ai appelé LISTEENSEIGNES, puis j'ai voulu créé une liste déroulante pour certaines cellules et j'ai tenté le code suivant :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= LISTEENSEIGNES
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Et ça il n'en veut pas
Pour avancer je me suis résolu à inscrire cette liste dans une plage de cellules que j'ai mais dans une feuilles nommée DONNEES. Comme cette plage aura une taille variable fonction du nombre d'enseignes (nbenseigne), je dois la nommer en fonction de ce paramètre.
J'ai donc codé :
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Sheets("DONNEES").Range(Cells(1, 1), Cells(nbenseigne, 1)).Value
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Et ça il n'en veut pas non plus...
Bref, je patauge