masquer ligne vide d'un tableau

[babyroots]

Bonjour, j'ai un tableau qui va de a8 à k403 et je voudrais créer une macro pour masquer les lignes vide de ce tableau
Merci d'avance
@+++

 

[GillesC]

Re : masquer ligne vide d'un tableau

Bonjour à tous
A tester :
Sub Masquer_Lignes_Vides()
'

Range("A8:A403").Select
For Each Cell In Selection
Cpt = 0
For i = 0 To 11
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then
Cell.EntireRow.Hidden = True
End If
Next

End Sub

 

[babyroots]

Re : masquer ligne vide d'un tableau

Merci beaucoup ca marche super
c'est super sympa de ta part merci encore
@+++

 

[Gérard DEZAMIS]

Re : masquer ligne vide d'un tableau

Bonjour Babyroots et Gilles
En ajoutant (lignes rouges) cela rend la procédure plus rapide et moins scintillante

Sub Masquer_Lignes_Vides()
Application.ScreenUpdating = False
Range("A8:A403").Select
...
...
Next
Application.ScreenUpdating = True
End Sub

@+GD

 

[GillesC]

Re : masquer ligne vide d'un tableau

Bonjour Gérard, tu as effectivement raison, qui peut le plus peut le moins!
Soyons puristes jusqu'au bout : au cas où le tableau serait modifié, il faut que les lignes réapparaissent :
donc :
Sub Masquer_Lignes_Vides()

Application.ScreenUpdating = False

Range("A1:A10").Select
For Each Cell In Selection
Cpt = 0
For i = 0 To 11
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then
Cell.EntireRow.Hidden = True
Else
Cell.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True

End Sub

 

[syl51100]

Re : masquer ligne vide d'un tableau

elle est super cette macro c'est exactement ce que je recherchai, merci à tous vous êtes trop fort !