BOBIE
Habitué
bonjour à tous
j'ai généré le programme suivant qui ne marche pas et je ne comprend pas pourquoi.
le programme suivant consiste à supprimer toutes mes lignes de couleurs rouges mais ne marche pas
[cpp]
Sub SupprimerCouleurRouge()
Dim rcel As Range
Range("A1").Select
Selection.CurrentRegion.Select
For Each vcel In Selection
If rcel.Interior.ColorIndex = 3 Then
rcel.EntireRow.Delete
End If
Next rcel
End Sub
[/cpp]
merci d'avance pour votre aide
et bon week end à tous
j'ai généré le programme suivant qui ne marche pas et je ne comprend pas pourquoi.
le programme suivant consiste à supprimer toutes mes lignes de couleurs rouges mais ne marche pas
[cpp]
Sub SupprimerCouleurRouge()
Dim rcel As Range
Range("A1").Select
Selection.CurrentRegion.Select
For Each vcel In Selection
If rcel.Interior.ColorIndex = 3 Then
rcel.EntireRow.Delete
End If
Next rcel
End Sub
[/cpp]
merci d'avance pour votre aide
et bon week end à tous