Incompréhension débogage code VBA

Bonjour,
j'ai réalisé un code VBA qui permet d'ajouter un élément sur une liste déroulante, il bug sur les lignes suivantes, je ne comprends pas où figure le problème.
Voici les deux lignes de code:

Code:

---

1 2	.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="='Liste déroulante'!$D$2:$D$30"

---

Bonjour,

Vous dites: "j'ai réalisé un code VBA qui permet d'ajouter un élément sur une liste déroulante", ce qui signifie que la liste existe déjà et le fait de vouloir ajouter un élément revient à dire qu'on la modifie, il est donc nécessaire dans un premier de supprimer l'ancienne liste déroulante avant d'en créer une nouvelle.
Donc ajoutez " .Delete
avant la ligne .Add type....

Ce qui donne

Code:

---

1 2 3 4

With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="='Liste déroulante'!$D$2:$D$30"

---

Cdlt

j'ai ajouté la ligne

Code:

---

.Delete

---

mais il bug toujours

Bonjour

Je te suggère la lecture attentive de cette discussion --->>
https://www.developpez.net/forums/d1...idation-macro/

Merci unparia, mais j'arrive toujours pas à résoudre mon problème.

Bonjour,

si ton nombre d'éléments de ta liste est amener à varier, utilise plutôt un nom dynamique qui s'adaptera à sa longueur. Même plus besoin de vba.
eric

Bonjour eriic,
comment faire pour utiliser un nom dynamique, j'ai pas compris.

Une petite recherche t'aurait amené sur une page comme celle-ci :
Nommer une Plage Dynamique http://www.mdf-xlpages.com/modules/s....php?itemid=64
Ensuite tu utilises ce nom dans ta validation : =ton_nom

bonsoir
la demande n'est pas claire, peux tu expliquer davantage et si nécessaire un capture écran des données de départ et une capture écran du résultat souhaité
et si vraiment nécessaire joindre un fichier exemple sans macro
REMARQUE : Quand tu dépose une demande merci de le suivre jusque la fin et cliquer sur RESOLU en bas si c'est la cas .

Pour ton cas adaptez et essayer avec :

Code:

---

1 2 3 4 5 6 7

Sub Macro3() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=$M$2:$M$5" End With End Sub

---

Pour prendre toute une colonne et comme ça si tu ajoute une nouvelle donnée dans cette colonne sera ajoutée à la liste :

Code:

---

1 2 3 4 5 6 7 8

Sub Macro3() With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=A:A" End With   End Sub

---