error ou if ???

[Simons]

Bonsoir les XLDiennes, les XLdiens,

J'ai un code qui me permet de trouver une feuille dans un classeur via Inputbox pour la supprimer et je souhaite inserer 2 msgbox par la suite.

1° Si la feuille recherchée n'appartient pas au classeur.

2° Un autre message pour confirmer ou non qu'on la delete.

Je me prend la tête :sick: inch: .
Avez vous un bout de code SVP ??

 

[MichelXld]

bonjour Simons

tu peux tester

Sub suppressionFeuille()
Dim Feuille As String, Reponse As String
Dim Ws As Worksheet

Feuille = InputBox('indiquez le nom de la feuille à supprimer')
If Feuille = '' Then Exit Sub

On Error Resume Next
Set Ws = ThisWorkbook.Sheets(Feuille)

If Ws Is Nothing Then
MsgBox 'la feuille ' & Feuille & ' n'existe pas dans le classeur . '
Else
Reponse = MsgBox('Voulez vous supprimer la feuille ' & Feuille, vbYesNo)
If Reponse = vbYes Then
Application.DisplayAlerts = False
Sheets(Feuille).Delete
Application.DisplayAlerts = True
End If
End If

End Sub


bonne soiree
MichelXld

 

[Simons]

Bonjour,

Super Michel, c'est exactement ce qu'il me fallais je ne connaisait pas

Application.DisplayAlerts = False

et je n'avais pas pensé à

If Ws Is Nothing

.

Un grand merci.

Et bonne journée.Sous le soleil B)

 

[Simons]

Bonjour,

N'est stupide que la stupidité comme dirais mon ami Forest Gump.

Mon problème va surement vous paraitre simplet.

J'ai un soucis auquel je n'avais pas pensé. La procédure suivante
m'embête un peu. Notament cette ligne :

Set Ws = ThisWorkbook.Sheets(Feuille)

Car ma recherche se trouve dans un Workbook différent de celui actif...
:S
Je ne sais pas comment rectifier le tir.
J'ai essayé

Set Ws = workbook('classeur').Sheets(Feuille)

Mais ca ne marche pas :ermm:
Une idée pour me dépatouiller ???

Merci d'avance.

 

[MichelXld]

bonjour simons


j'espere que ça pourra t'aider

Set Ws = Workbooks('classeur.xls').Sheets(Feuille)


bonne journée
MichelXld

 

[Simons]

Re Michel, le Forum,

Je ne sais pas ce que j'avais m...é
Maintenant ca fonctionne. :woohoo:
Merci Michel !