Macro masquer les lignes

**desatan** · 05/05/2012, 18h24

Bonjour,

Dans le fichier joint j'ai des colonnes et des lignes. Certaine cellule comporte des nombres et d'autres sont vides (plage de B à M).
Il y a des lignes où tout est vide comme les lignes 5, 14, 15, 24.

Pouvez-vous me donner une macro qui me permette de masquer les lignes où tout est vide ?

Merci par avance

**philo6** · 05/05/2012, 19h10

Bonjour
voici deux macros,
1 pour Masquer

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub LigneVide()
Dim i As Integer
    Application.ScreenUpdating = False
      Lignes = Range("A65535").End(xlUp).Row
        For i = Lignes To 1 Step -1
            If Application.WorksheetFunction.CountA(Rows(i)) = 1 Then Rows(i).Hidden = True
        Next i
    Application.ScreenUpdating = True
End Sub

Et une pour Afficher

Code :

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

1
2
3
4
5
6
 
Sub AfficheVide()
    Application.ScreenUpdating = False
       Cells.EntireRow.Hidden = False
    Application.ScreenUpdating = True
End Sub

**desatan** · 07/05/2012, 10h55

Bonjour,

Merci pour votre aide.
Mais la macro ne fonctionne pas car en bout de ligne j'ai une formule qui renvoie une valeur.
Ci joint mon fichier. Ce que je souhaite, c'est masquer automatiquement les lignes complètes lorsque les cellules de T à AB sont vides même si il y a des valeurs de AC à AF.

Merci par avance

**philo6** · 07/05/2012, 12h31

Re
Si la macro fonctionne pour l'exemple que tu avais, maintenant les données sont différentes!!

Voici une adaptation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub ligneVide2()
 Dim i As Integer
 Application.ScreenUpdating = False
 With ActiveSheet
     For i = 7 To .Cells(Rows.Count, 29).End(xlUp).Row
         If Application.WorksheetFunction.Sum(.Range(.Cells(i, 20), .Cells(i, 28))) = 0 Then Rows(i).Hidden = True
     Next i
 End With
 Application.ScreenUpdating = True
 End Sub

**desatan** · 07/05/2012, 15h29

extra ca fonctionne merci

Mais pour que je puisse la transposer, peux tu m'expliquer ?

Par exemple si ma plage de données change, comment je lui dit ?

A correspond dans ta macro, le 7 ? 29? 20? et 28?

Encore merci

**fring** · 07/05/2012, 17h04

Bonjour,

Code :

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

For i = 7 To .Cells(Rows.Count, 29).End(xlUp).Row

cela signifie de la ligne 7 à la dernière ligne utilisée de la colonne 29 (AC)

Code :

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

.Range(.Cells(i, 20), .Cells(i, 28))

= plage de cellules de la ligne i (en fonction de la boucle For...Next), de la colonne 20 (T) à la colonne 28 (AB)
Par exemple au premier passage de la boucle, la plage de cellules sera Range("T7:AB7")

**desatan** · 07/05/2012, 17h59

ok compris merci

Mais je souhaite qu'il ne fasse que de la ligne 7 à la ligne 40, je lui dit comment ?

**fring** · 07/05/2012, 18h06

Envoyé par desatan

ok compris merci

Apparemment non... tu n'as pas vraiment compris le fonctionnement de la boucle For...Next

For i = premièreligne To dernièreligne

donc si tu veux que la première ligne de la boucle soit la 7 et que la dernière ligne de la boucle soit la 40 ça donne...?

**desatan** · 07/05/2012, 18h10

Quand je mets çà :

Code :

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

For i = 7 To 40.Cells(Rows.Count, 37).End(xlUp).Row

Il me dit : erreur de compilation ?

Je disais compris pour les numéros qui correspondent aux colonnes

**fring** · 07/05/2012, 18h24

Si on ne connait pas la dernière ligne d'une colonne jusqu'à laquelle il faut boucler, on la recherche de cette manière (par exemple pour la colonne B)

Code :

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