Double-clic et clic droit avec une liste déroulante

Bonjour à tous,

Dans le fichier ci-joint, une liste déroulante est insérée en D33 avec cellules fusionnées. J'aurais besoin qu'on aide à concevoir des instructions VBA pour insérer le nom "ARMANI" dans la cellule D33 sur un double-clic et "BELIMO" sur un clic droit. Est-ce que ces deux opérations sont possibles sur une liste déroulante?

Merci par avance pour votre collaboration.

Renaud D.

62exemple.xlsm (134.60 Ko)

Salut Renaud,

En modifiant ton code de la manière suivante, ça passe :

'Copie le texte "ARMANI" dans la cellule "D33"
'''Dim bb As String
'''bb = "ARMANI"
'''If Target.Count = 1 And Not Intersect(Target, Cells(33, 4)) Is Nothing Then Target = bb
If Not Intersect(Target, Cells(33, 4)) Is Nothing Then Target = "ARMANI"

Tu compliques parfois un peu tes codes gratuitement ; pourquoi écrire 3 lignes de code alors qu'une seule suffit ?

Cordialement.

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben

Merci beaucoup bouben d'avoir répondu à ma demande.

Votre code fonctionne très bien.

Cependant, j'ai oublié de vous mentionner que la feuille "MODEL" sera copiée plusieurs fois et servira de modèle pour d'autres feuilles d'entrées de données.

Pourriez-vous, SVP, modifier votre code afin qu'il puisse fonctionner avec d'autres noms de feuilles (différent de "MODEL").

Au plaisir de vous relire,

Salutations,

Renaud

Renaud Dugas a écrit :

Merci beaucoup bouben d'avoir répondu à ma demande.

Décidément, il y a un problème avec mes réponses

Bonjour Yvouille,

Désolé, je n'avais pas vu que vous aviez également répondu à ma demande.

Effectivement, je me complique la vie avec trop de lignes d'instruction inutiles.

Je vais suivre votre conseil et appliquer votre code.

Sincères remerciements

Renaud D.

Rechercher des sujets similaires à "double clic droit liste deroulante"