Bonjour tout le monde !
Je suis tout nouveau au VBA, et j'essaie de faire une macro qui trierait une série de données à partir d'une périodicité :
en gros il faut imaginer que la deuxième colonne de mon tableau a une série de chiffre croissant jusqu'à 4 qui se répète, et j'aimerais supprimer les valeurs pour les séries pour lesquelles il manque un nombre.
voila mon code pour le moment, j'ai identifié que le problème se situe au moment de supprimer la ligne avec rows
Public Sub tri()
Dim i As Integer, nbCases As Integer
i = 1
Rows("i:i").Delete
Cells(1, 1) = "ok"
i = 2
nbCases = WorksheetFunction.CountA(Range("B:B"))
While i < nbCases
If Cells(i, 2) = 1 Then
If Cells(i, 2) + Cells(i + 1, 2) + Cells(i + 2, 2) + Cells(i + 3, 2) = 10 Then
i = i + 4
Cells(i, 3) = "ici"
Else
i = i + 1
Rows("i:i").Delete shift:=xlUp
End If
Else
i = i + 1
Cells(i, 3) = "pbm2"
End If
Wend
End Sub
Merci d'avance !