XL 2021 saisie automatique d'un onglet à un autre

gbinforme à dit:

Bonjour
En vba tu peux utiliser la fonction BeforeRightClick ou SelectionChange

VB:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then ThisWorkbook.Sheets("Feuil2").Range("A1").Value = Target.Value: Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then ThisWorkbook.Sheets("Feuil2").Range("A1").Value = Target.Value
End Sub

Tu adaptes les plages à ton classeur.

Cliquez pour agrandir...