Problème sortie procédure

[steph42]

Bonjour
Je développe une appli de gestion d'inventaires.
Mon problème est que lorsque un inventaire existe ou pas dans un onglet "Base de données" la fonction de test regarde si celui-ci est présent ou pas. S'il l'est, je veux que l'appli continue afin de modifier le mois pour une nouvelle saisie sinon sortir de la procédure, mais je n'arrive pas à inclure ce choix.
Voici la macro que j'utilise:

Function SH_exist(Nom As String) As Boolean
Dim sh As Worksheet
SH_exist = False
For Each sh In Sheets
If sh.Name = Nom Then
SH_exist = True
Exit For
End If
Next
End Function

' Vérification si ancien inventaire existe ou pas
' si oui, demande nouvel inventaire, sinon exit sub
Sub Test_Continuer_inventaire_existant2()
If SH_exist("Base de données") = False Then
MsgBox "Aucune base d'inventaire existe,veuillez en créer une nouvelle"
Else
Exit Sub

'Demande commencer nouvel inventaire ou pas
Dim ret As Integer
ret = MsgBox("VOUS DESIREZ COMMENCER UN NOUVEL INVENTAIRE ?", vbYesNo)
If ret = vbNo Then
Exit Sub
Else


Dim mois As String
mois = InputBox("VEUILLEZ SAISIR LA DATE DE VOTRE INVENTAIRE", vbYesNo)

Sheets("Base de données").Select
Range("f2").Value = mois

'Sélection derniere ligne du tableau ligne total
Range("A65536").End(xlUp).Offset(1, 0).Select

'Suppression de la dernière ligne avec "Total"
ActiveCell.EntireRow.Delete
End If
End Sub


Par avance merci

 

[Pierrot93]

Re : Problème sortie procédure

Bonjour,

remonte peut être le "exit sub" d'une ligne :

Sub Test_Continuer_inventaire_existant2()
If SH_exist("Base de données") = False Then
MsgBox "Aucune base d'inventaire existe,veuillez en créer une nouvelle"
Exit Sub
Else

enfin si j'ai bien compris...

bonne journée
@+

 

[steph42]

Re : Problème sortie procédure

Cela marche bien. Un grand MERCI