Masquer une plage de cellules vides

sousou

XLDnaute Barbatruc

• 2 Avril 2019

• #2

bonsoir
Voici une proposition que tu peux facilement faire evoluée basée sur select case
je test si l'ensemble de la ligne est vide si j'ai bien compris?
J'ai simplement supprimer les guillemets de tes choix par facilité.

 

Pièces jointes

• Filtre.xlsm

  21.7 KB · Affichages: 11

Vote positif 0 Vote négatif

U

Upinfo

XLDnaute Nouveau

• 3 Avril 2019

• #3

Bonjour et merci sousou.
Je vais le faire evoluer et te faire part de mes soucis.

sousou à dit:

bonsoir
Voici une proposition que tu peux facilement faire evoluée basée sur select case
je test si l'ensemble de la ligne est vide si j'ai bien compris?
J'ai simplement supprimer les guillemets de tes choix par facilité.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

U

Upinfo

XLDnaute Nouveau

• 3 Avril 2019

• #4

@sousou tu peux m'aider a colorer en une seule couleur les lignes vides stp en vba?
je me suis dit que jpeux faire avec une MFC mais pour les cellules de la colonne A je suis bloque.
Donc colorer les lignes vides de A5:J12.
merci

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 3 Avril 2019

• #5

re
pas compris ce que tu cherches à faire?
Les lignes vide sont:5,6,8,9,11, mais elles sont déjà coloriées explique un peu plus !

 

Vote positif 0 Vote négatif

U

Upinfo

XLDnaute Nouveau

• 3 Avril 2019

• #6

sousou à dit:

re
pas compris ce que tu cherches à faire?
Les lignes vide sont:5,6,8,9,11, mais elles sont déjà coloriées explique un peu plus !

Cliquez pour agrandir...

Je te retourne le fichier modifié
Je cherche à n'afficher que les lignes qui contiennent les chiffres de même couleur et donc masquer les cellules vides.

 

Pièces jointes

• Filtre.xlsm

  20.8 KB · Affichages: 10

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 3 Avril 2019

• #7

re
désolé, mais j'ai du mal à comprendrele rapport avec le début du sujet,
les chiffres de même couleur?(rouge, verte,bleue)
sur quelle action tu veux masquer les lignes vides?
quid des couleurs des lignes?
voilà de quoi masquer toues les lignes vides
Sub toutvide()
drlg = dernièrelg(Sheets(1), 1, 5)
With Sheets(1)
Set zone = .Range(.Cells(5, 2), .Cells(drlg, 10))
For Each lg In zone.Rows
If testvide(lg) = True Then lg.EntireRow.Hidden = True
Next
End With
End Sub

 

Vote positif 0 Vote négatif

U

Upinfo

XLDnaute Nouveau

• 3 Avril 2019

• #8

Ok peut-être que je me suis mal exprimé au début.
En fait, j'ai ce tableau.
Quand je choisis parmi les A, B et C, je veux seulement que les lignes comportant des chiffres s'affichent, les lignes vides soient masquées.
Ex: quand je choisis A, il ne s'affiche que les lignes avec les chiffres en vert, B avec les chiffres en rouge, etc...
Espérant avoir répondu a ta question.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Avril 2019

• #9

Bonjour Upinfo, sousou,

Voyez le fichier joint.

Les lignes vides sont colorées par une MFC sur les colonnes A:J entières :

Code:

=(LIGNE()>4)*($A1<>"")*NON(SOMMEPROD(N($B1:$J1<>"")))

La liste de validation en A2 affiche/masque ces lignes par cette macro :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
[K3] = IIf([A2] = "Masquer", "=(A3="""")+SUMPRODUCT(N(B3:J3<>""""))", True) 'critère
Range("A2:J" & Rows.Count).AdvancedFilter xlFilterInPlace, [K2:K3] 'filtre avancé
End Sub

A+

 

Pièces jointes

• Filtre(1).xlsm

  23.7 KB · Affichages: 1

Dernière édition: 4 Avril 2019

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 3 Avril 2019

• #10

bonsoir job75 et upinfo
Bon j'espère que ce coup sera meilleur
Même chose que première version, mais avec la couleur des textes et non celle des lignes
Si c'est cela ca prouve une fois de plus la citation ci-dessous! Si non....

 

Pièces jointes

• Filtre2.xlsm

  21.2 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2019

• #11

Bonjour Upinfo, sousou, le forum,

Fichier (2) avec le code pour filtrer les couleurs de polices :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, coul
If Intersect(Target, [A2]) Is Nothing Then Exit Sub
If [A2] = "" Then Rows.Hidden = False: Exit Sub
Set r = Intersect(UsedRange, Rows("5:" & Rows.Count))
If r Is Nothing Then Exit Sub
coul = Switch([A2] = "A", 255, [A2] = "B", 12611584, [A2] = "C", 5287936)
Application.ScreenUpdating = False
r.EntireRow.Hidden = True
For Each r In r
    If r <> "" Then If r.Font.Color = coul Then r.EntireRow.Hidden = False
Next
End Sub

Bonne journée.

 

Pièces jointes

• Filtre(2).xlsm

  24.8 KB · Affichages: 3

Vote positif 0 Vote négatif

U

Upinfo

XLDnaute Nouveau

• 4 Avril 2019

• #12

merci a vous deux
j'ai pu avoir le bon fichier avec vos aides.
le sujet est clos

 

Vote positif 0 Vote négatif