Discussion :

[Olivierporcinet]

Bonjour,

Je souhaite afficher les lignes si la police de caractère est rouge dans la colonne B

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_Cliquer()
Dim c As Range
  Application.ScreenUpdating = False
For Each c In Worksheets("Interventions techniques").Range("$B3:$B900")
        With c
                .EntireRow.Hidden = False
                If .Range("B3:B900").Font.Color = 3 Then .EntireRow.Hidden = True
 
        End With
Next c
 Application.ScreenUpdating = True
 
 
End Sub

Mon code bloque, rien ne se passe.

Quelqu’un peut m'aider, merci.

Bonne journée.

[nemog]

2 fois Range à la ligne 7 ?

Code :

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

with c

(qui est Range)

et

Code :

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

If .Range(.....

[Olivierporcinet]

Je ne vois pas 2x Range à la ligne 7

Je me suis basé sur un code pour couleur si fond de cellule en rouge et j'ai essayé de l'adapter...... mais apparemment, ce n'est pas ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1_Cliquer()
Dim c As Range
  Application.ScreenUpdating = False
For Each c In Worksheets("Interventions techniques").Range("$B2:$B900")
        With c
                .EntireRow.Hidden = False
                If .DisplayFormat.Interior.Color <> RGB(255, 0, 0) Then .EntireRow.Hidden = True
        End With
Next c
 Application.ScreenUpdating = True


End Sub

[deedolith]

Salut,

Ce que tu as écris:

Code :

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

1
2
3
4
With c
    .EntireRow.Hidden = False
    If .Range("B3:B900").Font.Color = 3 Then .EntireRow.Hidden = True
End With

est l'équivalent de:

Code :

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

1
2
c.EntireRow.Hidden = False
If c.Range("B3:B900").Font.Color = 3 Then c.EntireRow.Hidden = True

Donc tu appelle la propriété Range de l'objet c, qui est déja un objet de type range.
Ca ne produit pas exactement le résultat que tu penses.

[laurent_ott]

Bonjour,
Attention, le (vrai) rouge c'est la couleur 255 et pas 3.

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Bouton1_Cliquer()
Dim c As Range
 
' Désactive la mise à jour de l'écran:
Application.ScreenUpdating = False
 
' Masque toutes les lignes de la plage:
Range("B3:B900").EntireRow.Hidden = True
 
' Boucle sur les cellules de la plage:
For Each c In Range("B3:B900")
    ' Si le texte est en rouge alors affiche la ligne:
    If c.Font.Color = 255 Then Rows(c.Row).Hidden = False
Next c
 
' Résactive la mise à jour de l'écran:
Application.ScreenUpdating = True
End Sub

Bonne continuation.

[Olivierporcinet]

oui, merci, je commence à comprendre mais de là à trouver la bonne solution .....

[Olivierporcinet]

Un grand merci pour votre aide.

Bonne soirée.

[deedolith]

Les couleurs peuvent se cacher à plusieurs endroit, entre autre dans les propriétés Interior.Color, DisplayFormat.Interior.Color (même topo pour les fonts).
Je t'invite à verifier avec un espion, histoire d'être sûr d'altérer le bon.

[Philippe Tulliez]

Bonjour,
Lorsque l'on souhaite modifier une propriété booléenne suivant critère, il est plus simple de renvoyer la valeur du test directement plutôt que de passer par un If
Exemple (pour info la valeur de VbRed est égal à 255)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub t()
 Dim r As Range
 Dim c As Range
 Set r = ThisWorkbook.Worksheets("Data").Range("B2:B12")
 For Each c In r
  With c
  .EntireRow.Hidden = .Font.Color <> vbRed ' Affiche ou cache la ligne suivant critère
  End With
 Next
 Set r = Nothing: Set c = Nothing
End Sub

Je ne sais pas si c'est impératif de passer pas du VBA mais pour info, il est tout à fait possible de filtrer une table en fonction de la couleur de la police ou de la cellule et tient compte également des couleurs issues d'une mise en forme conditionnelle

[Olivierporcinet]

Bonjour,

Un grand merci à tous pour votre aide précieuse.

Bonne journée.