Bonjour,
Je cherche à supprimer/ou effacer (la ligne existe toujours mais il n'y a plus rien dessus)
certaines lignes dans un fichier, or je ne dois supprimer que certaines lignes
Je dispose de deux liste, la liste avec toutes les lignes et la liste des lignes à supprimer
(les deux listes sont sur des fichiers distincts, mais pour des raisons pratiques j'essaye d'abord de faire fonctionner la macro avec un seul fichier regroupant l'ensemble des informations)
Je fais mon code qui me semble propre (je suis débutant)
et excel m'affiche le message d'erreur suivant : Boucle sans Do
Je vous joins une copie de mon code
Si l'un d'entre vous peut m'aider à résoudre ce petit soucis de boucle, il est le bienvenue.
Cordialement Sun
Je cherche à supprimer/ou effacer (la ligne existe toujours mais il n'y a plus rien dessus)
certaines lignes dans un fichier, or je ne dois supprimer que certaines lignes
Je dispose de deux liste, la liste avec toutes les lignes et la liste des lignes à supprimer
(les deux listes sont sur des fichiers distincts, mais pour des raisons pratiques j'essaye d'abord de faire fonctionner la macro avec un seul fichier regroupant l'ensemble des informations)
Je fais mon code qui me semble propre (je suis débutant)
et excel m'affiche le message d'erreur suivant : Boucle sans Do
Je vous joins une copie de mon code
Dim ligne1 As Integer
Dim colone1 As Integer
Dim ligne2 As Integer
Dim colone2 As Integer
ligne1 = 1
colone1 = 1
ligne2 = 1
colone2 = 1
Do While Cells(ligne2, colone2).Value > Cells(ligne1, colone1)
If Cells(ligne1, colone1).Value <> Cells(ligne2, colone2).Value Then
ligne2 = ligne2 + 1
'compare les valeurs des cellules, si elles ne sont pas identiques
'incrémentation de la ligne2 colone2
Else
If Cells(ligne1, colone1).Value = Cells(ligne2, colone2).Value Then
Cells(ligne1, colone1).Value = ""
'si la valeur de la ligne1 colone1 = la valeur de la ligne2 colone2
'mise à 0 de la ligne1 colone1
End If
If Cells(ligne1, colone1).Value = "" Then
ligne1 = ligne1 + 1
'si la ligne1 colone1 vaut 0
'incrémentation de la ligne1 colone1 pour passer à la cellule suivante
End If
'If Cells(ligne1, colone1).Value > Cells(ligne2, colone2).Value Then
'Exit Do
'si la valeur de la cellule ligne1 colone1 est supérieure à la dernière cellule de ligne2 colone2
'on sort de la boucle
'End If
Loop
MsgBox "La suppression des fichiers est terminée"
End Sub
Si l'un d'entre vous peut m'aider à résoudre ce petit soucis de boucle, il est le bienvenue.
Cordialement Sun
Dernière édition: