Discussion :

[Lapprentis]

Bonjour à tous,

Je vous demande de l'aide car j'essaie de créer ma macro qui me permettrait de masquer des lignes.
Mon sujet est de pouvoir masquer un ensemble de lignes comprises entre deux autres lignes qui contiennent des cellules par exemple grise dans une même colonne.

Merci pour votre aide...

[ben_ghost]

POur executer ta macro tu utilise quel méthode ?

C'est pour savoir si tu utilise l'object selection ?

[Jean-Pierre49]

Bienvenue sur le Forum


Essai Avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim n As Long
 
For n = 1 To Range("A65536").End(xlUp).Row
    If Range("A" & n).Interior.ColorIndex = 6 Then Rows(n).EntireRow.Hidden = True
Next n

A adapter pour la cellule testée

Bon courage

[ben_ghost]

Heu Désolé Jean-Pierre Mais je suis pas trop d'accord tu ne detecte pas le fait qu'il soit en tre 2 ligne de couleur ????


Ou alors j'ai pas compris la problématique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim Cellules As Range
    Dim ligne As Range
    Dim CouleurDetecter As Boolean
 
    For Each ligne In Cellules.Rows
        If ligne.Font.ColorIndex <> 2 Then
            If CouleurDetecter = False Then CouleurDetecter = True
            If CouleurDetecter = True Then CouleurDetecter = False
        Else
            If CouleurDetecter = True Then
                ligne.EntireRow.Hidden = True
            End If
        End If
    Next

[Jean-Pierre49]

Désolé j'avais mal lu

[jolop35]

Bonjour

Masque les cellules de la colonne A (de la première cellule non vide à la dernière cellule non vide, dont le fond est gris (gris 25 %) )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub MACRO_TEST()
Dim Plg As Range
Dim Cl As Range
Set Plg = _
    Intersect(Columns("A"), ActiveSheet.UsedRange)
For Each Cl In Plg
Cl.EntireRow.Hidden = _
    IIf(Cl.Interior.ColorIndex = 15, True, False)
Next
End Sub

A+

J.L