Microsoft 365 Utilisation du double click dans une cellule

Alain 79 · 26 Mars 2024

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

Alain 79 · 26 Mars 2024

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

TooFatBoy · 26 Mars 2024

Bonjour,

Alain 79 à dit:
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 · 26 Mars 2024

Bonjour @Alain 79 ,

Cette méthode ? :

VB:

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 :

VB:

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 · 26 Mars 2024

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

TooFatBoy · 26 Mars 2024

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

Microsoft 365 Utilisation du double click dans une cellule

Alain 79

XLDnaute Junior

Alain 79

TooFatBoy

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Alain 79

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

Discussions similaires