Masque lignes et colonnes

VALNOE2626 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention - 20 oct. 2016 à 10:53

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

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'avance

Valérie

Afficher la suite

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

Réponse 1 / 1

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

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

Discussions similaires

Comment faire un masque sous word ?

Contenue masqué

Afficher toutes les lignes masquées excel

remettre toutes les colonnes et les lignes masquées

Probleme d'affichage de ligne dans Excel

EDIT : Ajout des balises de code

Votre réponse

Discussions similaires