OVH Cloud OVH Cloud

Code sur boutton

2 réponses
Avatar
Jorge
Ni connaissant rien au visual basic quelqu'un pourrais il me dire le code à
appliquer à un boutton pour incrémenter une cellule de 1 à chaque fois que
l'on clique dessus.

Merci d'avance.

2 réponses

Avatar
Ellimac
Bonjour,

Pour incrémenter A1 :
Range("a1")=Range("a1")+1

Camille
-----Message d'origine-----
Ni connaissant rien au visual basic quelqu'un pourrais il
me dire le code à

appliquer à un boutton pour incrémenter une cellule de 1
à chaque fois que

l'on clique dessus.

Merci d'avance.


.



Avatar
papou
Bonjour Jorge
Sans aucun test préalable (au contenu de la cellule notamment)
Sub Bouton1_QuandClic()
ActiveCell.Value = ActiveCell.Value + 1
End Sub
Cordialement
Pascal

"Jorge" a écrit dans le message de
news:buo1hg$rep$
Ni connaissant rien au visual basic quelqu'un pourrais il me dire le code
à

appliquer à un boutton pour incrémenter une cellule de 1 à chaque fois que
l'on clique dessus.

Merci d'avance.