OVH Cloud OVH Cloud

Compteur

4 réponses
Avatar
Stéphan DuQuébec
Bonjour,

J'aimerais obtenir quelques intrants sur ce que je désire faire. J'aimerais
appliquer un compteur dénombrant les résultats vrais (une somme faite sur une
plage de 2 cellules quand le résultat égale 10). Tout ça dans le but de
déclencher une autre macro lorsque le compteur atteint 5 fois son target
(somme de 10). J'ai consulté les astuces d'intérêt (de compteur) des 6 sites
habituels sans trop de succès.

Quelqu'un peut me partir ?

Merci.

4 réponses

Avatar
michdenis
Bonjour Stéphan,

Moi, je n'ai pas compris la question !


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour,

J'aimerais obtenir quelques intrants sur ce que je désire faire. J'aimerais
appliquer un compteur dénombrant les résultats vrais (une somme faite sur une
plage de 2 cellules quand le résultat égale 10). Tout ça dans le but de
déclencher une autre macro lorsque le compteur atteint 5 fois son target
(somme de 10). J'ai consulté les astuces d'intérêt (de compteur) des 6 sites
habituels sans trop de succès.

Quelqu'un peut me partir ?

Merci.
Avatar
Stéphan DuQuébec
Bonjour michdenis,

Désolé, c'est souvent mon problème. Je ne suis pas très clair.

Alors, pour être plus simple, je désire incrémenter une valeur numérique (le
propre d'un compteur) à chaque fois qu'une condition sera validée (dans mon
cas, ce doit être un résultat d'addition de cellules qui doit être égal à 10).

Un utilisateur modifie le contenue d'une cellule (cellule impliquée dans
ladite addition) à répétition et à chaque fois qu'un résultat donne 10, je
voudrais incrémenter mon compteur de 1. Et ce jusqu'à ce que j'atteigne le
chiffre magique de 5 bonnes validations, ce qui déclenchera une autre macro.

J'ai vu un peu comment monter un compteur. Dois-je y intégrer un boucle ? Je
suis un peu mêlé dans la façon d'éloborer tout ça.

J'espère les précisions plus claires....sinon tant pis pour moi......

Ciao !




Bonjour Stéphan,

Moi, je n'ai pas compris la question !


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour,

J'aimerais obtenir quelques intrants sur ce que je désire faire. J'aimerais
appliquer un compteur dénombrant les résultats vrais (une somme faite sur une
plage de 2 cellules quand le résultat égale 10). Tout ça dans le but de
déclencher une autre macro lorsque le compteur atteint 5 fois son target
(somme de 10). J'ai consulté les astuces d'intérêt (de compteur) des 6 sites
habituels sans trop de succès.

Quelqu'un peut me partir ?

Merci.





Avatar
michdenis
Bonjour Stéphane,

Tu pourrais essayer quelque chose dans le genre :

à copier dans le module feuille où l'action se déroule :

Dans la procédure, cette plage de cellules :
Range("A5,A10,B25,G30"), représente chacune des
cellules ayant une formule de "somme" qui est surveillée.
Dès qu'une de ces formules de la plage affiche 10, le compteur
est incrémenté ... si le compteur est égale à 5 , la macro est
exécutée.

Il peut y avoir quelques variantes ... cela dépend de ton application
et de ce que tu recherches à faire !!!


'Dans le haut du module
Dim Compteur As Integer

'--------------------------
Private Sub Worksheet_Calculate()
Dim Rg As Range, C As Range
Set Rg = Range("A5,A10,B25,G30")

If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 10 Then
Compteur = Compteur + 1
End If
Next
If Compteur = 5 Then
' LancerMaMacro
Compteur = 0
End If
End If
Set Rg = Nothing :Set C = Nothing
End Sub
'--------------------------


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour michdenis,

Désolé, c'est souvent mon problème. Je ne suis pas très clair.

Alors, pour être plus simple, je désire incrémenter une valeur numérique (le
propre d'un compteur) à chaque fois qu'une condition sera validée (dans mon
cas, ce doit être un résultat d'addition de cellules qui doit être égal à 10).

Un utilisateur modifie le contenue d'une cellule (cellule impliquée dans
ladite addition) à répétition et à chaque fois qu'un résultat donne 10, je
voudrais incrémenter mon compteur de 1. Et ce jusqu'à ce que j'atteigne le
chiffre magique de 5 bonnes validations, ce qui déclenchera une autre macro.

J'ai vu un peu comment monter un compteur. Dois-je y intégrer un boucle ? Je
suis un peu mêlé dans la façon d'éloborer tout ça.

J'espère les précisions plus claires....sinon tant pis pour moi......

Ciao !




Bonjour Stéphan,

Moi, je n'ai pas compris la question !


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour,

J'aimerais obtenir quelques intrants sur ce que je désire faire. J'aimerais
appliquer un compteur dénombrant les résultats vrais (une somme faite sur une
plage de 2 cellules quand le résultat égale 10). Tout ça dans le but de
déclencher une autre macro lorsque le compteur atteint 5 fois son target
(somme de 10). J'ai consulté les astuces d'intérêt (de compteur) des 6 sites
habituels sans trop de succès.

Quelqu'un peut me partir ?

Merci.





Avatar
Stéphan DuQuébec
Monsieur ou madame michdenis

Votre "quelque chose du genre" a encore frappé dans le mille !

4 de mes 5 derniers posts ont été très adéquatement répondu par vous.

Je vous en remercie infiniment.

À temps perdu, je tente de monter un petit jeu qui génère aléatoirement et
vérifie des additions simples dans le but de pratiquer mes enfants en bas âge
au calcul mental rapide. Je suis sur le bord d'aboutir.

Merci !




Bonjour Stéphane,

Tu pourrais essayer quelque chose dans le genre :

à copier dans le module feuille où l'action se déroule :

Dans la procédure, cette plage de cellules :
Range("A5,A10,B25,G30"), représente chacune des
cellules ayant une formule de "somme" qui est surveillée.
Dès qu'une de ces formules de la plage affiche 10, le compteur
est incrémenté ... si le compteur est égale à 5 , la macro est
exécutée.

Il peut y avoir quelques variantes ... cela dépend de ton application
et de ce que tu recherches à faire !!!


'Dans le haut du module
Dim Compteur As Integer

'--------------------------
Private Sub Worksheet_Calculate()
Dim Rg As Range, C As Range
Set Rg = Range("A5,A10,B25,G30")

If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 10 Then
Compteur = Compteur + 1
End If
Next
If Compteur = 5 Then
' LancerMaMacro
Compteur = 0
End If
End If
Set Rg = Nothing :Set C = Nothing
End Sub
'--------------------------


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour michdenis,

Désolé, c'est souvent mon problème. Je ne suis pas très clair.

Alors, pour être plus simple, je désire incrémenter une valeur numérique (le
propre d'un compteur) à chaque fois qu'une condition sera validée (dans mon
cas, ce doit être un résultat d'addition de cellules qui doit être égal à 10).

Un utilisateur modifie le contenue d'une cellule (cellule impliquée dans
ladite addition) à répétition et à chaque fois qu'un résultat donne 10, je
voudrais incrémenter mon compteur de 1. Et ce jusqu'à ce que j'atteigne le
chiffre magique de 5 bonnes validations, ce qui déclenchera une autre macro.

J'ai vu un peu comment monter un compteur. Dois-je y intégrer un boucle ? Je
suis un peu mêlé dans la façon d'éloborer tout ça.

J'espère les précisions plus claires....sinon tant pis pour moi......

Ciao !




Bonjour Stéphan,

Moi, je n'ai pas compris la question !


Salutations!



"Stéphan DuQuébec" a écrit dans le message de
news:
Bonjour,

J'aimerais obtenir quelques intrants sur ce que je désire faire. J'aimerais
appliquer un compteur dénombrant les résultats vrais (une somme faite sur une
plage de 2 cellules quand le résultat égale 10). Tout ça dans le but de
déclencher une autre macro lorsque le compteur atteint 5 fois son target
(somme de 10). J'ai consulté les astuces d'intérêt (de compteur) des 6 sites
habituels sans trop de succès.

Quelqu'un peut me partir ?

Merci.