XL 2016 Suppression d'onglet avec le nom dans une cellule.

[christ77000]

Bonsoir à tous,
j'ai récupérer sur ce site un code pour supprimer des onglets en fonction d'un nom dans une cellule. Dans cette macro j'en supprime deux d'un coup. Mais si un utilisateur clic de nouveau sur le bouton supprimer, ca plante. Serait il possible de mettre déjà un message de confirmation avant la suppression et de contrôler si les feuilles n'ont pas déjà été supprimer. Merci pour votre aide.

Sub Effacer_feuille_equipe1()
'Effacer l'IT6
Dim plageNoms As Range
Set plageNoms = Range("D29")
Application.DisplayAlerts = False
For Each cell In plageNoms
Sheets(cell.Value).Delete
Next
Application.DisplayAlerts = True
'Effacer le graph de l'IT6
Set plageNoms = Range("F29")
Application.DisplayAlerts = False
For Each cell In plageNoms
Sheets(cell.Value).Delete
Next
Application.DisplayAlerts = True

End Sub

 

[sylvanu]

Bonsoir Christ,
Soit en testant si la feuille existe avant de tenter de la supprimer.

VBA: Vérifier si une Feuille existe dans le Classeur

Code source VBA prêt à l'emploi (copier/coller) avec une fonction qui vérifie si une Feuille particulière existe dans le Classeur Excel.

excel-malin.com

Soit plus bestial en mettant un On Error Resume Next pour sauter la ligne en erreur.
( Le problème c'est que s'il y a une "vrai" erreur elle sera aussi ignorée )

 

[fanch55]

Salut à tous,
Question récurrente :

XL 2016 - Vérifier si une feuille existe sinon la créer..

Bonjour à tous, J'ai besoin d'un petit coup de main svp sur: Dans mon classeur, j'ai ma première feuille 'CANEVAS'. A l'aide d'un bouton, j'ouvre un user form qui me demande un numéro de commande et si une feuille existe, il me l'ouvre sinon il la crée en copiant la feuille1 "CANAVAS". Quel...

www.excel-downloads.com

 

[Staple1600]

Bonsoir le fil, chris77000, sylvanu, fanch55

???
Tester ou pas l'existence d'une feuille, chris77000 sait déjà faire, non ?
(Et c'est tout frais )

XL 2016 - insertion d'un control sur l'existence des feuilles

Bonsoir à tous je débute en VBA et je n'arrive pas à insérer un contrôle sur l'existence des feuilles dans ce code. Si un utilisateur clic plusieurs fois sur le bouton de création de feuille ca bloque. Merci pour votre aide. PS c'est mon premier post. Sub Creation_IT6_par_nom() Dim DerLig As...

www.excel-downloads.com

EDITION: Bonsoir Job75

 

[job75]

Bonsoir christ77000, sylvanu, fanch55, JM,

En listant les feuilles à supprimer dans un Dictionary :

Sub Supprimer_feuilles()
Dim plageNoms As Range, d As Object, cel As Range, s As Object
Set plageNoms = Range("D29,F29") 'à adapter
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
'---liste des feuilles à supprimer---
For Each cel In plageNoms
    d(CStr(cel)) = ""
Next
'---suppressions---
Application.DisplayAlerts = False
For Each s In Sheets
    If d.exists(s.Name) And Sheets.Count > 1 Then s.Delete
Next
End Sub

A+

 

[christ77000]

Bonsoir et merci à tous,
Staple 1600, si je savais le faire je l'aurais fait moi même. Pour le moment je pompe des codes à droite à gauche. Et j'essai de les comprendre, ce qui n'est pas évident pour un novice. Ca l'ai pour vous je n'en doute pas, mais la ca ne se devine pas ca s'apprend. ce que j'essaie de faire.

job75, je vais tester le code.
"En listant les feuilles à supprimer dans un Dictionary :" c'est quoi !!

 

[job75]

"En listant les feuilles à supprimer dans un Dictionary :" c'est quoi !!

Faites une recherche de ce mot sur XLD ou le web, ce devrait être un reflexe.

 

[christ77000]

Je vais me renseigner, encore merci votre code fonctionne.

 

[Staple1600]

Re

•>christ77000
[Précisions]
J'indiquais juste qu'on avait posté dans ton autre discussion des fonctions pour tester si une feuille existe ou pas.
Donc, on pouvait penser que tu réutiliserais ce tu appris dans cette précédente discussion pour la résolution de la question postée ici.
C'est tout ce que voulait dire le message#4

 

[christ77000]

RE, bien sur que je le réutiliserais, quand je serais plus à l'aise en VBA et toutes les manipulations du code.