Discussion :

[jori78]

Bonjour à tous,

J'ai besoin d'aide SVP pour terminer un fichier relatif à une liste déroulante. Sur le fichier joint, j'ai 7 parcelles recevant des listes déroulantes dans des cellules bien distincts col F : cellules :19,21,23,25,27,31,33 puis 37,39,41,43,45,47,49,51,53; col J : cellules : 19,21,23,25,27,31,33 puis 37,39,41,43,45,47,49,51,53 ; col L : cellules : 19,21,23,25,27,31,33 puis 37,39,41,43,45,47,49,51,53; puis R4, T4, V4, X4, Z4, AB4, AD4, AF4.
Je souhaite que lorsque ces cellules sont actives, s'affiche en G10 et G11 une recherche dans une table (légumes) des infos prisent sur les colonnes 2 et 3 de cette table ou peut être en affichant une box !!

Le test en F23 fonctionne mais je suis un peu bloqué pour la suite !
Merci pour votre aide

Jori78

[lucasgaetan]

Bonjour jori78,

Si j'ai bien compris ton problème, il ne te manquait pas grand chose.
J'ai modifié ton fichier comme suit:
-Création d'une plage nommée "MaSelect", regroupant toute tes listes déroulante (ctrl + F3).
-dans Worksheet_Change j'ai modifié ta condition en si la cellule appartient à la plage "MaSelect"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not Intersect(Target, Range("MaSelect")) Is Nothing Then

-j'ai mis la cellule modifiée en variable de la procédure Eloigner ce qui permet de une recherche de sa valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "=VLOOKUP(" & Chr(34) & Target.Value & Chr(34) & ",legumes,3,false)"

[lucasgaetan]

Tu peux meme ajouter au debut de Sub Eloigner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("F9").Value = Target.Address
    Range("G9").Value = Target.Value

cela permet une meilleur lisibilité.

[jori78]

Tu peux meme ajouter au debut de Sub Eloigner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Range("F9").Value = Target.Address
    Range("G9").Value = Target.Value

cela permet une meilleur lisibilité.

Super je suis content de voir qu'il y a encore des gens réactifs. Merci