Discussion :

[chaouch anouar]

j`ai un document excel qui contient pleusieur feuilles je veut suprimer les feuilles vide et les lignes et les colonnes vide automatiquement pour cela j ai fait un macro voila le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub supsupFlu()
Dim Sht As Worksheet
Set aSh = ActiveSheet
 
Application.ScreenUpdating = False
For Each Sht In ActiveWorkbook.Worksheets
    Sht.Activate
    ActiveSheet.UsedRange
    Selection.SpecialCells(xlLastCell).Select
    Application.DisplayAlerts = False
    If ActiveCell.Address = "$A$1" And IsEmpty(ActiveCell) Then
        Sht.Delete
      Else
        ActiveCell.Offset(1, 1).Select
        Range(Selection, Selection.End(xlDown)).EntireRow.Hidden = True
        Range(Selection, Selection.End(xlToRight)).EntireColumn.Hidden = True
    End If
Next Sht
End Sub

mais il y a une erreur : Run-time erreur `1004`

j`attend vous aide merci

[ouskel'n'or]

Ce message peut... peut-être... survenir si toutes tes feuilles sont vides... Excel exige d'avoir au moins une feuille dans un fichier.
Mais tu utilises Activecell. Tu peux déjà corriger ça

Code :

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

1
2
3
4
5
6
7
8
Application.DisplayAlerts = False
For Each Sht In ActiveWorkbook.Worksheets
    if Sht.UsedRange.SpecialCells(xlLastCell).address = "$A$1" and _
       Sht.Range("$A$1") = "" then
        Sht.Delete
    End If
Next Sht
End

Ton Else, si j'ai bien compris ce que tu cherches à faire, ne sert à rien. UsedRange donne la plage de cellules renseignées, toute ta plage. Ton else cherche donc à effacer des cellules vides.
Une autre chose : N'utilise pas ici IsEmpty. Si ta cellule a contenu quelque chose effacé par la suite, elle n'est pas vide, elle contient ""
(en fait elle contient des caractères de contrôles invisibles)

[Invité]

Bonjour,

A priori ce code fonctionne très bien, mais êtes-vous certain qu'au moins une des feuilles n'est pas de la cas défini pour la suppression ?

Car il est impossible de supprimer la dernière feuille restante.

[chaouch anouar]

merci pour votre reponse et svp de m`expliquer plus le probleme
j ecrit un autre macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Sub DelFeeuilleVide()
Dim x As Worksheet
Set LaCell = ActiveCell
Set MaFeuille = ActiveWorkbook.ActiveSheet
On Error Resume Next
For Each x In ActiveWorkbook.Worksheets
x.Activate
Selection.SpecialCells(xlLastCell).Select
LeTestFeuil = True
Exit For
Next
If ActiveCell.Address = "$A$1" And IsEmpty(ActiveCell) And LeTestFeuil = False Then
Application.DisplayAlerts = False
x.Delete
Application.DisplayAlerts = True
End If
Next x
MaFeuille.Activate
LaCell.Select
End Sub

il me dit qu`il y a erreur dans Next x

[ouskel'n'or]

Ben oui, il y a deux next pour un for

Supprime le premier