[VB] Masquer des lignes Excel Fermé

Question

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

Armojax · Accepted Answer

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

XRay · Answer

Impeccable !Merci à toi !

[VB] Masquer des lignes Excel

2 réponses

Discussions similaires