Masque lignes et colonnes
VALNOE2626
Messages postés
12
Statut
Membre
-
jordane45 Messages postés 40051 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 40051 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai créé une macro pour masquer les lignes et les colonnes vides sur une plage allant de :
colonne 6 à 94
lignes : 5 à 125
cela fonctionne pour les colonnes mais pas pour les lignes, qui peut me dire pourquoi
Valérie
J'ai créé une macro pour masquer les lignes et les colonnes vides sur une plage allant de :
colonne 6 à 94
lignes : 5 à 125
cela fonctionne pour les colonnes mais pas pour les lignes, qui peut me dire pourquoi
Sub Masquer()
Dim i As Integer, Cel As Range, Col As Range, Vide As Boolean
Application.ScreenUpdating = False
Cells.Columns.Hidden = False
For i = 6 To 94
Vide = True
Set Col = Feuil6.Cells(7, i).Resize(125, 1)
For Each Cel In Col.SpecialCells(xlCellTypeVisible)
If Not Cel = "" Then Vide = False: Exit For
Next
Columns(i).Hidden = Vide
Next i
Application.ScreenUpdating = True
End Sub
EDIT : Ajout des balises de code
Merci d'avanceValérie
A voir également:
- Masque lignes et colonnes
- Numero masque - Guide
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Numero masque code - Guide
- Inverser deux colonnes excel - Guide
1 réponse
Bonjour,
Tu fais du columns(i).hidden ... mais jamais de Rows(i).hidden
En plus.. pour vérifier si une colonne (ou une ligne) est vide tu peux simplement utiliser un count..
cela fonctionne pour les colonnes mais pas pour les lignes, qui peut me dire pourquoi
Tu fais du columns(i).hidden ... mais jamais de Rows(i).hidden
En plus.. pour vérifier si une colonne (ou une ligne) est vide tu peux simplement utiliser un count..
'exemple pour la colonne D
if WorksheetFunction.CountA(Columns("D")) = 0 then
msgbox("La colonne D est vide")
end if
