liste déroulante Résolu/Fermé

Question

Bonjour, 

je n'arrive pas à ajouter plusieures cellules où je doits retrouver ma liste, Range n'autorise que 2 cellules et il m'en faut 3 !!!
voilà mon code :
Sub lolo()
With Range("B1").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=a1:a10"
End With
End Sub
merci pour votre aide ;)

Configuration: Windows 7 / Internet Explorer 9.0

pijaku · Answer

Bonjour,

J'ai rajouté des balises code dans ta demande (4e icone au-dessus de la zone de texte).
Merci d'y penser la prochaine fois ;)

Concernant ton souci,  Range n'autorise que 2 cellules et il m'en faut 3  est incompréhensible. Dis nous exactement ce que tu cherches à faire.

pijaku · Answer

Bon...
Et pourtant cela fonctionne :
Sub lolo()
With Range(Cells(1, 2), Cells(3, 2)).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=a1:a10"
End With
End Sub
Par contre, la liste de validation change dans ce cas. Tu obtiens en B1 : A1:A10, en B2 : A2:A10, en B3 : A3:A10.
Je suppose que tu ne veux pas cela.
Donc, pour contourner ce petit problème, il suffit d'intégrer une minuscule boucle à ta macro.
Ce qui nous donne :
Sub lolobis()
Dim i As Byte
For i = 1 To 3
    With Range("B" & i).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=a1:a10"
    End With
Next
End Sub

Liste déroulante

2 réponses

Discussions similaires