Macro qui s'execute sur un clic

bonjour

en cliquant sur une cellule

Il faut utiliser la macro événementielle "selectionchange" en gérant les cellules concernées.

Si tu pouvais nous mettre un exemple sans éléments personnels mais avec la structure des données sur https://www.cjoint.com/ puis nous mettre le lien généré ici ce serait plus facile.

Salut le fil,

deux codes à tester et à coller dans les propriétés de la feuille, clic droit sur l'onglet de feuille/Visualiser le code
le premier se déclenche sur un double clic et le second sur un clic droit au choix

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub

bonjour Mike, shad,

Ou bien si j'ai compris correctement la question, comme ceci :

Private Sub Worksheet_SelectionChange(ByVal sel As Range)
    If Not Intersect(sel, [F4]) Is Nothing Then [F6].ClearContents
End Sub

Re,

comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([F4], [F6])) Is Nothing Then
If ActiveCell.Address(0, 0) = "F4" Then [F6].ClearContents
If ActiveCell.Address(0, 0) = "F6" Then [F4].ClearContents
End If
End Sub