data validation list

[sarrsouraa]

bonjour tout le monde
voici mon pb j'ai besoin de creer avec une macro une liste qui contient des valeurs à partir d'une variable tableau
si quelq un peut m'aider merciiiiiiiiiiiiiiiiiii

 

[kjin]

Re : data validation list

Bonjour,
Quelque peu succinte la description du pb, non ?!
Je ne vois pas de pb du tout
kjin

 

[sarrsouraa]

Re : data validation list

salut kjin
je detaille plus

j'ai une macro je lui passe en parametre la cellule ou je veux mette une data validation list et je passe aussi comme parametre le naming range des valeurs que je veux mettre
voici la macro


Sub creer_liste(cell As Range, palette As name)


cell.Select
With Selection.Validation
.delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=palette

.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


End Sub

ce que je dois faire maintenant c que la liste au lieu qu elle soit alimentee par une liste de valeurs deja defini j ai besoin de lui passer un tableau

 

[kjin]

Re : data validation list

Re,
Y a du mieux, mais..🙄
Alors avec juste ce que tu fournis et un tableau qui renvoie des chiffres de 1 à 5

Sub Macro1()
Dim t(4)
For i = 0 To 4
     t(i) = i + 1
Next
For i = LBound(t) To UBound(t)
    sForm = sForm & t(i) & "[COLOR="Red"],[/COLOR]"
Next
With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:=sForm
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = "Integers"
    .InputMessage = ""
    .ErrorMessage = "la valeur doit être un chiffre doit être compris entre 1 et 5"
    .ShowInput = False
    .ShowError = True
End With

End Sub

Edit : Code réédité à cause des nombreuses erreurs🙄
A+
kjin

 

[sarrsouraa]

Re : data validation list

kjin merci pr ta reponse mais qd j'execute ce code ya rien qui se passe

 

[sarrsouraa]

Re : data validation list

c bon j ai modifie le type de la liste et la ; par , et ca marche merciii kjin