inputbox

[oliviermartinand]

bonjour je suis debutant en vba
j ai une macro pour supprimer une feuille de classeur ainsi que des cellules dans 2 autres feuilles
le bouton annuler de mon inputbox me renvoie sur une erreur pouvez vous m aider

Sub SupprFiche()
NomDesignation = InputBox("Nom de la désignation à supprimer")
Set Designation = Sheets("Sommaire fiches").Columns("B:B").Find(NomDesignation, Range("B7"), xlValues, xlWhole)
If Designation Is Nothing Then GoTo Messageerreur
Sheets("Sommaire fiches").Cells(Designation.Row, 2).Delete Shift:=xlUp
Application.DisplayAlerts = False
Sheets(NomDesignation).Delete
Application.DisplayAlerts = True
Set Designation = Sheets("Récapitulatif").Columns("A:A").Find(NomDesignation, Range("A13"), xlValues, xlWhole)
Sheets("Récapitulatif").Unprotect ("1308")
Sheets("Récapitulatif").Range("A" & Designation.Row & ":W" & Designation.Row).Delete Shift:=xlUp
Sheets("Récapitulatif").Protect ("1308")
Exit Sub
Messageerreur:
MsgBox " La désignation n'existe pas"
End Sub

j ai essaye de rajouter dans mon inputbox ,vbYesCancel avec if NomDeignation=vbYes then.....
et if NomDesignation=vbCancel then exit sub
mais ca m annule ma suppression de feuille ainsi que mon message d erreur
merci

 

[Pierrot93]

Re : inputbox

Bonjour Olivier

peut être controler que "nomdesignation" est bien renseigné comme ci dessous :

nomdesignation = InputBox("Nom de la désignation à supprimer")
If nomdesignation = "" Then GoTo Messageerreur

bonne journée
@+

 

[oliviermartinand]

Re : inputbox

Bonjour Olivier

peut être controler que "nomdesignation" est bien renseigné comme ci dessous :

nomdesignation = InputBox("Nom de la désignation à supprimer")
If nomdesignation = "" Then GoTo Messageerreur

bonne journée
@+

merci de ta reponse mais mon prb est que lorsque j appuie sur le bouton annuler celui ci menvoie sur le debogage

 

[Pierrot93]

Re : inputbox

Re

comprends pas, chez moi ca fonctionne !!! mets peut être ton dernier code modfié en ligne.

@+

 

[Pierrot93]

Re : inputbox

J'ai oublié, quelle ligne de code ets surlignée en jaune par le débogage ?

 

[oliviermartinand]

Re : inputbox

je peux t envoyer le fichier complet par mail c est plus parlant j ai du mal a expliquer ce qui bug

 

[Pierrot93]

Re : inputbox

Re

Quelle ligne bogue, exactement, sinon mets ton code en ligne.

@+

 

[oliviermartinand]

Re : inputbox

c est la ligne 7 dans le premier message
Sheets(NomDesignation).Delete
je ne peux pas le mettre en ligne il fait 200k

 

[oliviermartinand]

Re : inputbox

excuse moi c est la n°8

 

[Pierrot93]

Re : inputbox

Re

as tu inséré la ligne de code que je t'avais donnée juste après l'inputbox :

If nomdesignation = "" Then GoTo Messageerreur

@+

 

[oliviermartinand]

Re : inputbox

ok merci pour ton aide j ai enfin compris ce que tu voulais dire ca marche desole d etre long a la detente