Discussion :

[dl5555]

Bonjour,
Quelqu'un pourrait me donner les codes sous VBA pour qu'un compteur s'incrémente automatiquement de 1 à chaque fois qu'une valeur dans une cellule est atteinte.
Plus concrètement le compteur en B1 s'incrémente de 1 à chaque fois que valeur en cellule E1 (obtenue par une formule) soit supérieure à 1000 sachant qu'à chaque dépassement de 1000 la cellule se remet à 0.
Je vous remercie pour votre aide.

[gFZT82]

Bonjour,

Il faudrait que tu indiques quelle est la formule en E1 et que tu expliques ce qui provoque la mise à 0 de E1 (quels sont les éléments initiateurs).

Cordialement.

[dl5555]

Bonjour,
En E1 la formule est : MAX(T1:FK1)
Pour la remise à zéro c'est le module objet de la feuille :"Feuil1" (clic droit sur l'onglet et sélectionnez l'option "Visualiser le code") qui appelle automatiquement une macro si le mot "STOP" ,(issue d'une formule), appariait dans une colonne (B1:B100)

Voici le code de la cellule objet lié à la feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Private Sub Worksheet_Change(ByVal Target As Range)
   Dim i As Integer
   For i = 1 To 100
   If Cells(i, 2).Value = "STOP" Then Call RAZ
   Next i

La macro "RAZ" efface les cellules A1:A100

Nota : la cellule compteur est en S1 et non en B1
Merci.

[gFZT82]

Tu dis qu'à chaque dépassement de 1000 la cellule se remet à 0.
Si cette remise à zéro est effectuée par la procédure RAZ, pour incrémenter de 1 la valeur de S1 à chaque dépassement de 1000, il suffit d'ajouter l'instruction Range("S1").Value=Range("S1").Value + 1 à cette procédure RAZ.

Cela dit, je crains que la procédure CHANGE ne soit pas utilisée correctement.
Telle que tu la présentes, à chaque modification d'une cellule quelconque de la feuille la procédure sera à nouveau lancée.
En clair, la procédure va boucler sur elle-même.

Cordialement.

[dl5555]

En fait j'ai dit une bêtise, la cellule S1 ne se remet pas à 0. Ce sont les données que (je rentre manuellement) en A1:A100 qui s'efface automatiquement lorsque le mot stop apparaît en B1:B100.

Tu as raison en ce qui concerne la procédure qui boucle sur elle même, mais ne connaissant rien en matière de codes VBA j'ai fait une bidouille qui fonctionne : Je remplace "STOP" au début d’exécution de la macro RAZ par "XXX" puis je remplace à nouveau "XXX" par "STOP" en fin de macro.

Il ne me reste plus qu'à trouver une solution pour ce fameux compteur en S1.

Merci gFZT82 pour ton intervention.
cordialement

[gFZT82]

J’ai du mal à comprendre les liens et interactions entre les plages A1:A100, B1:B100, T1:FK1, E1 et S1.

Le problème reste de savoir si l’évènement CHANGE est géré correctement.
Il ne faut pas que l’incrémentation du compteur provoque une exécution en boucle de la procédure.

Cordialement.