Pb d'execution macro

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:

---

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

Je comprends pas que tu n'aies pas de message d'erreur 8O
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 :roll:

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

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 :aie:

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

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:

---

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

---

ca semble fonctionner chez moi.

Code:

---

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:

---

1 2 3 4

21 157 109 19

---

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

ca bloque c'est a dire?

Tu es certain que c'est

Citation:

---

compteurtotHO = compteurtotHO+ compteurHO

---

et non

Code:

---

compteurtotHO = compteurtotHO+ 1

---

? Parce que ça me semble plutôt bizarre :koi:

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.

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 ? ;)

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.

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.

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?

Montre ton code "actualisé" ;)

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 :?

copie ton fichier complet alors ;)

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:

---

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.

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

bien vu ouskel'n'or.

Code:

---

For NoLig = 2 To Sheets("Feuil1").Range("B65536").End(xlUp).Row

---

"Lindice n'appartient pas a la selection"
Ca correspond a quoi Nolig?