Discussion :

[desatan]

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]

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]

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]

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]

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]

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