Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?eDtwvvQIsS
Sub masque_lignes_vides_colonneA() Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub
Sub masque_lignes_vides_ligne_entiere() For i = 1 To [A65000].End(xlUp).Row If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True End If Next i End Sub
Sub affiche_tout() Cells.EntireRow.Hidden = False End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?eDtwvvQIsS
Sub masque_lignes_vides_colonneA()
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
Sub masque_lignes_vides_ligne_entiere()
For i = 1 To [A65000].End(xlUp).Row
If Application.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub
Sub affiche_tout()
Cells.EntireRow.Hidden = False
End Sub
Sub masque_lignes_vides_colonneA() Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub
Sub masque_lignes_vides_ligne_entiere() For i = 1 To [A65000].End(xlUp).Row If Application.CountA(Rows(i)) = 0 Then Rows(i).Hidden = True End If Next i End Sub
Sub affiche_tout() Cells.EntireRow.Hidden = False End Sub