Aide pour réaliser procédure d'1 compteur simple

Question

Je suis débutante j'ai recherché sur le forum avec "Compteur" Dsl trop simple pour vous mais trop complexe pour moi ! J'ai besoin d'un simple compteur (qui utilise for...next pour apprendre) qui incrémente des cellules d'une colonne donnée "A" à chaque fois que le mot "plus" est présent dans une cellule donnée "B1" ! la présence de 0 dans la cellule donnée provoque la raz du compteur. colonne ,,,,,,,,,,,,,,,,,cellule contient 1,,,,,,,,,,,,,,,,,,,,,,,si(Acel=ajout;"Plus";0) 2 3 4 Pour votre solution vous pouvez prendre colonne "A" et la cellule d'ordre au compteur "B1" Merci à ceux qui m'aideront Muriel...

pass-pass · Answer

Voici deux façons de faire: Une boucle for Next Une boucle for each Next Sub cpt() Dim cpt As Integer t = Timer For lg = 1 To 500 If Cells(lg, 2) = "plus" Then cpt = cpt + 1 End If If Cells(lg, 2) = 0 Then cpt = 0 End If Cells(lg, 3) = cpt Next lg MsgBox "Temps de la macro: " &amp; Timer - t &amp; " secondes" End Sub Sub boucle() Dim pl As Range Dim cpt As Integer t = Timer For Each pl In Range("B1:B500") Select Case pl Case Is = "plus" cpt = cpt + 1 Case Is = 0 cpt = 0 End Select pl.Offset(0, 2) = cpt Next MsgBox "Temps de la macro: " &amp; Timer - t &amp; " secondes" End Sub...

pass-pass · Answer

Re

Voici le code modifié tel que j'ai compris, ce qui veut dire que ce n'est pas sur que ce soit ce que tu veux obtenir

Je te laisse voir le fichier et me dire ce qui ne va pas (ou va...)

mais'si( passe passe="trouve";"passe passe autorisé à m'inviter resto"

Humm, quelque chose me dit que si ma femme vois ce message, elle n'appréciera pas forcément

47cpt.zip (14.41 Ko)

pass-pass · Answer

Re.

Désolé. Voici le code à mettre dans la feuille: clique droit, visualiser le code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("E1")) Is Nothing Then
    If Target = "encore" Or Target = "Encore" Then
        Range("A65536").End(xlUp)(2) = Range("A65536").End(xlUp) + 1
    Else
        Range("A65536").End(xlUp)(2) = 0
    End If
End If
End Sub

Comme ça, si ce n'est pas le bon fichier, tu pourras au mois recopier le code.

59essais-compteur-simple.xlsm (17.38 Ko)

pass-pass · Answer

Qu'est-ce qui ne fonctionne pas dans le fichier? Il faudrait quelques précisions. Ce que fait la macro: A chaque fois que tu saisis le mot "Encore" en E1, alors le compteur ajoute 1 dans la colonne A (sous la dernière cellule non-vide). Sinon, le compteur se remet à 0. J'ai pris directement E1 étant donné que ta formule en B1 est totalement dépendante de E1. Je suppose que c'est ça qui ne conviens pas mais ne comprends pas pourquoi. Reformule ton idée.....

Zirak · Answer

Bonjour, cela devrait marcher comme vous le souhaitez, surement moyen d'optimiser le code, mais j'ai fait avec mes minces connaissances : Dim i As Integer Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("E1")) Is Nothing Then Range("G1") = "" If Range("B1") = "Plus" Then If Range("A1") = "" Then Range("A1").Value = 1 i = 2 ElseIf Range("A1") &lt;&gt; "" Then i = 1 Do While Range("A" &amp; i) &lt;&gt; "" i = i + 1 Loop Range("A" &amp; i) = i End If Else Exit Sub End If End If If Not Application.Intersect(Target, Range("G1")) Is Nothing Then If Range("G1").Value = "RazCompt" Then Range("E1") = "" i = 1 Do While Range("A" &amp; i) &lt;&gt; "" Range("A" &amp; i).Value = "" i = i + 1 Loop End If End If End Sub...

pass-pass · Answer

Re.

Je fais un dernier essai car plus ça va, moins je comprends ce qui ne va pas.

Dans le fichier joint, à chaque recalcule de la feuille, ton compteur est initialisé en fonction du résultat de la formule qui se situe en B1

Si ta cellule est égale à 0, le compteur est réinitialisé.

Tant que B1 = "Plus" le compteur s'incrémente de 1

Questions:

Faut-il marquer dans la colonne A quand le compteur reprend la valeur 0 ?
D'où sort le "razCompt" ? Tu ne m'en a pas parlé ?-
Ta formule en B1 est dépendante de la cellule E1 et non G1. Est-ce une erreur ou y a-t-il une autre donnée à prendre en compte ?
Concrètement, qu'est-ce qui ne va pas dans le fichier joint ?

Une série de "Plus"et 0 peuvent sortir de la cellule B1

La macro doit vérifier le résultat de B1. C'est OK

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 macro fonctionne dans ce sens là. OK

29muriel.zip (12.30 Ko)

Zirak · Answer

Tant mieux si c'est bien le résultat souhaité, après de là à servir de professeur, je ne fais que bidouiller de par moi-même pour mon travail, je suis loin du niveau de la plupart des gens présent sur ce forum ni capable de sortir du code vraiment optimisé comme l'a proposé passe-passe.

Je ne suis pas un sumo, mais je ne suis pas un codeur facile, on ne (dé-)compte pas (sous)sur moi dès la première Sub , ou alors encore faut-il qu'elle soit private, il faut faire cela dans les (user)forms