Vba et Liste de données à sélectionner dans une cellule

[philppe27]

Bonsoir,

Je souhaite que l'utilisateur de ma feuille de calcul sélectionne des données à partir d'une liste dans une cellule.
Pour cela je vais dans données --> validation des données -->Options --> Autoriser Liste. Je sélectionne ma plage de cellule dans une autre feuille et cela fonctionne très bien.
J'utilise l'enregistreur de macro qui me donne le code vba suivant:
Range("E8").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Expediteurs!L7C1:L10C1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Problème lorsque je lance ce code cela ne fonctionne il me met une erreur 1004 au niveau de la ligne .Add Type... je ne comprend pas pourquoi.

Merci pour votre aide,

Cordialement

 

[JCGL]

Re : Vba et Liste de données à sélectionner dans une cellule

Bonjour à tous,

Nomme ta liste par Non / Définir, si tu souhaites créer une liste de Validation avec les Données d'une autre feuille

A+ à tous

 

[philppe27]

Re : Vba et Liste de données à sélectionner dans une cellule

voilà ce que j'ai fait:
Range("A7:A14").Select
ActiveWorkbook.Names.Add Name:="Expediteurs", RefersToR1C1:= _
"=Expediteurs!R7C1:R14C1"
ActiveWorkbook.Names("Expediteurs").Comment = ""
Sheets("BordereauLivraison").Select
Range("E8").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="Expediteurs"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

J'ai également essayé en enlevant les guillemets de Expediteurs sur la ligne Add.Type...
mais à la place des cellules sélectionnées j'ai Expediteur ou NA
Je suis un peu perdu

 

[JCGL]

Re : Vba et Liste de données à sélectionner dans une cellule

Bonjour à tous,

Peux-tu essayer avec :

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="[SIZE=5][B][COLOR=Blue]=[/COLOR][/B][/SIZE]Expediteurs"

A+ à tous

 

[JCGL]

Re : Vba et Liste de données à sélectionner dans une cellule

Bonjour à tous,

Un fichier de création de "Liste" et d'une liste de validation :

Option Explicit

Sub Liste_Valid()
    ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:="=F1!R1C1:R4C1"
    
    Feuil2.Range("E4").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Liste"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

A+ à tous

 

[philppe27]

Re : Vba et Liste de données à sélectionner dans une cellule

Merci, j'aurai pu y penser...la fatigue