Modifier cette macro "mettre un croix par double click" par mettre un mot....

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin de modifier une macro.
Pour l'instant cette macro place un croix par double click, dans une zone déclarée.
Je souhaiterais placer un mot (mots listés dans une colonne)...

Voir fichier joint.

Merci pour l'aide que vous voudrez bien vouloir m'accorder.

Bien à vous,
Christian

 

[camarchepas]

Re : Modifier cette macro "mettre un croix par double click" par mettre un mot....

Bonjour Christian,

Dans le module de la feuil en question :
ou voir le fichier attaché

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim MaPlage As Range
Set MaPlage = Application.Intersect(Range("AjoutMot"), Target)
If Not MaPlage Is Nothing Then MaPlage.Value = Target.Offset(0, -4)
End Sub

 

[Christian0258]

Re : Modifier cette macro "mettre un croix par double click" par mettre un mot....

Re le forum, camarchepas,

Merci à toi, camarchepas, pour le boulot c'est parfait.

Bien à toi,
Christian