Masquer des colonnes vides
bthenault
Messages postés
58
Statut
Membre
-
bthenault Messages postés 58 Statut Membre -
bthenault Messages postés 58 Statut Membre -
Bonjour,
J'utilise la formule suivantes pour masquer des lignes ayant "0":
Sub SUPRLIGNE()
Dim l As Long
For l = Cells(196, 12).Row To 1 Step -1
If Cells(l, 1).Value = "0" Then Cells(l, 1).EntireRow.Hidden = True
Next l
End Sub
Ca marche très bien, cependant je voudrai faire la même chose pour les colonnes A à H. Si elle sont vide, qu'elles soient masquées.
j'ai essayé de modifier la précédente :
Sheets(4).Select
Dim l As Long
For l = Cells(20, 1).Columns To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireColumn.Hidden = True
Next l
Mais ça ne marche pas, ça me masque qu'une colonne, c'est sûrement une question d'ordre avec "Cells" mais je ne sais pas...
Merci d'avance
J'utilise la formule suivantes pour masquer des lignes ayant "0":
Sub SUPRLIGNE()
Dim l As Long
For l = Cells(196, 12).Row To 1 Step -1
If Cells(l, 1).Value = "0" Then Cells(l, 1).EntireRow.Hidden = True
Next l
End Sub
Ca marche très bien, cependant je voudrai faire la même chose pour les colonnes A à H. Si elle sont vide, qu'elles soient masquées.
j'ai essayé de modifier la précédente :
Sheets(4).Select
Dim l As Long
For l = Cells(20, 1).Columns To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireColumn.Hidden = True
Next l
Mais ça ne marche pas, ça me masque qu'une colonne, c'est sûrement une question d'ordre avec "Cells" mais je ne sais pas...
Merci d'avance
A voir également:
- Masquer des colonnes vides
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Masquer conversation whatsapp - Guide
- Comment appeler en masquer - Guide
- Masquer amis facebook - Guide
3 réponses
Vu que j'ai aps trouvé, j'ai fait autrement à partir d'une autre celule en disant que si l'entête est vide, il faut masquer :
Sheets(1).Select
'Masquer les colonnes vides dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
'Masquer les colonnes avec texte "Vide" en en-tête dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "(Vide)" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
'Masquer les colonnes avec texte "#N/A" en en-tête dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "#N/A" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
Sheets(1).Select
'Masquer les colonnes vides dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
'Masquer les colonnes avec texte "Vide" en en-tête dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "(Vide)" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
'Masquer les colonnes avec texte "#N/A" en en-tête dans les achats en cours
For i = 64 To 38 Step -1
If Cells(11, i) = "#N/A" Then
Columns(i).EntireColumn.Hidden = True
End If
Next
