[résolu] Problème boucle Vba

Bonjour,

J'ai un problème ^^.

Voici une macro que je viens de créer :

Private Sub ok_Click()

Application.ScreenUpdating = False

nbligne = Sheets("Data").ListObjects(1).ListRows.Count + 1

countmod1open = 0

For i = 1 To numsemaine.Value

Sheets("Data").Select

For j = 2 To nbligne

If Cells(j, 6).Value = "SOA - Module 1" And Cells(j, 20).Value = "No" And Cells(j, 64).Value = 2012 And Cells(j, 65).Value = i Then

countmod1open = countmod1open + 1

End If

j = j + 1

Next

Sheets("Nb RNC par semaine").Select

Cells(2, i + 2).Value = countmod1open

i = i + 1

countmod1open = 0

Next

num_semaine.Hide

Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...

J'explique vite fait à quoi elle sert. En fait, elle compte le nombre de lignes dans ma feuille "Data" qui remplissent certaines condition grâce à un compteur. Jusque là tout va bien, Mais c'est la seconde partie qui me pose problème. Elle est censée renvoyer la valeur de mon compteur dans la cellule : Cells(2, i + 2).Value = countmod1open. Et en fait, à chaque fois, ça saute une colonne (en gros, j'ai une colonne remplie, une colonne vide, etc.), alors que je voudrais que ça renvoie la valeur pour chaque colonne. Et je ne me suis pas trompée dans ma boucle, je comprends pas. 😕