[Résolu] incrémentation d'une variable sous condition

[Verba_Tim]

Bonjour ou Re-bonjour ^^
J'ai de nouveau un soucis qui me freine ^^

Je souhaite compter le nombre de fois ou deux élément se succèdent, et stocker la valeur dans une variable...
Vous allez me dire que c'est pas très clair ^^' et je suis d'accord. Donc voici un petit exemple:

Admettons que j'ai une liste de valeur:
1
2
1
2
1
1
2
1
2
1
1
1
2
2
1
2
1
2

Je souhaite savoir combien de fois j'ai la succession 1-2, et à chaque fois que je remplis cette condition, une variable X vaut X = X + 1.

Mon problème est que je ne sais pas comment m'y prendre ^^ et on m'a proposé une solution, mais le nombre de ligne de mon fichier EXCLUE le balayage ( exécution d'environ 15minutes pour 90 000lignes, ce qui est beaucoup trop long à mon gout).
A moins d'être obligé de balayer, existe-t-il une autre solution?

Au plaisir de vous lire ^^

Verba_Tim

 

[pierrejean]

Re : incrémentation d'une variable sous condition

Bonjour verba_tim

A tester (adapter en fonction de la colonne et de la cellule de debut) :

Sub compte()
debut = Timer
tablo = Range("A1:A" & Range("A100000").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1) - 1
 If tablo(n, 1) = 1 And tablo(n + 1, 1) = 2 Then x = x + 1
Next n
MsgBox (Timer - debut & "   " & x)
End Sub

 

[Verba_Tim]

Re : incrémentation d'une variable sous condition

Merci bien je test ça dès que je le pourrai... ^^ soit demain.
Merci encore ^^

Bonne soiré!

 

[Softmama]

Re : incrémentation d'une variable sous condition

Bonjour, Bonjour Pierre-Jean

Vois un exemple en fichier joint. (Avec une formule, sans VBA)

 

[Verba_Tim]

Re :[Résolu] incrémentation d'une variable sous condition

Merci a vous deux ^^ c'est exactement ce que je cherchais ^^

Bonne journée!