F
Francis
Guest
Bonjour
J’ai fait un une petite application pour ne garder que les lignes où figure au moins une cellule colorée en vert (code 35).
Hélas cela ne marche pas. Il est vrai que je débute en VBA.
Quelqu’un pourrait il m’aider pour que cela réponde au cahier des charges ci dessus. Et surtout m’expliquer où je fais l’erreur.
Merci d’avance
Francis
Sub CacheLesLignesCouleursVert ()
Dim Ligne As Range
derLigne = Cells(Rows.Count, 'f').End(xlUp).Row
For Each Cell In Range(Cells(11, 1), Cells(derLigne, 12))
If Cell.Interior.ColorIndex = 35 Then
EntireRow.Hidden = True
End If
Next
End Sub
J’ai fait un une petite application pour ne garder que les lignes où figure au moins une cellule colorée en vert (code 35).
Hélas cela ne marche pas. Il est vrai que je débute en VBA.
Quelqu’un pourrait il m’aider pour que cela réponde au cahier des charges ci dessus. Et surtout m’expliquer où je fais l’erreur.
Merci d’avance
Francis
Sub CacheLesLignesCouleursVert ()
Dim Ligne As Range
derLigne = Cells(Rows.Count, 'f').End(xlUp).Row
For Each Cell In Range(Cells(11, 1), Cells(derLigne, 12))
If Cell.Interior.ColorIndex = 35 Then
EntireRow.Hidden = True
End If
Next
End Sub