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
Ellimac
Bonjour, Dans un module standard : Sub Toto() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets If f.Range("b1") = "" Then f.Delete Next Application.DisplayAlerts = True End Sub
Camille
-----Message d'origine----- Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
.
Bonjour,
Dans un module standard :
Sub Toto()
Application.DisplayAlerts = False
For Each f In ActiveWorkbook.Sheets
If f.Range("b1") = "" Then f.Delete
Next
Application.DisplayAlerts = True
End Sub
Camille
-----Message d'origine-----
Bonjour à tous
Comment supprimer automatiquement tous les onglets d'un
fichier
Bonjour, Dans un module standard : Sub Toto() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets If f.Range("b1") = "" Then f.Delete Next Application.DisplayAlerts = True End Sub
Camille
-----Message d'origine----- Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
.
eis
Merci pour l'info "Ellimac" a écrit dans le message de news: 157201c38c0f$6bb66720$ Bonjour, Dans un module standard : Sub Toto() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets If f.Range("b1") = "" Then f.Delete Next Application.DisplayAlerts = True End Sub
Camille
-----Message d'origine----- Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
.
Merci pour l'info
"Ellimac" <PasDePubellimacNiSpam_cremelier@hotmail.com> a écrit dans le
message de news: 157201c38c0f$6bb66720$a101280a@phx.gbl...
Bonjour,
Dans un module standard :
Sub Toto()
Application.DisplayAlerts = False
For Each f In ActiveWorkbook.Sheets
If f.Range("b1") = "" Then f.Delete
Next
Application.DisplayAlerts = True
End Sub
Camille
-----Message d'origine-----
Bonjour à tous
Comment supprimer automatiquement tous les onglets d'un
fichier
Merci pour l'info "Ellimac" a écrit dans le message de news: 157201c38c0f$6bb66720$ Bonjour, Dans un module standard : Sub Toto() Application.DisplayAlerts = False For Each f In ActiveWorkbook.Sheets If f.Range("b1") = "" Then f.Delete Next Application.DisplayAlerts = True End Sub
Camille
-----Message d'origine----- Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
.
Hervé
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?
Salut eis,
Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit
Camille) provoque une erreur si tu as une feuille graphique.
Hervé.
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message news:
uu9SdiAjDHA.548@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?
eis
je n'ai pas de graphique dans ce cas, mais je le note pur une prochaine fois merci "Hervé" a écrit dans le message de news: #
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?
je n'ai pas de graphique dans ce cas, mais je le note pur une prochaine fois
merci
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:
#OemJvBjDHA.2416@TK2MSFTNGP10.phx.gbl...
Salut eis,
Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit
Camille) provoque une erreur si tu as une feuille graphique.
Hervé.
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message news:
uu9SdiAjDHA.548@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
je n'ai pas de graphique dans ce cas, mais je le note pur une prochaine fois merci "Hervé" a écrit dans le message de news: #
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?
Philippe.R
Bonsoir, Attention aussi à modifier le code de Camille si tu veux vraiment que ce soient les feuilles dont la cellule b2 et non b1 est vide qui soient supprimées. ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Hervé" a écrit dans le message de news:%
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?
Bonsoir,
Attention aussi à modifier le code de Camille si tu veux vraiment que ce soient les feuilles dont la
cellule b2 et non b1 est vide qui soient supprimées.
;o)))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Hervé" <hmsilve@wanadoo.fr> a écrit dans le message de news:%23OemJvBjDHA.2416@TK2MSFTNGP10.phx.gbl...
Salut eis,
Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit
Camille) provoque une erreur si tu as une feuille graphique.
Hervé.
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message news:
uu9SdiAjDHA.548@TK2MSFTNGP11.phx.gbl...
Bonjour à tous
Comment supprimer automatiquement tous les onglets d'un fichier
dont la cellule "B2" est vide ?
Bonsoir, Attention aussi à modifier le code de Camille si tu veux vraiment que ce soient les feuilles dont la cellule b2 et non b1 est vide qui soient supprimées. ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Hervé" a écrit dans le message de news:%
Salut eis, Attention, le fait d'utiliser Sheets et non Worksheets (comme la écrit Camille) provoque une erreur si tu as une feuille graphique. Hervé.
"eis" a écrit dans le message news:
Bonjour à tous Comment supprimer automatiquement tous les onglets d'un fichier dont la cellule "B2" est vide ?