Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

[VB] Masquer des lignes Excel

Dernière réponse le 20 jun 2005 à 14:44:25 XRay, le 16 jun 2005 à 11:21:14

Signaler ce message aux modérateurs

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

Meilleures réponses pour « [VB] Masquer des lignes Excel » dans :

[VB 6]copier coller ligne excel Voir

Fusion de lignes sur Excel (Résolu) Voir

Nombre de ligne excel Voir

[Excel] Trier sur les lignes (horizontalement), non les colonnes VoirMicrosoft Excel est configuré par défaut pour réaliser un tri sur les colonnes (Données / Trier). Pour trier les données horizontalement, il suffit de sélectionner les données à trier, puis de cliquer sur le bouton Options et, dans le panneau...

Recherche du numéro d'une ligne EXCEL (Résolu) Voir

Créer un macro additionnant deux lignes excel Voir

Utiliser un masque sous Excel Voir

Posez votre question Répondre

Armojax, le 17 jun 2005 à 20:41:30

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

Répondre à Armojax

XRay, le 20 jun 2005 à 14:44:25

Impeccable !
Merci à toi !

Répondre à XRay

Posez votre question Répondre