Macro masquage/démasquage de lignes

[titymax]

Bonjour à tous,

Pourriez vous m'aider pour le problème suivant :
Dans le fichier exemple joint, quel serait le code pour obtenir une macro qui permette de masquer/démasquer les lignes dont la case colonne "QTE" est vide, sans utiliser de filtre automatique.

Dans l'attente d'une réponse, je vous souhaite un excellent dimanche !!

Et merci d'avance...

NB : Je suis sous Vista et j'utilise XL2007

 

[Efgé]

Re : Macro masquage/démasquage de lignes

Bonjour titymax,
Un exemple en pièce jointe.
Cordialement

 

[Hulk]

Re : Macro masquage/démasquage de lignes

Hello,

Une autre solution pour le même résultat.

Private Sub CommandButton1_Click()

    Dim x As Range

    For Each x In Range("B2:B" & Range("B65536").End(xlUp).Row + 1)
        If x = "" Then x.EntireRow.Hidden = True
    Next x

End Sub

Cdt, Hulk.

 

[kjin]

Re : Macro masquage/démasquage de lignes

Bonjour, bonne année le géant vert 🙂
S'il n'y a pas de formule

Sub Masque()
Set T = Range([A1], [A65000].End(xlUp)).Offset(0, 1)
T.SpecialCells(xlBlanks).EntireRow.Hidden = True
End Sub

A+
kjin

 

[titymax]

Re : Macro masquage/démasquage de lignes

Bonsoir,

Merci à tous ceux qui se sont penchés sur mon problème, c'est super sympa, d'autant plus que toutes vos réponses sont pertinentes, j'ai l'embarras de choix !!!

Bonne fin de WE... et oui demain c'est le TAF.

 

[bambi]

Re : Macro masquage/démasquage de lignes

Bonjour à tous
Un petit up sur cette file car j'ai essayé d'adapter les deux macros proposées mais sans succès
Le bouton "afficher" fonctionne"
Mais aucunes des deux solutions de masquage des lignes ne marchent pour mon cas 🙁
Je vous joins mon fichier avec explications
Merci d'avance 😉

 

[Robert]

Re : Macro masquage/démasquage de lignes

Bonjour Bambi, bonjour le forum,

Regarde ton code ! La colonne C c'est la 3 et il y a 5 espaces après Cancelled !!! Sinon ça marche...

Sub cacherligne()
Dim i As Long
 
For i = Range("C65536").End(xlUp).Row To 2 Step -1
    If Cells(i, [B][COLOR=red]3[/COLOR][/B]).Value = "Cancelled     " Then [COLOR=red]'j'ai rajouté 5 espaces[/COLOR]
          Cells(i, 3).EntireRow.Hidden = True
    End If
Next i
End Sub

 

[kjin]

Re : Macro masquage/démasquage de lignes

Bonjour, salut Rob 🙂,

Sub cacherligne()
Dim i As Long
For i = Range("C65536").End(xlUp).Row To 2 Step -1
Z = Cells(i, 3).Value  'petit soucis d'espace !!!!
    If Trim(Cells(i, 3).Value) = "Cancelled" Then
          Cells(i, 3).EntireRow.Hidden = True
    End If
Next i
End Sub

A+
kjin

 

[JCGL]

Re : Macro masquage/démasquage de lignes

Bonjour à tous,

Tu as des espaces derrière ton mot : "Cancelled "

A+ à tous

 

[bambi]

Re : Macro masquage/démasquage de lignes

Quelle rapidité !! Merci à tous les trois.
Oui effectivement, il doit y avoir des espaces après "Cancelled" car je fais un copier coller d'un relevé en ligne.
J'ai refait des essais avec la 1ere correction de Robert et ça marche.
Merci beaucoup 😉

 

[kjin]

Re : Macro masquage/démasquage de lignes

Re,
Sans vouloir abuser, mieux vaut tester avec "Trim" qui supprime tout les espaces
Tu peux même en profiter pour les enlever définitivement

Sub cacherligne()
Dim i As Long
For i = Range("C65536").End(xlUp).Row To 2 Step -1
    Cells(i, 3) = Trim(Cells(i, 3))
    If Cells(i, 3).Value = "Cancelled" Then
          Cells(i, 3).EntireRow.Hidden = True
    End If
Next i
End Sub

A+
kjin

 

[bambi]

Re : Macro masquage/démasquage de lignes

Tu n'abuses pas du tout kjin, bien au contraire.
C'est effectivement beaucoup plus propre comme ça
Pour tout dire, je n'avais pas vu la différence dans le code (pas assez calée pour la voir) donc je n'avais pas testée ta macro.
Merci à toi 😉

 

[Robert]

Re : Macro masquage/démasquage de lignes

Bonjour le fil, bonjour le forum,

Si si il abuse là !!! Mais comme il a raison et qu'en plus il est voisin...

 

[JCGL]

Re : Macro masquage/démasquage de lignes

Bonjour à tous,
Salut Robert,
Salut Kjin,

Juste un coucou, je ne vous avais pas vu passer... Les deux rapides 🙂

A++
A+ à tous

 

[kjin]

Re : Macro masquage/démasquage de lignes

Re, salut JC 🙂,

...Si si il abuse là !!! Mais comme il a raison et qu'en plus il est voisin...

Si Sétois qui le dit, c'est trop gentil !
A+
kjin