Présentation d'une feuil

[Michel68000]

Bonjour,

Par soucis pratique, je voudrais cacher les ligne d'une feuille qui ne sont pas remplies.
En A1:A60 j'ai une base de noms avec les renseignements dans les colones adjacentes, supposons que la liste ne soit remplie que jusqu'a A20 je voudrais qu'il ne s'affiche que les 21 premières lignes, je garde la 21ème pour l'ajout d'un nom et le reste cad que les ligne 22 a 60 seraient cachées.
Je voudrais arriver à ça parce que en dessous de ces ligne j'ai des filtres utilisateurs.
J'espère avoir bien expliqué mon soucis, merci pour vos suggestions.

 

[skoobi]

Re : Présentation d'une feuil

Bonjour,

test ceci:

Sub cache()
Dim cellule As Range
première = 0
For Each cellule In Range("a1:a60")
   If IsEmpty(cellule) Then
      première = première + 1
      If première > 1 Then
         cellule.EntireRow.Hidden = True
      End If
   End If
Next
End Sub

 

[Michel68000]

Re : Présentation d'une feuil

Merci, j'ai pu adapter ton code a ma feuille, il y avait un problème de protection à gerer mais je m'en suis sorti.