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

[clem71]

ok, mais en fait j'ai quelques valeurs qui sont des valeurs décimales comprises entre 0 et 1...

je testerai cette solution pour voir ce que ca donne...

[Krovax]

Mon code test si la valeur est plus grande ou plus petite que la précédente, celui de ucfoutu ne devrais fonctionner que sur les 0 et les 1.

0
0.5
1
avec mon programme cela augmentera var1 de 2 celui de ucfoutu devrais planté

Pose une question précise et tu auras une réponse précise
Tu veux faire quoi de tes décimal?

Edit j'ai testé visiblemenr celui de ucfoutu prend les décimal comme des 0

[clem71]

oui nan mais t'inquiètes ton code me convenait, j'ai juste déouvert après que mes valeurs n'étaient pas que des 0 ou 1.

mais en fait, dans le cas où j'ai un 0 suivi de 0.5, je ne veux incrémenter var1 QUE si ce 0.5 est suivi d'un 1. la j'avais fait une petite boucle un peu pourrie (mais qui a l'air de marcher), mais si la solution de ucfoutu prend les décimals comme des 0, ca devrait bien me convenir je crois.

merci bien à vous deux pour vos réponses en tout cas!

[Krovax]

je te laisse tester c'est l'impression que j'ai eu mais ca reste a véifier et ce n'est pas très propre, enfin a toi de voir
Pense au bouton

[ucfoutu]

Re...

Je ne sais plus où nous en sommes, si la "donne" change à chaque instant !

Alors, maintenant, les nombres peuvent être différents de 0 et 1 et même être décimaux ?

D'accord, alors :

Code :

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

1
2
3
4
5
For i = premiereligne + 1 To Range("A65536").End(xlUp).Row
  var1 = var1 + Abs(cells(i) - cells(i - 1) <> 0)
  var2 = var2 + Abs(cells(i) - cells(i - 1) = 0)
Next
MsgBox var1 & "  " & var2

Edit :

ce qui revient d'ailleurs à écrire (et cette dernière formulation serait capable de traiter même des chaînes de caractères):

Code :

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

1
2
3
4
5
6
Dim var1 As Long, var2 As Long
For i = premiereligne + 1 To Range("A65536").End(xlUp).Row
  var1 = var1 + Abs(cells(i) <> cells(i - 1))
  var2 = var2 + Abs(cells(i) = cells(i - 1))
Next
MsgBox var1 & "  " & var2