Filtrer des lignes spécifiques

[Marco]

Bonsoir,
J'aimerais pouvoir afficher uniquement les lignes contenant des cellules grisées dans une feuille soit par un filtre ou autre
qui qu'a une idée ?
Merci braz

 

[Celeda]

Bonsoir,

on avait déjà donné cette petite fonction mais on se la rejoue encore une fois sur le jukebox des functions :

Function CouleurType(Cell As Range)
CouleurType = Cell.Interior.ColorIndex
End Function


Le principe :

tu colles dans une cellule adjacente = CouleurType(A3)
et tu obiendras un chiffre qui correspond à la couleur de ta cellule
ici 15 pour le gris

ensuite tu mets un filtre et tu filtre sur cette colonne de résultats
et hop tu as tous les 15 alignés

La function est à coller dans un module (alt F11 et tu insères un nouveau module); elle s'inscrira toute seule dans tes fonctionns personnalisées;

voilà now dodo
et si problème tu reviens

Celeda

 

[Marco]

Oh Celeda je t'aime
C'est parfait pour moi, gros dodo

 

[CBernardT]

Bonsoir Marco et Celeda

Une macro qui masque les lignes qui ne contiennent pas au moins une cellule grisée.

Sub MasquerLignes()
Dim i As Integer

Application.ScreenUpdating = False
For i = 2 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, 1).EntireRow.Interior.ColorIndex <> 48 Then
Cells(i, 1).EntireRow.Hidden = True
Else
Cells(i, 1).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Cordialement

CBernardT

 

[Celeda]

Bonjour le FOrum,

ouh!!! quand on me dit je t'aime, j'ai des frissons dans le dos!!!

alors merci Marco

et je vais le dire à Bernard

je t'aime aussi Bernard!!!!!

merci pour la macro !!!

maintenant on pourra la placer dans le jukebox et quand quelqu'un reposera la question, et béh!!!on appuiera sur le JetaimeMarco!!!!



Celeda :kiss:

 

[CBernardT]

Bonjour Bonjour,

Je suuis de bonne bonne humeur, une fille vient de me dire qu'elle m'aime :unsure:

J'en suis retourné :silly: , chouet alors, en plus, c'est une voisine de Caujac.

Gros bisou toulousain à toi Celeda

Bernard