Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Supprimer feuilles cachées

Supprimer feuilles cachées

6 réponses
Avatar
Jol
Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur N°
s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur N°
s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci



Avatar
Jol
Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" a écrit dans le message de
news:
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci







Avatar
Daniel.C
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Daniel
"Jol" a écrit dans le message de news:

Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" a écrit dans le message de
news:
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci










Avatar
Jol
Daniel,

Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore

"Daniel.C" a écrit dans le message de
news:
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Daniel
"Jol" a écrit dans le message de news:

Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" a écrit dans le message de
news:
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci














Avatar
michdenis
Si tu déclares ta variables comme ceci :

Dim sh As Worksheet

Utilises : For each Sh in Worksheets
(ne s'occupe pas des feuilles graphique)


Si tu tiens à utiliser :

For each Sh in sheets
Déclare ta variable comme ceci :
Dim Sh as Object


"Jol" a écrit dans le message de news:
%
Daniel,

Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore

"Daniel.C" a écrit dans le message de
news:
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Daniel
"Jol" a écrit dans le message de news:

Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" a écrit dans le message de
news:
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci














Avatar
Jol
En plus ça marche impec.

Merci à tous les deux.

"michdenis" a écrit dans le message de
news:%
Si tu déclares ta variables comme ceci :

Dim sh As Worksheet

Utilises : For each Sh in Worksheets
(ne s'occupe pas des feuilles graphique)


Si tu tiens à utiliser :

For each Sh in sheets
Déclare ta variable comme ceci :
Dim Sh as Object


"Jol" a écrit dans le message de news:
%
Daniel,

Toujours le même point d'arrêt au même endroit For Each sh In Sheets
Erreur d'exécution '13'
incompatilité de type
Merci encore

"Daniel.C" a écrit dans le message de
news:
Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If LCase(Left(sh.Name, 8)) = "dialogue" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

Daniel
"Jol" a écrit dans le message de news:

Merci mais cela ne fonctionne pas la macro s'arrête à la ligne For
Each....
Mais j'ai peut être mal exprimé le besoin
Les feuilles cachées sont créées automatiquement et ont pour nom
Dialogue1..dialogue2..dialogue 43 etc
"Daniel.C" a écrit dans le message de
news:
Bonjour.
Essaie (fais une sauvegarde avant) :

Sub test1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If Left(sh.Name, 9) = "dialogueN" Then
sh.Visible = True
sh.Delete
End If
Next sh
Application.DisplayAlerts = True
End Sub

--
Cordialement.
Daniel
"Jol" a écrit dans le message de news:

Bonjour,

Mon application crée des feuilles cachées qui se nomment dialogueN
leur
N° s'incrémente automatiquement, j'aimerais par une macro pouvoir les
supprimer.

Merci