Suppression Onglet

[Bruce68]

Bonjour à tous

Avec la macro ci dessous je supprime des onglets mais à chaque suppression excel me demande une confirmation, ce que je souhaiterais ce n'est plus de confirmation

Sub SuppOngletSoc()
u = 5
For i = 4 To Sheets.Count - 1
If Sheets.Count - 1 < 4 Then Exit Sub

If Range("A" & u) = Sheets(i).Name Then
Sheets(i).Select
ActiveWindow.SelectedSheets.Delete
End If
u = u + 1
Next i
End Sub

Je vous remercie de votre aide

 

[JCGL]

Re : Suppression Onglet

Bonjour à tous,

Peux-tu essayer :

Option Explicit

Sub SuppOngletSoc()
    u = 5
    For i = 4 To Sheets.Count - 1
        If Sheets.Count - 1 < 4 Then Exit Sub
        Application.DisplayAlerts = 0
        If Range("A" & u) = Sheets(i).Name Then
            Sheets(i).Select
            ActiveWindow.SelectedSheets.Delete
        End If
        u = u + 1
    Next i
    Application.DisplayAlerts = 1
End Sub

A+ à tous

 

[Hulk]

Re : Suppression Onglet

Hello,

Essaie d'insérer ceci dans ta boucle

Application.DisplayAlerts = False

Peut-être faudra essayer sans le s de DisplayAlerts.


Edit : Slt l'ami JC.. en retard moi 🙂

 

[Bruce68]

Re : Suppression Onglet

bonjour JCGL, Hulk

Merci pour vos solutions mais j'ai toujours une demande de confirmation dans les 2 cas.

Merci pour toute votre aide

 

[JCGL]

Re : Suppression Onglet

Bonjour à tous,
Salut Doc Banner,

Dépose ton fichier STP

A+ à tous

 

[Staple1600]

Re : Suppression Onglet

Bonjour à tous


Pour info:
￾￾￾•Sheets.Count -> inclue les feuilles Graphiques
•Worksheets.Count -> ne compte que les feuilles

 

[Bruce68]

Re : Suppression Onglet

Bonjour à tous

Merci JCGL maintenant tout fonctionne j'avais omis une ligne VBA en début de macro (Application.DisplayAlerts = 0)

 

[JCGL]

Re : Suppression Onglet

Bonjour à tous,

C'était étonnant...

Prend l'habitude du Copier / Coller 😉.

A++
A+ à tous

 

[YANN-56]

Re : Suppression Onglet

Bonsoir à tous,

N'aurais-je pas tout compris qui m'amènerait à n'écrire que ceci?

Application.DisplayAlerts = False
For Each FEUILLE In ThisWorkbook.Worksheets
   
    If FEUILLE.Name = "NON DE LA FEUILLE" Then
    FEUILLE.Delete
    End If
    
Next
Application.DisplayAlerts = True

Juste pour ma gouverne...

Bonne fin de fin de semaine à vous.

Yann

 

[JCGL]

Re : Suppression Onglet

Bonjour à tous,
Salut Yann,

Oui cela peut fonctionner mais notre ami à une liste sur une feuille.

Le

Sheets(i).Select
  ActiveWindow.SelectedSheets.Delete

pourrait être

Sheets(i).Delete

A++
A+ à tous

 

[YANN-56]

Re : Suppression Onglet

Re à ceux qui passeront par là,

O.K. JCGL... Bien vu! Et Merci.

L'important est que Bruce s'y retrouve; n'est-il pas?

Au plaisir en si bonne compagnie, et à plus...Au hasard d'un Fil.

Yann