Comparer deux colonnes adjacentes une à une sur mon tableau?

Bonjour à vous,
voici ma question sur laquelle je bloque.

J'ai un tableau listant dans ma première colonne une référence[le tableau est en pièce jointe].
Chacune des colonnes suivantes représente un mois, tous les mois un bilan est fait.

Sur chacun des mois j'ai un 1 si la référence est toujours présente, un 0 sur fond gris sinon.

J'aurais besoin:
-pour chacun des mois de compter le nombre de références "disparues", donc le nombre de 1 du mois précédent qui sont passés à 0
- pour chacun des mois de compter le nombre de références apparues, donc le nombre de 0 qui sont passés à 1 (mon tableau étant automatiquement créé par macro depuis des données source; au cours du traitement je rempli les cases vides par des 0 grisés).

Contraintes:
- je ne peux pas changer la configuration de ce tableau
- j'ai besoin si possible d'automatiser le maximum de traitements donc sous macro ce serait bien
- et en plus j'aimerais avoir ces résultats à la fin de mon tableau, sous forme de bilan: sous chaque mois le nombre de références apparues et le nombre de références "disparues".

Je bloque sur le fait qu'il faille compter le nombre de "changements" (en 0 ou 1) d'un colonne à l'autre.
Comment procéder?
Merci d'avance pour vos réponses.

Cordialement,
M

salut drthodt,
je pense qu'une boucle for avec un test au milieu qui incrémente une variable devrait suffire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'exemple pour le mois de juin Dim i as Integer dim total_de_disparues as Integer Dim Total_d_apparues as Integer total_de_disparues =0 Total_d_apparues = 0 For i = 2 to 135 'test sur les apparues if Range("B" & i).Value = 0 And Range("C" & i).value = 1 Then Total_d_apparues = Total_d_apparues +1 End if if Range("B" & i).Value = 1 And Range("C" & i).value = 0 Then total_de_disparues = total_de_disparues +1 End if Next i Msgbox "il y a eu " & Total_d_apparues & " apparitions et " & total_de_disparues & " disparitions au mois de juin"

---

tu peux ajouter une boucle avec j pour faire varier les colonnes en plus des lignes ;)

Merci,
je suis parti sur cette solution (j'y avais songé tout seul après coup,comme quoi avec un peu de réflexion).
J'ai par contre un message d'erreur.Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'Calcul du nombre de demandes soldées par colonne For NoColonne = 1 To (ColonneF2 - 1) For NoLigneF2 = 2 To DerniereLigneF2 If (Cells(NoLigneF2, NoColonne) = 1) And (Cells(NoLigneF2, NoColonne + 1) = 0) Then DemandesSoldees = DemandesSoldees + 1 End If Next   Cells(DerniereLigneF2 + 2, NoColonne) = DemandesSoldees DemandesSoldees = 0 Next   'Calcul du nombre de demandes enregistrées par colonne For NoColonne = 3 To ColonneF2 For NoLigneF2 = 1 To DerniereLigneF2 If (Cells(NoLigneF2, NoColonne) = 1) And (Cells(NoLigneF2, (NoColonne - 1)) = 0) Then DemandesEnregistr = DemandesEnregistr + 1 End If Next Cells(DerniereLigneF2 + 3, NoColonne) = DemandesEnregistr DemandesEnregistr = 0 Next

---

Pour info toutes les variables sont déclares en long donc pas de souci de ce côté-là.
Ca me fait bien mon bilan sur ma feuille Excel, par contre j'azi une erreur "type incompatible" erreur 13 à ce niveau

Code:

---

If (Cells(NoLigneF2, NoColonne) = 1) And (Cells(NoLigneF2, (NoColonne - 1)) = 0) Then

---

pour l ebout de code "'Calcul du nombre de demandes enregistrées par colonne".
D'ou vient cette erreur sachant que ça me créé bien mon bilan?

En fait ca me cree mon bilan mais l'erreur vient au niveau du calcul du dernier nombre de references de la dernière colonne qui n'est pas calculée et l'erreur survient

Desolé de faire un up,mais ce problème me dérange et comme je reprends là-dessus ce matin...

et en mettant un -1 dans ta boucle ?

Code:

---

1 2	For NoColonne = 3 To ColonneF2-1 For NoLigneF2 = 1 To DerniereLigneF2-1

---

en fait je ne comprends pas trop l'erreur, tu peux nous donner les valeurs de colonnef2 et derniere ligne stp ?