[VB] Masquer des lignes Excel

XRay -  
 XRay -
Bonjour,
je voudrai savoir si qq'un a une solution a mon problème:
en fait, je voudrai masquer des lignes qui ne sont pas utilisées.
Donc je boucle tant que je ne trouve pas de case vide mais ensuite je ne sais pas comment masquer toutes les lignes suivantes jusqu'a la ligne 57.
Voici mon débt de code:

Range("A1").Select
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop

et si j'utilise la méthode:
Rows("x:87").EntireRow.Hidden = True
j'ai besoin du numéro de la ligne (ici:x) et je voudrai la remplacer par la ligne en cours (la première qui est vide)

Qq'un a-t-il un soluce ?
Merci d'avance
A voir également:

2 réponses

Réponse 1 / 2
Armojax Messages postés 1860 Date d'inscription   Statut Membre Dernière intervention   1 528
 
Hello XRay,

Essaie ça : 
Sub Masquer()

  Dim I As Long
  
  I = 1
  Do While I < 58
    If Cells(I, 1).Value = "" Then
      Cells(I, 1).EntireRow.Hidden = True
    End If
    I = I + 1
  Loop

End Sub
6
Réponse 2 / 2
XRay
 
Impeccable !
Merci à toi !
0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses
remettre toutes les colonnes et les lignes masquées
mousaillon -
oumnas -

4 réponses
Probleme d'affichage de ligne dans Excel
sammy79 -
Pierre65 -

12 réponses