Bonjour,
J'ai un problème ^^.
Voici une macro que je viens de créer :
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.
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
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.
Dernière édition: