XL 2019 bouton compteur

[LEPATOCHE]

Bonsoir a tous

quand je clic sur mon bouton que j'ai déjà fait ! par exemple : une fois que je clic sur le bouton je voudrais que dans une cellule il me marque 1 et si je clic encore sur le même bouton il me marque 2 ect ect . dans mon bouton voila ce qu'il fait exactement je ne peux pas joindre mon fichier car trop volumineux merci
de votre aide !
Sub copier()
'
' copier Macro
'

'
Windows("KENO 800.xlsm:2").Activate
Columns("BA:BB").Select
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Columns("Y:Z").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("KENO 800.xlsm:3").Activate
Range("G17012").Select
End Sub

 

[Wayki]

Bonjour,
Vu qu'on ne sait rien de plus :

Activesheet.Range("A1") = activesheet.Range("A1") + 1

À rajouter, sans doute, dans votre macro, à la fin par exemple.
A +

 

[LEPATOCHE]

ca ne marche pas wayki !

 

[LEPATOCHE]

re bonsoir la combine a Wayki ne marche pas ! quelqu’un d'autre peux t'il m’aider merci d'avance .

 

[Wayki]

ca ne marche pas wayki !

Peut être pouvez-vous nous dire pourquoi ? 🤔
Bug ou résultat inattendu ??

 

[LEPATOCHE]

je reviendrai un autre jour pour mieux m'expliquer bonsoir et encore merci Waiki !