arret de la macro

[al1000]

Bonjour

If Range("b5") = "" Then
MsgBox "Inscrire l'heure du début de la panne : dans la cellule B5 "
End If

J'ai une condition dans ma macro et je voudrai que la macro se ferme en indiquant mon message.

actuellment lorsque je clique sur ok sur mon message le reste de ma macro continue.



a+

 

[RENAUDER]

Re : arret de la macro

Bonjour,
Tu as essayé avec un End

 

[Pierrot93]

Re : arret de la macro

Bonjour,

autre solution pour sortir d'une procédure :

If Range("b5") = "" Then
    MsgBox "Inscrire l'heure du début de la panne : dans la cellule B5 "
    Exit Sub
End If

bonne journée
@+

 

[mécano41]

Re : arret de la macro

Bonjour à tous,

Peut-être avec ceci avant la fin de ta macro :

Option Explicit
Sub essai()

Dim Heure As String
If Range("B5").Value = "" Then
    Do
        Heure = Application.InputBox("Veuillez donner l'heure du début de la panne (hh:mm)", "Saisie de données", Type:=2)
        If Len(Heure) = 5 Then
            Heure = Left(Heure, 2) & ":" & Right(Heure, 2)
            Range("B5").Value = Heure
            Exit Sub
        End If
    Loop
End If

End Sub

si B5 est vide, on est obligé de saisir l'heure (heure et min avec n'importe quel séparateur) et elle est mise dans B5.

EDIT : Attention, la validité de l'heure n'est pas contrôlée...

Cordialement

 

[al1000]

Re : arret de la macro

bonjour,

si je met un end cela arrete la macro


mais si la condition n'est pas vrai alors je veux que ma macro continue


a+

 

[al1000]

Re : arret de la macro

bonjour

je n'avaispas vu les autres reponses

merci


exit sub semble marcher


a+