Bjr,

J'ai une macro, qui doit en théorie marcher !
Elle parcours mon tableau de B2 à la derniére ligne écrite en colonne B.
Pour chaque ligne ou la valeur en B est 1, une variable récupere la valeur de la mm ligne, mais en colonne F.
Et ainsi de suite, pour arrivé a la somme des valeurs 1.
Et ainsi de suite pour les valeurs 2, 3, 4 ...etc
Mon probléme se situe lors de l'execution,
Pour la valeur 1, tout ce passe comme il faut,
Pour la valeur 2, la derniére ligne n'est pas prise en compte,
Pour la valeur 3, les 2 derniéres lignes ne sont pas prisent en compte.
et ainsi de suite, Je n'arrive pas a comprendre pourquoi il y a un décalage.
Peut être mon code est déféctueux.
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
        For i = 1 To 6
            compteurHO = 0
            compteurtotHO = 0
            ligne = Sheets(j).Range("B65536").End(xlUp).Row
            For Each cell In Worksheets(i).Range("B2:B" & ligne)
                lignecell = cell.Row
                If cell = i Then
                    compteurHO = Range("F" & lignecell)
                    compteurtotHO = compteurtotHO + compteurHO
                End If
            lignerang = i + 1
            Sheets("Feuil1").Range("N" & lignerang) = compteurtotHO
        Next i
J'essaye de faire un fichier exemple plus parlant, mais je promet rien
Merci de votre aide