Compteur

[OngNoi]

Bonjour,

Je voudrais créer un compteur pour compter le nombre de fois que l'utilisateur lance ma macro et afficher ce nombre à A1
Le code suivant ne marche pas:

Dim Compteur as byte

Compteur = Compteur +1

Range "A1" = Compteur

Quelqu'un peut il m'aider

Merci par avance

 

[Luki]

Re : Compteur

Bonjour

Range("A1")=compteur

ou éventuellement :

Range("A1").value=compteur

Toutefois, si tu veux récupérer la valeur de A1 à chaque lancement de macro pour l'ajouter au compteur il faudrait écrire:

Compteur= Range("A1").value+1 'pour récupérer et incrémenter le compteur

puis

Range("A1")=compteur ' pour le mémoriser

Edit : bonjour J pierre et bhbh

 

[jeanpierre]

Re : Compteur

Bonjour OngNoi, Luki, le forum,

En précisant également qu'il faut récupérer la valeur initiale donc :

compteur = Range("a1")
compteur = compteur + 1
Range("A1") = compteur

Bonne journée.

Jean-Pierre

Edit : Bonjour bhbh et bien plus simple, j'étais resté sur l'idée première.

 

[Cousinhub]

Re : Compteur

Bonjour, tout simplement, en fin de code :
Range("A1").Value = Range("A1").Value + 1

Edit : croisé Jeanpierre, bonjour

 

[OngNoi]

Re : Compteur

Bonjour,

Je viens d'essayer, ça marche !
HEUREUX !!!!

MERCI LUKI, JEANPIERRE, BHBH