incrémenter compteurs sous excel de 1

[yzd2000]

Bonjour,

Sur un document excel, j'ai plusieur compteurs d'objets
a chaque operation, je dois incrémenter un compteur en ajoutant 1, parfois je fait des erreurs de frappe.

Pour eviter ca, je cherche une macro qui me permis d'incrémenter n'importe quel compteur de mon document en ajoutant 1 (par exemple une cellule ou j'ai la valeur 254, en appuyant sur un bouton ou en lancant la macro, je passe a 255 et plus en executant manuellement autant de fois la macro)

Merci pour vos reponses.

 

[yzd2000]

Re : incrémenter compteurs sous excel de 1

Bonjour
Sub Plus_UN()
'exemple avec A1
Range("A1").Value=Range("A1").Value+1
End sub

ou en plus court
Sub Plus_UN()
[A1]=[A1]+1
End Sub

Voir fichier joint
Deux exemples (avec macro et sans macro)

Merci, la macro marche, mais parcontre, j'ai plusieur cellule a incrémenter
cette macro ne fonctionne sur sur la cellule A1, est ce qu'il est possible de l'adapter pour quelle fonctionne sur n'importe quelle cellule

Merci

 

[yzd2000]

Re : incrémenter compteurs sous excel de 1

Voila la macro que je cherchait, elle marche sur n'importe quelle cellule

Sub incrementer ()
On Error Resume Next
ActiveCell.Value = ActiveCell.Value + 1
End Sub