Discussion :

[drthodt]

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

[Jean-Philippe André]

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

Code :

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

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

[drthodt]

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 :

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

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 :

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

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?

[drthodt]

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

[drthodt]

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

[Jean-Philippe André]

et en mettant un -1 dans ta boucle ?

Code :

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

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 ?