Discussion :

[antoinepoirier]

Bonjour, j'ai une feuille excel avec des lignes cachés, lorsque je lance mes macros, cela ne fonctionne pas en raison de l'information cachée dans ces lignes... Je voudrais élaborer une macro qui va premièrement supprimer entièrement chaque lignes cachées.

J'ai fait ce bout de code, j'aimerais le compléter mais il semble que je ne définisse pas bien ma variable lp, quelqu'un peut m'aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub deletehidden()
Dim lp As Long
For lp = 256 To 1 Step -1 'loop through all columns
If Columns(lp).EntireColumn.Hidden = True Then Columns(lp).EntireColumn.Delete Else
Next
For lp = 65536 To 1 Step -1 'loop through all rows
If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else
Next
End Sub

[aziz1015]

Bonjour,

As tu vraiment besoin du Else ? Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
For lp = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1 'loop through all columns
If Columns(lp).EntireColumn.Hidden = True Then Columns(lp).EntireColumn.Delete 
Next lp
 
For lp = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 'loop through all rows
If Rows(lp).EntireRow.Hidden = True Then Rows(lp).EntireRow.Delete Else
Next lp

[antoinepoirier]

Bonjour,


Bien vu pour le else.

Cependant, il reste toujours cet erreur
Erreur de compilation : Variable non définie. (lp)

[aziz1015]

J'ai testé ça et ça marche parfaitement chez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub deletehidden()
 
Dim col, lin As Long
 
For col = Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1 'loop through all columns
If Columns(col).EntireColumn.Hidden = True Then Columns(col).EntireColumn.Delete
Next
For lin = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1 'loop through all rows
If Rows(lin).EntireRow.Hidden = True Then Rows(lin).EntireRow.Delete
Next
 
End Sub

Cordialement

[antoinepoirier]

Ça fonctionne pour les colonnes mais on dirait que le programme ne s'arrête jamais. Ça fait planter mon excel, trop de calculs on dirait !

De plus, pour les lignes, ça ne fonctionne pas... À moins que ce soit moi qui ait mal compris, mais les petits signes '+' qui font ouvrir un panneau de lignes, ce n'est pas des lignes 'hidden' en fin de compte ? Petit exemple ici :

[aziz1015]

De plus, pour les lignes, ça ne fonctionne pas... À moins que ce soit moi qui ait mal compris, mais les petits signes '+' qui font ouvrir un panneau de lignes, ce n'est pas des lignes 'hidden' en fin de compte ? Petit exemple ici :

Je pense que ce sont des données groupées ! C'est une fonction d'Excel ! + pour dissocier et - pour grouper je crois et donc ce ne sont pas des lignes masquées.

[patricktoulon]

bonjour
tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test1()
    With ActiveSheet
        For Each cel In .UsedRange
            If cel.EntireRow.Hidden = True Then cel.EntireRow.Delete
          Next  
       For Each cel In .UsedRange
         If cel.EntireColumn.Hidden = True Then cel.EntireColumn.Delete
       next    
    End With
End Sub

ou alors encore plus simple en ecriture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test2()
    With ActiveSheet
        For Each cel In .UsedRange
            If cel.EntireRow.Hidden = True Or _
            cel.EntireColumn.Hidden = True Then cel.EntireRow.Delete
        Next
    End With
End Sub

[antoinepoirier]

Merci Patrick,

Nous en sommes venus à la conclusion que mes données sont 'groupées' et non 'cachées'... Une idée ?

@Aziz Merci énormément de ton aide