Microsoft 365 Utilisation du double click dans une cellule

TooFatBoy

XLDnaute Barbatruc

• 26 Mars 2024

• #2

Bonjour,

Alain 79 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2024

• #3

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

 

Vote positif 0 Vote négatif

A

Alain 79

XLDnaute Occasionnel

Supporter XLD

• 26 Mars 2024

• #4

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

 

Vote positif 0 Vote négatif

Solution

TooFatBoy

XLDnaute Barbatruc

• 26 Mars 2024

• #5

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

 

Vote positif 0 Vote négatif