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

[golliat]

ca semble fonctionner chez moi.

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
Sub test()
 
For i = 1 To 4
            compteurHO = 0
            compteurtotHO = 0
            ligne = Sheets("Feuil1").Range("B65536").End(xlUp).Row
            For Each cell In ActiveSheet.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
 
End Sub

retourne :

Code :

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

1
2
3
4
21
157
109
19

[ptitepo]

Chez moi ca bloque a i=2
Sur 2 dossiers differents, alors je ne comprend pas

[golliat]

ca bloque c'est a dire?

[ouskel'n'or]

Tu es certain que c'est

compteurtotHO = compteurtotHO+ compteurHO

et non

Code :

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

compteurtotHO = compteurtotHO+ 1

? Parce que ça me semble plutôt bizarre

[golliat]

enfaite il veut ajouter les valeurs correspondante aux chiffres.

Exemples :
Legende
1 = 2
2 = 3
3 = 4

il a
1
1
1
2
2
2
3
3
3

sa macro doit retourner
1 = 6
2 = 9
et 3 = 12

Voila je pense que c'est ce qu'il souhaite.

[ouskel'n'or]

Oui mais là il a
1 + 1 = 2
2 + 2 = 4
4 + 4 = 8
etc
Comme s'il mutipliait par deux à chaque tour de roue
Si ce que tu dis est ce que ptitepo veut faire...
@ptitepo
Est-ce bien ce que tu veux faire ?

[golliat]

Il est vrai que ce serait plus simple a gérer comme ca. J'y avais meme pas pensé. A voir son .xls cest ce qu'il/elle veut.

Attendons ca réponse.

[ptitepo]

Oui Golliat a bien compris ce que je voulais.
Pour reprendre son exemple
1 = 2
2 = 3
3 = 4
si j'ai la serie
1
1
1
2
2
2
3
3
3
Je passe dans la boucle for je récupere dans une variable compteurHO la 1er valeur de "1"
Puis je la place dans la variable compteurtotHO, 0+2 = 2
Au 2iem "1" je récupere la valeur, et je l'additionne avec compteurtotHO, ca fait 2 + 2 = 4
A la 3iem valeur compteurtotHO = 4 +2
donc pour la valeur 1 la somme est de 6
et ainsi de suite pour les autre chiffre.

[ptitepo]

Après avoir fait 15 mil débugage pas a pas détaillé avec des millions de msgbox pour tout controlé, a la ligne 19, il la saute, c'est pour ca que j'ai un décalage. Maintenant, pourquoi saute t'il la ligne 19?

[ouskel'n'or]

Montre ton code "actualisé"

[ptitepo]

Euh c'est le même, c'est juste que maitenant je sais que c'est la ligne 19 a laquel tout se décale

[golliat]

copie ton fichier complet alors

[ouskel'n'or]

Lequel ? Donne le N° de post
Mais il est clair que si tu rates la ligne 19, c'est que ton/tes compteur(s) pose(nt) problème.
Tu ne pourrais pas utiliser une autre méthode en imbriquant deux boucles
Déjà, tu peux simplifier pour la lecture

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
For i = 1 To 4
            'Là, tu remets les deux compteur zéro
            compteurHO = 0 
            compteurtotHO = 0
            'Parcours de la colonne B
            For NoLig = 2 to Sheets("Feuil1").Range("B65536").End(xlUp).Row
                     'donc, tu compares successivement la cellule à 1, puis 2, 3 et 4
                     If Cells(NoLig,2) = i Then 
                        'On place dans le compteurHO la données contenue dans F & j
                        compteurHO = Range("F" & NoLig)
 
                        'incrémentation de compteurtotHO
                        compteurtotHO = compteurtotHO + compteurHO
                    End If
            Next cell
            lignerang = i + 1
            Sheets("Feuil1").Range("N" & lignerang) = compteurtotHO
Next i

Le problème que je vois déjà est que, si 1, 2, 3 et 4 ne sont pas trouvés
(If Cells(NoLig,2) = i Then...) les deux dernière lignes de ton code sont quand même exécutées.

[golliat]

Tu peu aussi utiliser deux boucles "for" plutot qu'une boucle for each...

bien vu ouskel'n'or.