Simple clic, clic droit, etc.

nougitch · 7 Avril 2008

Bonjour,

Il y a quelques temps, une personne du forum m'a aidé à réaliser une petite macro. Lorsque je double-clic sur une cellule, j'en copie la valeur dans une autre.

J'aimerais savoir s'il est possible de faire la même chose mais avec un simple clic, ou encore un clic droit de souris.

Voici le code :

Code:

Private Sub worksheet_beforedoubleclick(ByVal CelluleCible As Range, Annulation As Boolean)
    
    If (CelluleCible.Address = "$H$5") Then
        ThisWorkbook.Sheets("EBTS").Range("A20").Value = ThisWorkbook.Sheets("EBTS").Range("H5").Value
        Range("A1").Select
    End If

End Sub

Merci par avance pour votre aide.

SergiO · 7 Avril 2008

Re : Simple clic, clic droit, etc.

Bonjour nougitch,

Par double clic : remplace Worksheet_BeforeDoubleClick par Worksheet_BeforeRightClick

@+

Staple1600 · 7 Avril 2008

Re : Simple clic, clic droit, etc.

Bonjour

Par une selection de H5

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A20] = IIf(Target.Address(0, 0) = "H5", [H5], [A20])
End Sub

version orthodoxe:
Range("A20").Value = IIf(Target.Address(0, 0) = "H5", Range("H5").Value, Range("A20").Value)

En reprenant ton code:

Code:

Private Sub Worksheet_SelectionChange(ByVal CelluleCible  As Range)
Range("A20").Value = _
IIf(CelluleCibleAddress(0, 0) = "H5", Range("H5").Value, Range("A20").Value)
End Sub

nougitch · 7 Avril 2008

Re : Simple clic, clic droit, etc.

Merci bcp les gars, c'est parfait !!!

Simple clic, clic droit, etc.

nougitch

XLDnaute Occasionnel

SergiO

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

nougitch

XLDnaute Occasionnel

Discussions similaires