Filtre couleur de police

[Format]

Bonjour,

J'ai conçu un tableau de 4 colonnes, A;B;C;D. La colonne A contient des dates, les colonne B et C des valeurs texte, et la colonne D des valeurs numériques. Dans cette dernière colonne, certaines valeurs sont de couleur rouge, les autres sont de couleur noire. Comment par une procédure VBA puis-je faire apparaître les lignes dont les cellules de la colonne D sont de couleur noire ?
Merci de votre aide...
(Excel version 2002)

 

[mutzik]

Re : Filtre couleur de police

Bonjour,

la question qui tue : pourquoi sont-elles en noir ?

 

[Format]

Re : Filtre couleur de police

L'utilisateur formate les cellules en rouge lorsque les opérations sont validées, quand elles ne sont pas validées, elles restent donc en noir.

 

[Staple1600]

Re : Filtre couleur de police

Bonjour à tous



Deux façons de faire (selon la noirceur appliquée 😉 )

 Sub filtre_noir_f()
Dim i As Long
For i = [D65536].End(xlUp).Row To 2 Step -1
Cells(i, "D").Offset(0, 1).Value = Cells(i, "D").Font.ColorIndex
Next i
Cells(1, 6).AutoFilter Field:=2, Criteria1:="-4105"
End Sub

 Sub filtre_noir_bk()
'ici c'est le fond de la cellule qui est noir
Dim i As Long
For i = [D65536].End(xlUp).Row To 2 Step -1
Cells(i, "D").Offset(0, 1).Value = _
Cells(i, "D").Interior.ColorIndex
Next i
Cells(1, 6).AutoFilter Field:=2, Criteria1:="1"
End Sub

edition: bonsoir suistrop

 

[suistrop]

Re : Filtre couleur de police

hello

Sub cartman()
For i = 1 To Range("B65536").End(xlUp).Row
Rows(i).Select
Selection.EntireRow.Hidden = False
    If Cells(i, 2).Font.ColorIndex <> -4105 And Cells(i, 2) <> 0 Then
        Rows(i).Select
        Selection.EntireRow.Hidden = True
    End If
Next i
End Sub

tu peux modifier !! ici ca se fais sur la seconde colonne


hello tout le monde 🙂

je les ai juste masqué et non supprimé !!!

 

[Staple1600]

Re : Filtre couleur de police

Re


suistrop: D et pas B la colonne 🙄

 

[Format]

Re : Filtre couleur de police

Mille mercis pour les promptes réponses...
Si vous pouviez me donner la macro pour tout réafficher ensuite, ce serait super...

 

[suistrop]

Re : Filtre couleur de police

Re


suistrop: D et pas B la colonne 🙄

ouai je sais et alors !!! 😀😀 si il ne peut pas corriger ca .....
On est la pour aider imo !!! Faut bien qu ils mettent les mains dans la machine quand meme !!!

 

[suistrop]

Re : Filtre couleur de police

Mille mercis pour les promptes réponses...
Si vous pouviez me donner la macro pour tout réafficher ensuite, ce serait super...

Sub cartman()
For i = 1 To Range("B65536").End(xlUp).Row
Rows(i).Select
Selection.EntireRow.Hidden = False
If Cells(i, 2).Font.ColorIndex <> -4105 And Cells(i, 2) <> 0 Then
Rows(i).Select
Selection.EntireRow.Hidden = True
End If
Next i
End Sub

sub affichage()
'comme tu peux le voir c est au debut de l ancienne macro !!
'car avant de savoir si on cache la ligne il faut bien l affciher si par hasard elle est deja caché
For i = 1 To Range("B65536").End(xlUp).Row
Rows(i).Select
Selection.EntireRow.Hidden = False
next i


end sub

 

[Format]

Re : Filtre couleur de police

OK, merci.