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

Sup Gra

4 réponses
Avatar
Manu
bonsoir,

Je souhaitertais supprimer toutes les feuil commencant par Gra, comment puis
je faire ?

Merci de votre aide

Manu
Signaler un problème avec ce contenu

4 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
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




Avatar
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




Avatar
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




Avatar
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