filtré une colonne en fonction de sa couleur

[rudy]

bonjour a tous:
la macro de la PJ ne fonctionne pas correctement pourriez vous m aider S.V.P

A+

 

[PMO2]

Re : filtré une colonne en fonction de sa couleur

Bonjour,

Essayez avec la pièce jointe.

Cordialement.

PMO
Patrick Morange

 

[rudy]

Re : filtré une colonne en fonction de sa couleur

bonsoir PMO2, bonsoir a tous
merci pour ton aide par contre et pour info les cellules de la colonne A contienne une mise en forme conditionnel qui fonctionne par contre avec ton code je doit les mêttre en jaune de maniére habituelle !!
quand pensez vous ??

A+

 

[PMO2]

Re : filtré une colonne en fonction de sa couleur

Bonjour,

Remplacez la Sub Filtre_by_color par la nouvelle procédure ci-dessous
qui filtre à partir des 0 en colonne A plutôt que par la couleur de l'intérieur des cellules.
Il est à noter que, lors de l'emploi d'une mise en forme conditionnelle, la couleur qu'on peut voir ne fait pas partie de la propriété Interior.ColorIndex de la cellule.

Sub Filtre_by_color(bool As Boolean)
'Déclaration des variables
Dim r As Range
Dim i As Long
Dim lastLig As Long
'On gèle l'écran
Application.ScreenUpdating = False
'Code
For i = 12 To ActiveSheet.UsedRange.Rows.Count 'Les lignes 1 à 11 ne sont pas concernées
  If Cells(i, 1) = 0 Then
    Rows(i).EntireRow.Hidden = bool
  End If
Next i
Application.ScreenUpdating = True
End Sub

Est-ce que cela vous convient ?

Cordialement.

PMO
Patrick Morange

 

[rudy]

Re : filtré une colonne en fonction de sa couleur

Super merci
+