vba : supprimer des onglets en fonction du nom

[Vilain]

Bonjour à tous,

Je vous soumet une petite question.
J'ai une macro qui me crée des onglets.
Cette macro est lancée régulièrement, je voudrais donc qu'avant toutes choses elle vérifie si les onglets sont dans le classeur et si oui, je voudrai les supprimer.
Comment faire ? 😕
J'utilise pour le moment une macro qui compte les onglets et agit en fonction :


Sub EXEMPLE()

Dim NbreOnglets As Byte
NbreOnglets = Sheets.Count
If NbreOnglets > 2 Then

Application.DisplayAlerts = False
Sheets(Array("Base_pour_graph", "Graphique", "Calcul")).Select
ActiveWindow.SelectedSheets.Delete


Else
End If

End Sub


Merci pour votre aide par avance 🙂

 

[flyonets44]

Re : vba : supprimer des onglets en fonction du nom

Bonjour
sub deleteif
dim I&
For i= 1 to sheets.count
if sheets(i).name like "ce nom" then
sheets(i).delete
ens sub
Cordialement
Flyonets

 

[Vilain]

Re : vba : supprimer des onglets en fonction du nom

Merci pour ton aide. Dernière question, je souhaiterai utilisé une fonction "ou" pour suppriomer mes 3 onglets d'un coup.
J'ai essayé ceci :

Sub EXEMPLE()

Dim i&
For i = 1 To Sheets.Count
If Sheets(i).Name Like "Base_pour_graph" Or "Graphique" Or "Calcul" Then
Sheets(i).Delete
End If
Next i

End Sub


J'ai une erreur à cause de mes "OR". Je ne sais pas comment les utiliser.
Encore merci 🙂

 

[Pierrot93]

Re : vba : supprimer des onglets en fonction du nom

Bonjour,

peut être comme ceci si j'ai bien ompris :

Option Explicit
Sub test()
Dim t() As Variant, ws As Object
t = Array("Base_pour_graph", "Graphique", "Calcul")
Application.DisplayAlerts = False
For Each ws In Sheets
    If Sheets.Count > 1 Then If Not IsError(Application.Match(ws.Name, t, 0)) _
        Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

bonne soirée
@+

 

[Vilain]

Re : vba : supprimer des onglets en fonction du nom

Parfait, c'est exactement ce que je cherchais à faire. Par contre, peux tu m'expliquer comment fonctionne ton objet ws ?

 

[Pierrot93]

Re : vba : supprimer des onglets en fonction du nom

Re,

c'est une variable objet qui est utilisé dans la boucle "for each" de la collection des "sheets" du classeur actif... elle est initialisée pas par les différents objets "feuille" de ton classeur (feuille decalcul, feuille graph et autres éventuellement)...

 

[Vilain]

Re : vba : supprimer des onglets en fonction du nom

Super, merci pour l'explication, je devrai povoir le réutiliser seul maintenant ! 🙂