créer une macro qui masque les lignes vides

[archi]

Bsr à tous,

je cherche un code qui me permettrai de masquer des lignes d'un tableau ("A1: D15") quand les cellules en colonne ("C") sont vides ou sont nommées ("erreur").

Si quelqu'un a une idée, il serait le bienvenue

bye

 

[SergiO]

Re : créer une macro qui masque les lignes vides

Bonsoir archi,

Essaie ceci :

Sub masquer()
Dim c As Range

For Each c In Range("C1:C15")

If c.Value = "erreur" Or c.Value = "" Then
    c.EntireRow.Hidden = True
    
End If
Next
End Sub

@+

 

[archi]

Re : créer une macro qui masque les lignes vides

merci Sergio,

maintenant, comment afficher a nouveau les lignes masquées ? (par une nouvelle macro)

bye

 

[Hervé]

Re : créer une macro qui masque les lignes vides

bonjour archi, sergio

si tu souhaites fait apparaitre toutes les lignes :

Rows.Hidden = False

salut

 

[archi]

Re : créer une macro qui masque les lignes vides

Merci Hervé
bye

 

[archi]

Re : créer une macro qui masque les lignes vides

dernière chose,

comment transformer le code de facon à ce que je puisse masquer les lignes du tableau en fonction de la valeur d'une seule cellule ("D6")= "erreur"

merci
bye

 

[porcinet82]

Re : créer une macro qui masque les lignes vides

Salut,

Pas tres clair ta nouvelle question. Tu veux masquer les lignes d'un tableau si la cellule D6 contient erreur, jusque la j'arrive a peu pres a te suivre. Mais la ou je me pose des questions, c'est quelles lignes veut tu masquer, puisque tu ne tiens compte que de la veleur d'une seule cellule ???

@+

 

[archi]

Re : créer une macro qui masque les lignes vides

masquer les lignes du tableau ("A7: D15")
@+

 

[porcinet82]

Re : créer une macro qui masque les lignes vides

re,

Et bien à vue de nez, je dirai un truc de ce genre :

Sub masquer_v2()[LEFT]If Range("D6").Value = "erreur" Then
      Rows("7:15").EntireRow.Hidden = True
End If
End Sub

@+
[/LEFT]

 

[archi]

Re : créer une macro qui masque les lignes vides

merci porcinet
bye