bonjour a tous
j'ai une macro qui marche bien mais je voudrais l'appliquer a certaines feuilles de mon classeur en meme temps
par exemple pour la feuille 2 et la feuille 4 et la feuilles 7
si quelqu'un a une idée ce serait bien sympa
merci !!!!
Dim cell As Range
Dim test As Integer
Dim i As Integer
Application.ScreenUpdating = False
'ci dessous nb de ligne concernées
For i = 500 To 1 Step -1
For Each cell In Rows(i)
If cell.Interior.ColorIndex = xlNone Then test = 1
Next
If test = 1 Then Rows(i).Delete
test = 0
Next
j'ai une macro qui marche bien mais je voudrais l'appliquer a certaines feuilles de mon classeur en meme temps
par exemple pour la feuille 2 et la feuille 4 et la feuilles 7
si quelqu'un a une idée ce serait bien sympa
merci !!!!
Dim cell As Range
Dim test As Integer
Dim i As Integer
Application.ScreenUpdating = False
'ci dessous nb de ligne concernées
For i = 500 To 1 Step -1
For Each cell In Rows(i)
If cell.Interior.ColorIndex = xlNone Then test = 1
Next
If test = 1 Then Rows(i).Delete
test = 0
Next