VBA question à propos d'un For each

neeser · 24 Décembre 2016

Bonjour tout le monde,
Je tente de supprimer les lignes dont la cellule de la première colonne n'est pas de couleur blanche (colorindex=-4142)
Voici ce que j'ai écris

For Each c In Range("A1:A100")
If c.Interior.ColorIndex <> -4142 Then
c.EntireRow.Delete
End If
Next

Pour une raison que j'ignore, ça fonctionne moitié, quand j'exécute la macro, ça me supprime quelques lignes dont la premiere cellule est d'une autre couleur, mais pas tous... il faut que je l'éxécute à plusieurs reprises avant que toutes les lignes concernées soient effacées. Je ne comprends pas ce que je fais de mal. Merci à l'avance de vos judicieux conseils!

Compte Supprimé 979 · 24 Décembre 2016

Bonjour neeser,
Si tu étais passer en mode débogage sur ton VBA, avec la feuille active, tu aurais pu voir ce qui se passait

C'est une erreur de débutant il faut supprimer tes lignes en ordre inverse (de la dernière à la première)
Tu ne dois pas utiliser "each"

A+

neeser · 24 Décembre 2016

Merci de l'info, étant en effet un débutant, que puis-je utiliser plutôt que each, et comment je fais pour lui indquer de procéder de façon inverse?, c'est pas mal la seule boucle que je connais...
Merci à l'avance!

Chris401 · 24 Décembre 2016

Bonjour

Essaye :

VB:

Sub SupprimeLigne()
Dim i As Integer
Application.ScreenUpdating = False
    For i = 100 To 1 Step -1
       If Not Cells(i, 1).Interior.ColorIndex = -4142 Then Rows(i).Delete
    Next i
End Sub

neeser · 24 Décembre 2016

Ah ben maintenant je comprends pourquoi je voyais souvent des opérations semblables sous cette forme! Merci beaucoup Chris401, ça fonctionne parfaitement!

VBA question à propos d'un For each

neeser

XLDnaute Nouveau

Compte Supprimé 979

Guest

neeser

XLDnaute Nouveau

Chris401

XLDnaute Accro

neeser

XLDnaute Nouveau

Discussions similaires