liste dans cellule excel en VBA

Question

Bonjour,

J'essaye de cr&#233;er une liste sous VBA, j'ai enregistr&#233; une macro quand je fais Donnees/Validation liste , mais le code que je r&#233;cup&#233;re ne marche pas.

 Range("B2").Select
 With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula2:="val;val2;val3"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Je voudrais que dans la case B2, il est les valeurs val, val2, val3 avec une lsite d&#233;roulante, mais ce code ne marche pas , je ne comprends pas pourquoi?
Merci d'avance pour vos r&#233;ponse

jpleroisse · Answer

Change Formula2 en Formula1
jpleroisse

CTAC · Answer

Bonjour.

Sub AjoutListeValidation()
    Dim Val&, Val1&, Val2&    Val 5&: Val1 8&: Val2 = 12&
    Range("B2").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
            Formula1:="" & Val & "," & Val1 & "," & Val2 & ""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Liste dans cellule excel en VBA

2 réponses

Discussions similaires