Filtrer par couleur texte

[teodormircea]

Bonjour le forum
J'ai fait une macros qui sélecte dans une colonne la couleur du texte et fait un hide.
le problème c'est que si j'ai un cellule en blanc la macro s'arrête .
J'aurais besoin de votre aide pour l'améliorer.Peut etre la solution c'est de faire un auto filter et non pas un hide.
Voila le code

Sub FILTER_FONTCOLOR()

'On gèle l'écran
Application.ScreenUpdating = False

'Déclaration des variables
Dim i As Long
Dim coll As Integer
Dim color As Integer
coll = InputBox(Prompt:="Choisir Colonne a filtrer")
color = InputBox(Prompt:="Choisir Couleur a filtrer")
'Code
i = 2 'En partant de la 2ème ligne, on peut conserver une ligne d'entête
While Not IsEmpty(Cells(i, coll))
If Not Cells(i, coll).Font.ColorIndex = color Then
Rows(i).EntireRow.Hidden = True
End If

i = i + 1
Wend

End Sub

 

[Pierrot93]

Re : Filtrer par couleur texte

Bonsoir,

essaye peut être comme suit :

Option Explicit
Sub FILTER_FONTCOLOR()
Dim i As Long
Dim coll As Integer
Dim color As Integer
Application.ScreenUpdating = False
coll = InputBox(Prompt:="Choisir Colonne a filtrer")
color = InputBox(Prompt:="Choisir Couleur a filtrer")
For i = 2 To Cells(65536, coll).End(xlUp).Row
    If Not Cells(i, coll).Font.ColorIndex = color Then Rows(i).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub

bonne soirée
@+

 

[BOISGONTIER]

Re : Filtrer par couleur texte

Bonjour,


http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreAutoCouleur.xls
http://boisgontierjacques.free.fr/fichiers/Filtre/FiltreGrasCouleur.xls



JB
Formation Excel VBA JB