Discussion :

[Olivierporcinet]

Bonjour,

Voici on code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub FACTURES_Bouton9_Cliquer()
Dim c As Range
 Application.ScreenUpdating = False
For Each c In Worksheets("FACTURES").Range("$H2:$H1350")
        With c
                .EntireRow.Hidden = False
                If .Value <> "" Then .EntireRow.Hidden = True
        End With
Next c
 Application.ScreenUpdating = True
 
End Sub

Je cherche le moyen de mettre une condition supplémentaire, à savoir que la colonne "E" doit obligatoirement être remplie (ici avec des nombres)

Qui peut m'aider ?

Merci.

Bonne journée.

[Menhir]

Code :

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

1
2
3
For Each c In Worksheets("FACTURES").Range("$H2:$H1350")
    c.EntireRow.Hidden = (c.Text <> "" And c.Offset(0, -3).Text <> "")
Next c

[Olivierporcinet]

Toujours le problème.

Les lignes dont la colonne E est vide s'affichent également

[Menhir]

Pour qu'une ligne soit masquée, est-ce qu'il faut que E et H soient vides ou suffit-il qu'un seul soit vide ?

[Olivierporcinet]

la ligne doit apparaître si H est vide et E non vide

[Menhir]

Et tu ne penses pas que tu aurais pu modifié le code donné en réponse #2 pour ces conditions ?