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