XL 2016 Number auto

[jamesg]

Bonjour, a mon travail j'ai un tableau de commande.
J'aimerais savoir comment faire sous VBA mettre le numéro suivant à la ligne suivante..
Si je clique dans B1 alors dans A1: 1 Etc...
Merci par avance de votre aide

 

[M12]

Bonjour,
Macro à coller dans la feuille concernée. Sur double-clic, le compteur d'incrémente de 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
    Target.Offset(0, -1) = Target.Offset(0, -1) + 1
  End If
End Sub

 

[jamesg]

Bonjour, désolé pour la réponse tardif.
C'est pas trop ce ci que je recherche
merci quand meme