Discussion :

[clem71]

Bonjour, je suis débutant sous excel vba, et j'ai le problème suivant :

j'ai une colonne constituée de 0 et de 1, par exemple :
0
0
1
0
1
1
0

J'aimerais compter le nombre de changements, et plus précisément :
- a chaque fois qu'il y a un passage de 0 à 1, j'incrémente une variable VAR1
- a chaque fois qu'il y a un passage de 1 à 0, j'incrémente une variable VAR2
- lorsqu'il n'y a pas de changement, les variables ne bougent pas...

seulement voila, je ne sais pas comment faire la comparaison entre une cellule et la suivante...

je précise que le nombre de cellules de la colonne n'est pas fixe...

merci d'avance!

[Krovax]

Colonne A
la liste vont de la première ligne à la dernière

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim var1 As Long, var2 As Long
Dim i As Long
For i = 2 To Range("A65536").End(xlUp).Row
If Cells(i, 1) - Cells(i - 1, 1) > 0 Then
    var1 = var1 + 1
ElseIf Cells(i, 1) - Cells(i - 1, 1) < 0 Then
    var2 = var2 + 1
End If
Next i
msgbox "Nombre de passage de 0 à 1 : " & var1 & chr(13) & "Nombre de passage de 1 à 0 : " & var2
End Sub

Quelque info pour l'adapter :
Pour modifier la colonne change le A de Range("A65536") et dans cells(i,1) remplace le 1 par ton numéro de colonne (colonne E donne 5)
Pour modifier le num de ligne du début et de la fin des donné for i = lignedébut+1 to lignefin
Range("A65536").End(xlUp).Row renvoie la dernière ligne remplie de la colonne A

[clem71]

hmmm...

est ce qu'il faut que les valeurs contenues dans les cellules soient d'un certaine type (formule, valeur...) ?

parce que la j'ai une formule dans chaque cellule, et j'obtiens l'erreur suivante :

Erreur d'exécution '13':

Incompatibilité de type

[Krovax]

j'ai essayé la version précédente avec des formule et c'est bon.
Par contre tu es sure de bien commencer ta liste de 0 et de 1 dès la première ligne et ce jusqu'à la dernière? sinon reporte toi a mon premier post.

Au hasard je dirais que ce code devrait marcher (il ne test pas la première ligne qui contient souvent les titred de colonne)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim var1 As Long, var2 As Long
Dim i As Long
For i = 3 To Range("A65536").End(xlUp).Row
If Cells(i, 1) - Cells(i - 1, 1) > 0 Then
    var1 = var1 + 1
ElseIf Cells(i, 1) - Cells(i - 1, 1) < 0 Then
    var2 = var2 + 1
End If
Next i
msgbox "Nombre de passage de 0 à 1 : " & var1 & chr(13) & "Nombre de passage de 1 à 0 : " & var2
End Sub

Au moment ou ca plante regarde la valeur de i soit en mùettant le curseur dessus soit en affichant les variable local ou encore avec un espion tu as le choix

[clem71]

oups c'était de ma faute, il ya avait un souci non pas avec la premiere mais avec la dernirèe ligne (qui contenait du texte).

maintenant tout est OK.

merci beaucoup!!!

[ucfoutu]

Bonjour,

0 et 1 étant des valeurs de bits, on peut faire ainsi (et on soulage le processeur) :

Code :

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

1
2
3
4
5
6
7
 
Dim titi As Long, var1 As Long, var2 As Long
For i = premiereligne + 1 To Range("A65536").End(xlUp).Row
   titi = cells(i) Xor cells(i-1) ' on ne lit qu'une fois et on évite les conditions
   var1 = var1 + titi
  var2 = var2 + Abs(titi - 1)
Next i