supprimer onglet

ROGER2327

XLDnaute Barbatruc

• 20 Mai 2009

• #2

Re : supprimer onglet

Bonjour fileofish

Écrit ainsi, ça devrait fonctionner :

Code:

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

ROGER2327

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 20 Mai 2009

• #3

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"

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 20 Mai 2009

• #4

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

 

Dernière édition: 20 Mai 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Mai 2009

• #5

Re : supprimer onglet

Re...

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

Cliquez pour agrandir...

Exact.
On peut aussi écrire :

Code:

   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

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 20 Mai 2009

• #6

Re : supprimer onglet

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

 

Vote positif 0 Vote négatif