Aide sur Worksheet_BeforeDoubleClick

Bonjour à toute la communauté :ccool:

Depuis peu, je suis sollicité à faire des macros pour ma société.
Etant donné le gain de temps que cela apporte, je travaille régulierement sur des macros mais n'ai pas encore eu le temps d'apprendre la logique et technique de programmation VBE.

Cependant, j'ai repris un code d'un forum et souhaite le modeler pour répondre à ma demande, voici ma demande:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_BeforeDoubleClick(ByVal zz As Range, Cancel As Boolean) If zz.Address <> "$B$13" Then Exit Sub If zz.Value = "Bruxelles" Then zz.Value = "Bruxelle " Range("C179") = "Bruxelle " Else: zz.Value = "Bruxelles" Range("C179") = "" Range("B13").Select End If Cancel = True End Sub

---

Je souhaite incrémenter d'autres fonctions IF dans la principal,

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 zz As Range, Cancel As Boolean) If zz.Address <> "$B$13" Then Exit Sub ' remplacer par la selection du double clic (ex je clique sur B15 ou B17) If zz.Value = "Bruxelles" Then zz.Value = "Bruxelle " Range("C179") = "Bruxelle " Else: zz.Value = "Bruxelles" Range("C179") = "" Range("B13").Select ' remplacer par un retour cellule du double clique If zz.Value = "Anvers" Then zz.Value = "Anv " Range("C179") = "Anv " Else: zz.Value = "Anvers" Range("C179") = "" Range("B15").Select ' remplacer par un retour cellule du double clique   If zz.value = "Brugge" Then...   End If Cancel = True End Sub

---

Ce code d'instruction permet de transformer une cellule en une cellule cliquable qui me permet de transférer une partie de l'information sur une autre cellule et ceci afin de construire une description abrégé de mot sur des cellules placées l'une à côté de l'autre.

En vous remerciant, j'ai hâte d'avoir votre avis là-dessus.

A bientôt,

Florin86

Bonjour,
J'avoue ne pas bien comprendre ce que tu veux faire mais voici un bout de code qui te donnera peut-être des idées.
Crée une table contenant en première colonne, le nom complet des villes et en deuxième colonne le nom en abrégé. Nomme cette table par exemple 'Abreviation'
Un double clic sur une cellule de la feuille où le code ci-dessous aura été placé provoquera le remplacement du nom de la ville par son abréviation.
Bien sûr ce remplacement aura lieu si la ville est présente dans la table.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True With Target On Error Resume Next .Value = Application.WorksheetFunction.VLookup(.Value, Range("Abreviation"), 2, False) On Error GoTo 0 End With End Sub

---

Petite question par rapport à ton code. Pourquoi la variable 'ZZ', tu n'aimes pas 'Target' ?

Bonjour,

J'ai essayé votre module, cependant, je n'arrive pas à définir correctement les elements d'une table sur ligne et colonne. (même après tutoriel)

Pouvez-vous m'éclairer svp ? :?

Bonjour,

Citation:

---

J'ai essayé votre module, cependant, je n'arrive pas à définir correctement les elements d'une table sur ligne et colonne. (même après tutoriel)

---

Dans une feuille quelconque (par exemple : "Parametres") placer en A2:B4 (ce qui laisse la place pour mettre un titre en A1).
Brx Bruxelles
Anv Anvers
Lg Liège
Ensuite sélectionner cette plage et aller dans la zone des noms Excel et taper Abreviation sans accent et confirmer par enter (ou return).
Ensuite il suffit de faire un double click comme tu le souhaitais dans une cellule de la feuille où tu as placé la procédure événementielle et qui contiendrait une abréviation pour voir s'inscrire le nom en clair.