masquer ligne si lignes des colonnes B à G vides

[la fifine]

bonsoir
j'ai trouvé ici ce code pour masquer des lignes (question souvent répètée)

Sub Masquer_Lignes_Vides()

Application.ScreenUpdating = False

Range("A8:A1200").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

mais ce que j'aimerais c'est qui si les lignes des colonnes b à g sont vides alors masquer lignes
mais j'aimerais aussi que:
sachant que j'ai des dates en colonnes A, seules soient effacées les dates inférieures à aujourdhui()
merci
je fais un essai si l'éxécution de la macro est trop longue à cause du nombre de lignes à traiter je laisserai tomber

 

[Pierrot93]

Re : masquer ligne si lignes des colonnes B à G vides

Bonjour,

essaye peut être ceci, si j'ai bien compris :

Option Explicit
Sub test()
Dim i As Long
With Application
    .ScreenUpdating = False
    For i = 2 To Range("A65536").End(xlUp).Row
        If Cells(i, 1).Value < Date And .CountA(Cells(i, 2).Resize(, 6)) = 0 _
            Then Rows(i).Hidden = True
    Next i
    .ScreenUpdating = True
End With
End Sub

bonne journée
@+

 

[la fifine]

Re : masquer ligne si lignes des colonnes B à G vides

bonjour pierrot
je vais essayé ce code
mais pour ma culture perso
comment tu traduit cette partie du code

If Cells(i, 1).Value < Date And .CountA(Cells(i, 2).Resize(, 6)) = 0 _
Then Rows(i).Hidden = True

surtout ce "resize" qui veut dire en mot à mot "redimensionner" en français
merci

 

[Pierrot93]

Re : masquer ligne si lignes des colonnes B à G vides

Bonjour,

surtout ce "resize" qui veut dire en mot à mot "redimensionner" en français
merci

le ".CountA" est l'utilisation de la fonction Excel "NBVAL", "resize" permet de redimensionner la plage sur laquelle cette fonction va s'appliquer à partir de la colonne B (le 2 du cells) je redimensionne sur 6 colonnes....

bonne journée
@+

 

[la fifine]

Re : masquer ligne si lignes des colonnes B à G vides

bonjour
merci pour le petit cours de vba
je peux lire et je comprends le code maintenant