arret de la macro

RENAUDER

Nous a quitté

Repose en paix

• 15 Janvier 2009

• #2

Re : arret de la macro

Bonjour,
Tu as essayé avec un End

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Janvier 2009

• #3

Re : arret de la macro

Bonjour,

autre solution pour sortir d'une procédure :

Code:

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
@+

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 15 Janvier 2009

• #4

Re : arret de la macro

Bonjour à tous,

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

Code:

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

 

Dernière édition: 15 Janvier 2009

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 15 Janvier 2009

• #5

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+

 

Vote positif 0 Vote négatif

A

al1000

XLDnaute Impliqué

• 15 Janvier 2009

• #6

Re : arret de la macro

bonjour

je n'avaispas vu les autres reponses

merci


exit sub semble marcher


a+

 

Vote positif 0 Vote négatif