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
Jacky
Bonsoir,
Ceci peut-être '--------------- Sub jj() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Worksheets If UCase(Left(sh.Name, 3)) = "GRA" Then sh.Delete End If Next Application.DisplayAlerts = True End Sub '----------------- Attention destruction definitive , pas de poubelle ni de retour en arrière possible (travail sur une copie)
-- Salutations JJ
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment puis je faire ?
Merci de votre aide
Manu
Bonsoir,
Ceci peut-être
'---------------
Sub jj()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In ActiveWorkbook.Worksheets
If UCase(Left(sh.Name, 3)) = "GRA" Then
sh.Delete
End If
Next
Application.DisplayAlerts = True
End Sub
'-----------------
Attention destruction definitive , pas de poubelle ni de retour en arrière
possible (travail sur une copie)
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
u8nbYViXJHA.760@TK2MSFTNGP02.phx.gbl...
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis je faire ?
Ceci peut-être '--------------- Sub jj() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In ActiveWorkbook.Worksheets If UCase(Left(sh.Name, 3)) = "GRA" Then sh.Delete End If Next Application.DisplayAlerts = True End Sub '----------------- Attention destruction definitive , pas de poubelle ni de retour en arrière possible (travail sur une copie)
-- Salutations JJ
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment puis je faire ?
Merci de votre aide
Manu
Fredo P.
Et Ou Option Compare Texte Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis
je faire ?
Merci de votre aide
Manu
Et Ou
Option Compare Texte
Sub supprFeuil()
Dim i!
Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
If Left(Sheets(i).Name, 3) = "gra" Then
Sheets(i).Delete
End If
Next
End Sub
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de
news:u8nbYViXJHA.760@TK2MSFTNGP02.phx.gbl...
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
Et Ou Option Compare Texte Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis
je faire ?
Merci de votre aide
Manu
Fredo P.
Oubli le précédent
Option Compare Text
Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next Application.DisplayAlerts = True End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis
je faire ?
Merci de votre aide
Manu
Oubli le précédent
Option Compare Text
Sub supprFeuil()
Dim i!
Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
If Left(Sheets(i).Name, 3) = "gra" Then
Sheets(i).Delete
End If
Next
Application.DisplayAlerts = True
End Sub
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de
news:u8nbYViXJHA.760@TK2MSFTNGP02.phx.gbl...
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next Application.DisplayAlerts = True End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis
je faire ?
Merci de votre aide
Manu
Manu
C'est exactement ce que je souhaitais,
Merci à vous 2
Manu
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message de news:
Oubli le précédent
Option Compare Text
Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next Application.DisplayAlerts = True End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
puis
je faire ?
Merci de votre aide
Manu
C'est exactement ce que je souhaitais,
Merci à vous 2
Manu
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message
de news: e8QXa1iXJHA.760@TK2MSFTNGP02.phx.gbl...
Oubli le précédent
Option Compare Text
Sub supprFeuil()
Dim i!
Application.DisplayAlerts = False
For i = Worksheets.Count To 1 Step -1
If Left(Sheets(i).Name, 3) = "gra" Then
Sheets(i).Delete
End If
Next
Application.DisplayAlerts = True
End Sub
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de
news:u8nbYViXJHA.760@TK2MSFTNGP02.phx.gbl...
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message de news:
Oubli le précédent
Option Compare Text
Sub supprFeuil() Dim i! Application.DisplayAlerts = False For i = Worksheets.Count To 1 Step -1 If Left(Sheets(i).Name, 3) = "gra" Then Sheets(i).Delete End If Next Application.DisplayAlerts = True End Sub
"Manu" a écrit dans le message de news:
bonsoir,
Je souhaitertais supprimer toutes les feuil commencant par Gra, comment