Discussion :

[Olivierporcinet]

Bonjour,


Je désire masquer les lignes vides de mon tableau

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Bouton2_Cliquer()
dl = Cells.SpecialCells(xlLastCell).Row
    For i = dl To 1 Step -1
     If Cells(i, 3) = "" Then
      Rows(i).Hidden = True
     End If
    Next i
End Sub

Cela fonctionne.... mais

Les titres des colonnes restent visibles (ce qui m'intéresse) mais le titre de mon tableau au dessus des colonnes n'apparaît pas.

Qui peut m'aider ?

merci.

Bonne journée.

[aziz1015]

Je ne comprends pas pourquoi le titre de la colonne au-dessus de votre tableau disparaît.

Ce qui veut dire que le Cells(i,3) de la ligne contenant le titre de votre tableau est vide. A vous de ne pas inclure cette ligne dans votre condition.

Bien cordialement,

[Olivierporcinet]

Je joins mon fichier en annexe

[aziz1015]

Bonjour,

Il faut changer l'index de départ dans votre boucle For

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 
For i = dl To 1 Step -1
 
devient
 
For i = dl To 6 Step -1

Si vous êtes sûr que vos entêtes seront toujours à la ligne 6.

Bien cordialement,