supprimer onglet

[fileofish]

Bonjour

Désolé de vous solliciter de nouveau mais j'ai une nouvelle question:
J'ai dans une feuille "test" le nom des onglets à suprimer (en général entre 3 et 5 onglets à supprimer)
je chercherai une macro qui me supprime les onglets inscrits dans cette feuille

J'ai commencé par faire ca mais ca ne marche pas du tout
If Range("test!B3") <> "" Then Sheets [Test!B3]".Delete

Merci encore
Philippe

 

[ROGER2327]

Re : supprimer onglet

Bonjour fileofish

Écrit ainsi, ça devrait fonctionner :

If Range("test!B3") <> "" Then Sheets([Test!B3].Value).Delete

ROGER2327

 

[fileofish]

Re : supprimer onglet

Merci Roger pour ton aide

Nb: en rajoutant: SendKeys ("{ENTER}") avant ca permet de ne pas avoir le message:" Souhaiter vous vraiment supprimer la feuille"

 

[ERIC S]

Re : supprimer onglet

Bonjour

If Range("test!B3") <> "" Then
valid=msgbox("voulez-vous...", vbyesno)
if valid=vbyes then Sheets([Test!B3].Value).Delete
endif

désolé j'avais mal lu, je pensais que tu voulais une vérif...........

 

[ROGER2327]

Re : supprimer onglet

Re...

Nb: en rajoutant: SendKeys ("{ENTER}") avant ca permet de ne pas avoir le message:" Souhaiter vous vraiment supprimer la feuille"

Exact.
On peut aussi écrire :

   Application.DisplayAlerts = False
   If Range("test!B3") <> "" Then Sheets([Test!B3].Value).Delete
   Application.DisplayAlerts = True

qui doit être plus rapide à l'exécution.​

Bonne continuation...
ROGER2327

 

[fileofish]

Re : supprimer onglet

Merci à vous 2 pour ces précisions
bonne fin d'après midi
Philippe