Filtre couleur de police

mutzik

XLDnaute Barbatruc

• 9 Juillet 2008

• #2

Re : Filtre couleur de police

Bonjour,

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

 

Vote positif 0 Vote négatif

F

Format

Guest

• 9 Juillet 2008

• #3

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2008

• #4

Re : Filtre couleur de police

Bonjour à tous



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

Code:

 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

Code:

 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

 

Dernière édition: 9 Juillet 2008

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 9 Juillet 2008

• #5

Re : Filtre couleur de police

hello

Code:

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é !!!

 

Pièces jointes

• Classeur1_cartman.xls

  20 KB · Affichages: 66

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2008

• #6

Re : Filtre couleur de police

Re


suistrop: D et pas B la colonne 🙄

 

Vote positif 0 Vote négatif

F

Format

Guest

• 9 Juillet 2008

• #7

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...

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 9 Juillet 2008

• #8

Re : Filtre couleur de police

Staple1600 à dit:

Re


suistrop: D et pas B la colonne 🙄

Cliquez pour agrandir...

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 !!!

 

Vote positif 0 Vote négatif

suistrop

XLDnaute Impliqué

• 9 Juillet 2008

• #9

Re : Filtre couleur de police

Format à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

F

Format

Guest

• 9 Juillet 2008

• #10

Re : Filtre couleur de police

OK, merci.

 

Vote positif 0 Vote négatif