Double-clic et clic droit avec une liste déroulante Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
R
Renaud Dugas
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 4 août 2011
Version d'Excel : 2007 FR

Message par Renaud Dugas » 2 mars 2016, 21:35

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.
Exemple.xlsm
(134.6 Kio) Téléchargé 40 fois
Avatar du membre
Yvouille
Passionné d'Excel
Passionné d'Excel
Messages : 9'017
Appréciations reçues : 79
Inscrit le : 6 avril 2007
Version d'Excel : 2016

Message par Yvouille » 2 mars 2016, 21:49

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.
Modifié en dernier par Yvouille le 2 mars 2016, 21:50, modifié 1 fois.
Yvouille

Valais de Coeur
Avatar du membre
bouben
Membre impliqué
Membre impliqué
Messages : 1'521
Appréciations reçues : 10
Inscrit le : 25 août 2014
Version d'Excel : 2010

Message par bouben » 2 mars 2016, 21:50

Bonsoir,

Ci-joint une proposition à tester.

Bonne soirée

Bouben
DoubleClic-ClicDroit.xlsm
(139.53 Kio) Téléchargé 110 fois
R
Renaud Dugas
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 4 août 2011
Version d'Excel : 2007 FR

Message par Renaud Dugas » 2 mars 2016, 22:14

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
Avatar du membre
Yvouille
Passionné d'Excel
Passionné d'Excel
Messages : 9'017
Appréciations reçues : 79
Inscrit le : 6 avril 2007
Version d'Excel : 2016

Message par Yvouille » 2 mars 2016, 22:41

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 :?
Yvouille

Valais de Coeur
R
Renaud Dugas
Membre fidèle
Membre fidèle
Messages : 255
Inscrit le : 4 août 2011
Version d'Excel : 2007 FR

Message par Renaud Dugas » 3 mars 2016, 00:28

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message