Discussion :

[ptitepo]

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

[ouskel'n'or]

Je comprends pas que tu n'aies pas de message d'erreur
Où il est le Next Cell ? S'il y est, il est bien caché

PS - Tu devrais jeter un oeil ici, on t'explique des choses

[golliat]

et la variable "j" elle représente quoi?

[ouskel'n'or]

Le N° de la feuille
Ça pourrait effectivement avoir une incidence mais comme ça "fonctionne" (!?!) pour la première valeur (de quoi ?) le numéro de feuille "devrait" être correct

[golliat]

Boh les erreurs minimes sont toujours les plus co....
Merci pour l'info, je voulais savoir plutot ou il l'incrémentait cette variable.

[ptitepo]

autant pour moi, c'est quant j'ai copié le code, que j'ai louper des choses, mais ca ne change pas mon problème. Laissé tombé le J.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 1 To 4
            compteurHO = 0
            compteurtotHO = 0
            ligne = Sheets("Feuil1").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
            Next cell
             lignerang = i + 1
            Sheets("Feuil1").Range("N" & lignerang) = compteurtotHO
next i