Masquer les colonnes vides
VALNOE2626
Messages postés
12
Statut
Membre
-
valnoe -
valnoe -
Bonjour,
J'ai créé une macro pour masquer les colonnes vides.
Le problème est que ça ne masque que la ligne 6, alors que je voudrais que soit maquer les colonnes vides sur une sélection de lignes de 6 à 125.
Pouvez vous m'aider.
Ma macro
Sub Masquer()
'Masque les colonnes où L3=X
Application.ScreenUpdating = False
Dim i As Integer
For i = 6 To 114
If Cells(6, i) = "" Then
Columns(i).Hidden = True
Else: Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Merci
Valérie
J'ai créé une macro pour masquer les colonnes vides.
Le problème est que ça ne masque que la ligne 6, alors que je voudrais que soit maquer les colonnes vides sur une sélection de lignes de 6 à 125.
Pouvez vous m'aider.
Ma macro
Sub Masquer()
'Masque les colonnes où L3=X
Application.ScreenUpdating = False
Dim i As Integer
For i = 6 To 114
If Cells(6, i) = "" Then
Columns(i).Hidden = True
Else: Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Merci
Valérie
1 réponse
-
Bonjour,
Sub Masquer()
Dim i As Integer
'Masque les colonnes où L3=X
Application.ScreenUpdating = False
For i = 6 To 114
If Application.CountIf(Cells(6, i).Resize(120), "<>") = 0 Then
Columns(i).Hidden = True
Else
Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
A+-
-
Sub Masquer()
Dim i As Integer
Application.ScreenUpdating = False
Cells.Columns.Hidden = False
For i = 6 To 114
If Application.CountIf(Cells(6, i).Resize(120).SpecialCells(xlCellTypeVisible), "<>") = 0 Then
Columns(i).Hidden = True
Else
Columns(i).Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
A+ -
-
Il faudrait que tu joignes le fichier pour m'aider à comprendre ce qui ne fonctionne pas ....
Pour cela, tu peux utiliser https://www.cjoint.com/
A+ -
-
