Simple clic, clic droit, etc.

[nougitch]

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 :

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]

Re : Simple clic, clic droit, etc.

Bonjour nougitch,

Par double clic : remplace Worksheet_BeforeDoubleClick par Worksheet_BeforeRightClick

@+

 

[Staple1600]

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:

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]

Re : Simple clic, clic droit, etc.

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