ARRETER Exit Sub

Bonsoir le Forum et BONNE ANNEE ,

j'ai fait une routine appelée par plusieurs macros

Sub routine1()
    Sheets("relevé").Select
       If Range("a1") <> 0 Then
          MsgBox ("le dernier relevé n'est pas enregistré !")
        Exit Sub
        End If
End Sub

mais malgré le Exit Sub çà retourne à la macro appelante après le MsgBox

ou est mon erreur ? en Excel4 je faisais =ARRETER()

comment faire en VBA ?

à vous lire ........ Claude.

Salut le forum

Claude, en utilisant une Function au-lieu d'une Sub, qui va te retourner une variable à tester

Function Routine()
If Sheets("relevé").Range("a1") <> 0 Then
   MsgBox ("Le dernier relevé n'est pas enregistré !")
      Routine = True
         Exit Function
End If
'Suite du traitement
End Function

Et dans ta macro appelante

Sub MaMacro()

If Routine = True Then Exit Sub

MsgBox ("Le dernier relevé est enregistré !")

End Sub

Meilleurs Voeux pour 2008

Mytå

Merci Mytä ,

une ficelle de plus !

Meilleurs Voeux

Claude.