Discussion :

[yaelito]

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 :

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

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 !

[Theze]

Bonjour,

teste avec ceci :

Code :

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
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

[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.

[yaelito]

Bonjour,

teste avec ceci :

Code :

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
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 !

[yaelito]

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 ^^

[Hexakosia]

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!!!

[halaster08]

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

Code :

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

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.

[PANANTES]

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