Macro masquer les lignes

Version imprimable

05/05/2012, 17h24
desatan

1 pièce(s) jointe(s)

Macro masquer les lignes

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

Bonjour
voici deux macros,
1 pour Masquer

Code:

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:

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

07/05/2012, 09h55
desatan

1 pièce(s) jointe(s)

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

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

Voici une adaptation

Code:

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

07/05/2012, 14h29
desatan

extra ca fonctionne merci :ccool:

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
07/05/2012, 16h04
fring

Bonjour,

Code:

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:

.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")
07/05/2012, 16h59
desatan

ok compris merci :ccool:
Mais je souhaite qu'il ne fasse que de la ligne 7 à la ligne 40, je lui dit comment ?
07/05/2012, 17h06
fring

Citation:

Envoyé par desatan

ok compris merci :ccool:

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...?
07/05/2012, 17h10
desatan

Quand je mets çà :

Code:

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 :ccool:
07/05/2012, 17h24
fring

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:

Cells(Rows.Count, 2).End(xlUp).Row

Par contre si tu veux boucler jusqu'à la ligne 40, il suffit d'écrire

Code:

For i = 7 To 40
07/05/2012, 17h31
desatan

Super :ccool::ccool:
Merci pour l'aide et les explications ;)