[VBA] Sélection dans une liste déroulante

[jiritsu]

Bonjour,

Il me manque une petite ligne de code pour sélectionner une valeur dans ma liste, pouvez-vous m'aider?

Voici mon code:

ActiveCell.Offset(1, 7).Select
    With Selection.Validation
        .Delete
        .ADD Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$G$1:$I$1"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Le résultat est que lorsque je lance ma macro, la liste déroulante est créé mais elle est initialisé à blanc. Or, je souhaiterai qu'il y ait la valeur en G1. Je me doute qu'il faut ajouter une ligne dans Selection.Validation, mais laquelle ?

Merci de votre aide.

 

[tototiti2008]

Re : [VBA] Sélection dans une liste déroulante

Bonjour,

peut-être :
Selection.value = Range("G1").value

 

[jiritsu]

Re : [VBA] Sélection dans une liste déroulante

Ah bah... Merci

Cela fonctionne parfaitement.