Aide pour ma procédure compteur bidouillé
bonjour Vous
Suis débutante, besoin de votre aide pour ma procédure qui suit:
Ce que je désire réaliser (voir aussi le fichier si besoin)
Un compteur qui a chaque fois que la cellule B1(de calcul) voit "Plus" inscrit successivement dans les cellules de la colonne "A" les valeurs incrementées du compteur. "B1" peut revevoir une série indéterminée de "Plus"et 0
Le compteur est remis à zéro si "Razcompt" est mis dans la cellule G1
A1 => 1...............si Premiere arrivée d'un "Plus" dans la cellule B1
A2 => 2...............si seconde arrivée d'un "Plus"
A3 => 3..
A4 => 4
Private Sub Worksheet_Calculate()
Dim cpt As Integer
Dim G1 As String
Dim A1 As Integer
For lg = 1 To 500
If Range("$B$1") = "Plus" Then
cpt = cpt + 1 erreur
End If erreur
If Cells("$G$1") = "RazCompt" Then erreur
cpt = 0 erreur
End If erreur
Cells(lg, 3) = cpt erreur
Next lg erreur
End Sub
Merci à tous
-- 18 Mai 2011, 03:08 --
Re
Precision
les mots erreur ne sont pas inscrits dans ma procédure ils apparaissent "debogage"
merci
voila je t'ai mis des explication dans le fichier
dis moi si j'ai bien compris ce que tu voulais
a+
oupss je me suis trompé de fichier voila je réedit
Bjr
Pas trouvé de fichier !!!
a ++
clic sur le lien si dessus et il va ce télécharger tout seul
a+
Re
Aucun fichier en rapport avec ma demande ??
a++
passe par l'envoi sur le site ???
Muriel
-- 18 Mai 2011, 15:14 --
re
Une série de "Plus"et 0 peuvent sortir de la cellule B1
au premier B1 = "Plus" qui sort de la cellule B1 on incrit 1 dans la cellule A1
Au second B1 = "Plus" qui sort de la cellule B1 on inscrit 2 dans la cellule A2
ainsi de suite
la Raz se fait a l'aide de la cellule G1 si elle vient à contenir "RazCompt"
La procédure ne se lance pas par un bouton mais automatiquement lorsque la cellule B1 sort son premier "Plus"
ps l'utilisation d'un compteur for next dans ce cas n'est peut être pas adaptée
voir ma new proposition "Aide pour compteur bidouillé"
merci a plus
Muriel
voila
mais j'ai vérifier le liens que je t'es mis es le bon; pas grave
je suis passer par cjoint car des fois par le site ca ne veux pas marcher
mais la ca a marché
Bonjour, fichier proposé dans votre ancienne demande et qui normalement devrait satisfaire le besoin formulé
Bonjour tous
Merci à Zirak, Passe passe, Spyderpaint pour vous être dévoué pour ma cause => un "compteur tout simple" heu mdr
Quel génie ce Zirak il a réussi ce que je croyais impossible, c'est à dire de valider une deuxième fois la sortie du mot "Plus" d'une cellule de calcul.
Trop fort ce Zirak => N'y croyant plus j'avais forcé la case de calcul à passer à 0 apres avoir donné un "Plus" pour lui permettre de prendre en compte une nouvelle sortie du mot "Plus"
Cela veut dire que je peux maintenant me passer de la case G1 de remise à zéro et me servir du 0 de ma formule de calcul pour ce faire lol
Zirak si tu n'es pas maké je veux bien te "prendre" comme prof particulier pour apprendre à "compter sur toi" peut être sous toi si tu n'es pas trop Sumo
Un grand bravo et un grand merci au trio d'aidants
Muriel
La prochaine fois j'enleverai (pas le bas) mais le mot simple dans ma demande lol mdr