XL 2010 Créer un menu déroulant en VBA

[juberrebi]

Bonjour à tous

Je cherche à créer un menu déroulant en VBA mais je recontre quelques problèmes :

With feuille.Cells(L, num_colonne).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Oui,Non"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
End With

avec feuille la feuille ouverte
L : le numéro de la ligne
num_colonne : numéro de ma colonne.

feuille.Cells(L, num_colonne) semble bien être un Range puisque je parviens à lui appliquer .Value
Mais pourtant lors de l'execution : il m'affiche un message d'erreur au niveau du .Add Type : 1004: définie par l’application ou par l’objet...

Par avance merci et excellent week-end à tous !!

 

[Jacky67]

Bonjour à tous

Je cherche à créer un menu déroulant en VBA mais je recontre quelques problèmes :

Bonjour,
Si feuille est la feuille active, ceci devrait être suffisant

    With ActiveSheet.Cells(L, num_colonne).Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:="Oui,Non"
    End With

 

[juberrebi]

Bonjour Jacky
Je ne vois pas de différence avec ce que j'ai fait ? à l'exception du fait que mon code ne necessite pas que la feuille soit active ?

 

[frangy]

Bonjour,

Pour info, j’ai effectué le test suivant sur un classeur vierge :
- Modification du CodeName pour lui affecter le nom ‘’feuille’’
- Copie du code dans un module standard

Sub Test()
Dim L As Long
Dim num_colonne As Integer
    L = 1
    num_colonne = 1
    With feuille.Cells(L, num_colonne).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Oui,Non"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
    End With
End Sub

Je lance la macro et j’obtiens bien la liste de validation en A1.
Il te reste à voir la différence avec ton classeur.

Cdlt.

 

[Jacky67]

RE..juberrebi
La différence se situe entre "ActiveSheet" et "feuille"
Comme on ne sait pas ce qu'est "feuille"
Si cela ne fonctionne pas (tu ne le dis pas), mets un bout de classeur en ligne avec le code