Imposer une valeur à une liste de validation

Bonjour,

Après pas mal de recherche, je n'ai pas trouvé un moyen pour "imposer" la valeur d'une liste de validation via une macro.
J'utilise le code ci-dessous où j'aimerais utilise la valeur de la cellule active via "data" comme valeur dans une liste de validation sur la page "General Info". le code ne change pas la valeur de la liste de validation.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   Dim data As String   If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then   Application.EnableEvents = False If ActiveCell.Value = "" Then End Else data = ActiveCell.Value Sheets("General Info").Select With Range("D1").Validation .Delete .Add xlValidateList .Value = data End With End If   Application.EnableEvents = True End If End Sub

---

Que puis-je faire?

Merci d'avance!
Arnaud

Bonjour,

Essayez de remplacer le contenu de votre instruction With par :

Code:

---

1 2	.Delete .Add Type:=xlValidateList, Formula1:=data

---

Cdt

Merci Ben

Malheureusement, la liste ne prend toujours pas la valeurs data.
En fait, je cherche à afficher la valeur de la variable data dans la liste de validation car la feuille utilise cette liste pour plusieurs vlookup.

Et comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim data As String If Not Application.Intersect(Target, Me.Range("A2:A100")) Is Nothing Then Application.EnableEvents = False If Target.Value = "" Then Goto EndOfSub data = Target.Value With ThisWorkbook.Sheets("General Info").Range("D1").Validation .Delete .Add Type:=xlValidateList, Formula1:=data End With EndOfSub: Application.EnableEvents = True End If End Sub

---

Qu'obtenez-vous ?

Veuillez notez qu'il s'agit ici de définir une seule valeur acceptable pour la cellule D1 de la feuille "General Info".
Et cette valeur sera égale à la valeur de la cellule sur laquelle vous double-cliquez.

Malheureusement, ça ne marche pas non plus.
Je pense que je vais devoir passer par un combobox plutôt que par la liste de validation...

Citation:

---

Envoyé par Ben_L

Qu'obtenez-vous ?

---

Citation:

---

Envoyé par Arnaud C

Malheureusement, ça ne marche pas non plus.

---

Préciser ce qui fonctionne ou pas, la différence entre le comportement obtenu et celui recherché, les éventuels messages d'erreurs qui interviennent...
Tout cela ne semble pas superflu si votre but est d'obtenir de l'aide.

Le code proposé est fonctionnel sur un fichier test.

Bonjour,

Je viens d'ajouter une feuille excel pour expliquer exactement mon problème.
Le principe est que, en double cliquant sur un des cellules de la colonne A de la page "sheet 3", la macro sélectionne la feuille "General Info" et et place la valeur de la cellule "double cliquée" dans la lise de validation en D1.

J'espère être plus claire?

En tout cas, merci pour votre aide!