Microsoft 365 Utilisation du double click dans une cellule

[Alain 79]

Bonjour,
Je n'arrive pas à faire fonctionnais une macro qui semble simple à mettre en oeuvre.
Mon problème, par exemple :
En cellule "J8" j'ai une formule : =SI(S7<>"";"Bonjour";"")
Je souhaiterai qu'en faisant un double click sur la cellule "J8" s'il elle contient "Bonjour"
- le contenu de la cellule "S6" soit reporté dans la cellule "S3"
- et le contenu de la cellule "S7" soit reporté dans la cellule "S4"
Par avance, merci pour votre aide

 

[TooFatBoy]

Bonjour,

Je n'arrive pas à faire fonctionnais une macro qui semble simple à mettre en oeuvre.

Tu devrais nous montrais ladite macro pour qu'on puisse te dire pourquoi elle ne fonctionne pas.

 

[mapomme]

Bonjour @Alain 79 ,

Cette méthode ? :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Address(0, 0) = "J8" And [j8] = "Bonjour" Then [s3] = [s6]: [s4] = [s7]: Cancel = True
End Sub

Ou bien avec la prise en compte de la formule en J8 =SI(S7<>"";"Bonjour";"") qui ne dépend que de la valeur de S7 et pas de J8 :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Address(0, 0) = "J8" And [s7] <> "" Then [s3] = [s6]: [s4] = [s7]: Cancel = True
End Sub

 

[Alain 79]

Merci pour la rapidité à trouver la solution.
ça fonctionne comme je le souhaite.
Bravo

 

[TooFatBoy]

Dommage que tu n'aies pas posté la macro originelle ne fonctionnant pas.