XL 2019 Excel 2019 VBA macro masquer lignes et colonnes vides

S

sofmat

XLDnaute Junior
Bonjour, J'essaie de masquer toutes les colonnes et lignes vides de mon tableau sur excel 2019. Concernant les colonnes, j'ai trouvé une macro qui fonctionne mais j'aimerai que cette macro masque également les lignes vides. J'ai testé une deuxième macro pour les lignes vides mais cela ne fonctionne pas. De plus j'aurai aimé n'avoir qu'une seule macro qui masque les lignes et les colonnes vides. Pouvez-vous m'aider ? Merci beaucoup.
 

Pièces jointes

  • macro_plan.xlsm
    259.7 KB · Affichages: 11
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Bonjour

il te suffisait de reproduire ta macro "masquer colonne"

VB: 
Sub Cacher_lignevide()
Dim cellule As Range

Application.ScreenUpdating = False
Rows("1:190").Hidden = False

For i = 1 To 190
    Masquer = True
    For Each Cel In Cells(i, 1).Resize(1, 200).SpecialCells(xlCellTypeVisible)
        If Val(Cel.Value) > 0 Or (Cel.Value) <> "" Then
            Masquer = False
            Exit For
        End If
    Next Cel
    If Masquer Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
bah si ca marche !
si tu masques les colonnes puis les lignes ca marche très bien
et si tu veux mettre les fonctions en meme temps.. suffit de déplacer le code dans la meme macro que masquer colonne

ou alors tu fais une macro qui appelle successivement les deux macros de masquage
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
remplace par ce code: pour ne plus afficher les lignes qui contiennent autre chose que des valeurs
VB: 
Sub Cacher_lignevide()
Dim cellule As Range

Application.ScreenUpdating = False
Rows("1:190").Hidden = False

For i = 1 To 190
    Masquer = True
    For Each Cel In Cells(i, 1).Resize(1, 200).SpecialCells(xlCellTypeVisible)
        If Val(Cel.Value) > 0 Then 'Or (Cel.Value) <> ""
            Masquer = False
            Exit For
        End If
    Next Cel
    If Masquer Then Rows(i).Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour le fil

vgendron
Si tu mets cette formule en colonne GJ
=NBVAL(A1:GI1)
Tu n'obtiens 0 qu'à partir de la cellule GJ91

Donc les lignes au dessus qui semblent vides ne sont pas masquées.

NB: Sauf erreur, les codes des messages #2 et #5 sont les mêmes, non ?
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
bon pour faire simple
la macro qui masque les colonnes, postée par le demandeur garde les colonnes dans lesquelles il y a au moins une valeur ==> que du texte=colonne masquée

je me suis donc contenté de faire la meme chose pour les lignes
sauf que j'avais ajouté une condition "if cel.value<>""
ce qui laissait les lignes contenant que du texte (post 2)

j'ai corrigé en post 5 (qui n'est donc pas le meme que le 2) pour masquer les lignes ne contenant QUE du texte

au final, les deux macros masquer colonne + masquer ligne me donne
6 lignes affichées et 27 colonnes
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

vgendron
J'ai plus 20 ans ;)
Et un guillemet isolé au milieu d'une ligne de code, bah, je le vois plus ;)
Désolé pour le dérangement

J'en profite pour confirme que le masquage se fait bien (ligne et colonne)

Par contre, ce faisant, j'ai tué mon Excel
(je devais avoir trop de classeurs ouverts)
 
Vote positif 0 Vote négatif
sylvanu

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Softmat, Vgendron, Staple,
Un essai en PJ avec :
VB: 
Sub Masquage()
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    Lmax = 90: Cmax = 191               ' A adapter
    For L = 1 To Lmax
        Set Plage = Range(Cells(L, 1), Cells(L, Cmax))
        If Application.CountIf(Plage, "><") + Application.CountIf(Plage, ">0") = 0 Then Rows(L).Hidden = True
    Next L
    For C = 1 To Cmax
        Set Plage = Range(Cells(1, C), Cells(Lmax, C))
        If Application.CountIf(Plage, "><") + Application.CountIf(Plage, ">0") = 0 Then Columns(C).Hidden = True
    Next C
End Sub
 

Pièces jointes

  • macro_plan (Enregistré automatiquement).xlsm
    261.4 KB · Affichages: 0
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Bonjour à tous,
Une autre méthode à tester
VB: 
Sub Hide_Empty_Rows_And_Columns()
    Dim Lastcell As Range: Set Lastcell = ActiveSheet.UsedRange.SpecialCells(xlLastCell)
    Dim C: For C = Lastcell.Column To 1 Step -1
        Select Case True
        Case ActiveSheet.Columns(C).Hidden
        Case WorksheetFunction.CountA(ActiveSheet.Columns(C)) > 0
        Case Else: ActiveSheet.Columns(C).EntireColumn.Hidden = True
        End Select
    Next
    Dim R: For R = Lastcell.Row To 1 Step -1
        Select Case True
        Case ActiveSheet.Rows(R).Hidden
        Case WorksheetFunction.CountA(ActiveSheet.Rows(R)) > 0
        Case Else: ActiveSheet.Rows(R).EntireRow.Hidden = True
        End Select
    Next
End Sub
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Merci sylvanu
Je me suis souvenu
(oui ca rime ;))
VB: 
Sub Masquer_Lignes()
Application.ScreenUpdating = False
'basée sur l'idée de Sylvanu
Range("GJ1:GJ190") = "=IF(COUNTIF(RC[-191]:RC[-1],""><"")+COUNTIF(RC[-191]:RC[-1],"">0"")=0,""$$$"",0)"
Range("GJ1:GJ190") = Range("GJ1:GJ190").Value
Range("GJ1:GJ190").SpecialCells(xlCellTypeConstants, 2).EntireRow.Hidden = True
Range("GJ1:GJ190") = ""
End Sub
 
Vote positif 0 Vote négatif
fanch55

fanch55

XLDnaute Barbatruc
Pour développer et compléter le "Total recall" de @Staple1600 :
VB: 
Sub Masquer_Lignes_et_Colonnes()
Application.ScreenUpdating = False
'basée sur l'idée de Sylvanu
    C = ActiveSheet.UsedRange.Columns.Count + 2
    With Range(Cells(1, C), Cells(ActiveSheet.UsedRange.Rows.Count, C))
        Plage = "A1:" & Cells(1, C - 2).Address(False, False)
        .FormulaLocal = "=SI(NB.SI(" & Plage & ";""><"")+NB.SI(" & Plage & ";"">0"")=0;""$$$"";0)"
        .Value = .Value
        .SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Hidden = True
        .Clear
    End With
    
    R = ActiveSheet.UsedRange.Rows.Count + 2
    With Range(Cells(R, 1), Cells(R, ActiveSheet.UsedRange.Columns.Count))
        Plage = "A1:" & Cells(R - 2, 1).Address(False, False)
        .FormulaLocal = "=SI(NB.SI(" & Plage & ";""><"")+NB.SI(" & Plage & ";"">0"")=0;""$$$"";0)"
        .Value = .Value
        .SpecialCells(xlCellTypeConstants, xlTextValues).EntireColumn.Hidden = True
        .Clear
    End With
End Sub
Ce qui ne fait guère moins de lignes que mon post #10, mais peut-être et surement moins de temps ...
 
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Bonjour à tous,

Testez :
VB: 
Sub Masquer()
Dim r As Range
Application.ScreenUpdating = False
Rows.Hidden = False
Columns.Hidden = False
For Each r In ActiveSheet.UsedRange.Rows
    If Evaluate("SUMPRODUCT((TRIM(" & r.Address & ")<>"""")*(" & r.Address & "<>0))") = 0 Then r.Hidden = True
Next
For Each r In ActiveSheet.UsedRange.Columns
    If Evaluate("SUMPRODUCT((TRIM(" & r.Address & ")<>"""")*(" & r.Address & "<>0))") = 0 Then r.Hidden = True
Next
End Sub
Les lignes ou colonnes qui sont vides ou ne contiennent que des textes vides "", espaces ou zéros sont masquées.

A+
 

Pièces jointes

  • macro_plan(1).xlsm
    260.3 KB · Affichages: 0
Vote positif 0 Vote négatif
job75

job75

XLDnaute Barbatruc
Si la feuille contient des valeurs d'erreur (exemple en A1) il y a bug avec ma macros précédente.

Pour y remédier utiliser CStr :
VB: 
Sub Masquer()
Dim r As Range
Application.ScreenUpdating = False
Rows.Hidden = False
Columns.Hidden = False
For Each r In ActiveSheet.UsedRange.Rows
    If CStr(Evaluate("SUMPRODUCT((TRIM(" & r.Address & ")<>"""")*(" & r.Address & "<>0))")) = "0" Then r.Hidden = True
Next
For Each r In ActiveSheet.UsedRange.Columns
    If CStr(Evaluate("SUMPRODUCT((TRIM(" & r.Address & ")<>"""")*(" & r.Address & "<>0))")) = "0" Then r.Hidden = True
Next
End Sub
 

Pièces jointes

  • macro_plan(2).xlsm
    260.4 KB · Affichages: 6
Vote positif 0 Vote négatif

Discussions similaires

C
  • Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
282
chris63
C
oguruma
POWERQUERY :: Supprimer les lignes et colonnes vides
Réponses
0
Affichages
335
oguruma
oguruma
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
444
Nel'
N
N
  • Question
XL 2016 Récupération de lignes dans un autre fichier excel
Réponses
4
Affichages
337
ninieg
N
V
  • Question
Microsoft 365 affichage sélectif tableau croisé dynamique
2
Réponses
21
Affichages
1 K
vincent Blanchard
V
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
712
ThomAnalyses
T
C
  • Question
Microsoft 365 Excel menu contextuel lignes et colonnes
Réponses
6
Affichages
517
Chris5633
C
halecs93
  • Question
XL 2016 Masquer et afficher lignes
Réponses
3
Affichages
378
gbinforme
G
A
  • Résolu(e)
Microsoft 365 NB.SI sous condition_fusionner deux formules
Réponses
10
Affichages
204
job75
job75
R
  • Résolu(e)
XL 2019 supprimer lignes vides qui ont été coupées - collées
Réponses
6
Affichages
470
rh.finances
R

Membres actuellement en ligne

2 membres et 78 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki