Re : Incrémentation
Salut Popi14,
place ces deux codes dans la VBA de la feuille1 par exemple, mais attention cela ne fonctionne que si tu clik ou DbldClik dans la colonne A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> (1) Then Exit Sub
Target.Offset(0, 1) = 1
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> (1) Then Exit Sub
Target.Offset(0, 1) = 2
End Sub
@+
RIco