Sup Gra

Le
Manu
bonsoir,

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

Merci de votre aide

Manu
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #18140051
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"
bonsoir,

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

Merci de votre aide

Manu




Fredo P.
Le #18140211
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" news:
bonsoir,

Je souhaitertais supprimer toutes les feuil commencant par Gra, comment


puis
je faire ?

Merci de votre aide

Manu




Fredo P.
Le #18140311
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" news:
bonsoir,

Je souhaitertais supprimer toutes les feuil commencant par Gra, comment


puis
je faire ?

Merci de votre aide

Manu




Manu
Le #18141801
C'est exactement ce que je souhaitais,

Merci à vous 2

Manu

"Fredo P." 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" news:
bonsoir,

Je souhaitertais supprimer toutes les feuil commencant par Gra, comment


puis
je faire ?

Merci de votre aide

Manu








Publicité
Poster une réponse
Anonyme