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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Mars 2020

• #2

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 )

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 25 Mars 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mars 2020

• #4

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

 

Dernière édition: 25 Mars 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2020

• #5

Bonsoir christ77000, sylvanu, fanch55, JM,

En listant les feuilles à supprimer dans un Dictionary :

VB:

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+

 

Vote positif 0 Vote négatif

Solution

C

christ77000

XLDnaute Occasionnel

• 25 Mars 2020

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2020

• #7

christ77000 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

christ77000

XLDnaute Occasionnel

• 25 Mars 2020

• #8

Je vais me renseigner, encore merci votre code fonctionne.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mars 2020

• #9

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

 

Vote positif 0 Vote négatif

C

christ77000

XLDnaute Occasionnel

• 25 Mars 2020

• #10

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

 

Vote positif 0 Vote négatif