Macro- Masquer lignes sous condition

Bonjour à tous,

Je n'ai jamais fait de VBA mais j'essaye de faire comme je peux avec ce que je peux trouver et apprendre au fur et à mesure ; bref, je débute ^^

J'aimerai créer une macro qui me permet de masquer toutes les lignes si la cellule (i, 5) contient "Fermé".
Et je fais une boucle jusqu'à ce qu'on arrive à une cellule vide.

Pour le moment, j'ai créé ça mais ça ne marche pas.
Disons qu'il y a doit y avoir un problème car ça me masque la 4ème ligne alors que la cellule >< "Fermé".

Code:

---

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

Sub MasquerTickets()   i = 4 Do While Cells(i, 5) <> ""   If Cells(i, 5) = "Fermé(e)" Then Selection.EntireRow.Hidden = True End If i = i + 1 Loop   End Sub

---

Merci pour votre aide !

Bonjour,

teste avec ceci :

Code:

---

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

Sub MasquerTickets()   Dim Plage As Range Dim I As Long   With ActiveSheet 'défini la plage sur la colonne E à partir de E4 Set Plage = .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(xlUp))   End With   For I = 1 To Plage.Count   If Plage(I) = "Fermé(e)" Then Plage(I).EntireRow.Hidden = True   Next I   End Sub

---

Bonjour,
Pourquoi ne pas passer par un filtre simple ou avancé (manuellement ou par code VBA si cela s'impose) car c'est ce que fait un filtre, masquer les lignes qui ne répondent pas aux conditions.

Citation:

---

Envoyé par Theze

Bonjour,

teste avec ceci :

Code:

---

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

Sub MasquerTickets()   Dim Plage As Range Dim I As Long   With ActiveSheet 'défini la plage sur la colonne E à partir de E4 Set Plage = .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(xlUp))   End With   For I = 1 To Plage.Count   If Plage(I) = "Fermé(e)" Then Plage(I).EntireRow.Hidden = True   Next I   End Sub

---

---

Merci beaucoup ! Ca fonctionne très bien.
Je n'ai pas tout bien compris mais c'est parfait. Je vais quand même essayer de comprendre entièrement comment elle fonctionne. Mais merci encore !

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,
Pourquoi ne pas passer par un filtre simple ou avancé (manuellement ou par code VBA si cela s'impose) car c'est ce que fait un filtre, masquer les lignes qui ne répondent pas aux conditions.

---

Oui je sais bien que je peux passer par un filtre mais j'aimerai ne pas en utiliser pour masquer les lignes inutiles. Et elle me servira pour autre chose. ;)
Mais merci quand même ^^

9 ans après ce post est toujours utile, j'ai exactement le même souci, j'ai copié collé la macro en modifiant fermé(e) en terminé
mais ca ne fonctionne pas (j'ai fait ctrl alt F8)

pourriez vous m'aider?
merci!!!

Bonjour,
Il y probablement aussi cette partie la du code à modifier

Code:

---

1 2 3 4 5

With ActiveSheet 'défini la plage sur la colonne E à partir de E4 Set Plage = .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(xlUp))   End With

---

Si tu nous en disait un peu plus sur ce que tu cherches a faire, on pourrait te répondre avec certitude.

Bonjour.

Je suis toujours sur l'amélioration de mon devis où il ne me reste à priori qu'une seule formule pour le finaliser.

Je souhaite grâce à un bouton masquer, faire disparaître les lignes selon plusieurs conditions.

Exemple:
Colonne A= Type de ligne de la colonne C (D= début; T= Titre; ST= Sous-Titre; L= Ligne de devis; I= Interligne; F= Fin)
Colonne C= Quantité de vente

J'ai déjà des fonction "masquer selon valeur =0" mais celui-ci me paraît plus complexe.
J'ai aussi imaginé faire une formule dans le tableur avec des 0 et 1 selon les chapitres mais je suis convaincu qu'il existe une méthode plus "pro"

L'idée est de:
- Toujours afficher le début "D" et la fin "F". En soit, il suffit de faire attention à la zone de sélection.
- Masquer les lignes de devis pour lesquelles la cellule en colonne C = à 0, facile.
- Conserver les interlignes, les titres et les sous-titres au dessus de chaque ligne supérieure à 0 en colonne C, selon la colonne A. Je coince. :(

Je vous joins un exemple.

Si vous avez des pistes, je suis preneur.
Au plaisir de vous lire ;)