Mettre plusieurs condition .Value

Bonjour,

Voici on code :

Code:

---

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.

Code:

---

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

---

Toujours le problème.

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

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 ?

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

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

j’essaie de me débrouiller en VBA.... ce n'est pas facile, désolé

Bonjour Menhir et Olivier,

Voici un code qui devrait te contenter. Par ailleurs... Tu as un nombre incalculable de lignes inutiles. Je te conseille de les supprimer, cela fait effectuer des calculs inutiles à Excel.

Mea culpa, la mise en forme des lignes se situant en-dessous m'a perturbé. Retire-la, pour plus de lisibilité - à mon avis.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub FACTURES_Bouton9_Cliquer() Dim Wb As ThisWorkbook Dim WBO As Worksheet Dim t As ListObject Dim Cible As Range   Set WBO = ThisWorkbook.Sheets("FACTURES") Set t = WBO.ListObjects("t_data")   For Each Cible In t.ListColumns(4).DataBodyRange If Not Cible.Offset(0, 4).Value <> "" And Cible.Offset(0, 1).Value <> "" Then Cible.EntireRow.Hidden = False Else Cible.EntireRow.Hidden = True End If Next Cible Rows(t.dataBodyRange.Rows.Count + 2 & ":" & Columns(1).Rows.Count).EntireRow.Hidden = True 'Ou bien supprimer les mises en forme... End Sub

---

Bonjour,


Merci beaucoup, super ! :D

Je pense que je vais réjouter

Code:

---

Application.ScreenUpdating = False

---

et

Code:

---

Application.ScreenUpdating = True

---

Afin de gagner du temps dans le travail d'Excel



Est-t-il possible également de n'afficher que les lignes concernées avec ce code (qui fonctionne super) - ceci afin d'éviter d'avoir beaucoup de lignes vides en-dessous du résultat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ATTESTATIONSDESOINS_Bouton8_Cliquer()   Dim c As Range Application.ScreenUpdating = False For Each c In Worksheets("ATTESTATIONS DE SOINS").Range("$G2:$G900") With c .EntireRow.Hidden = False If .Value <> "" Then .EntireRow.Hidden = True End With Next c Application.ScreenUpdating = True   End Sub

---

Je pense que tu as tous les outils en main pour adapter le précédent code à ton nouveau besoin. Ca m'a l'air d'être en tout point identique, tu as juste à changer tes colonnes.

Application.ScreenUpdating est bien une fois que le code est fonctionnel. Pour le test, il est déconseillé de l'utiliser puisque tu ne vois pas du tout l'avancement de ton code.

Bonjour,

Un tout grand merci. :D

Bon week-end