Sortir de la Sub pour revenir a la userform.

[Maspalio]

Bonjour,

J'ai 2 Sub, l'une appelée dans l'autre.

Private Sub CommandButtonAuslegung_Click()

  ValeurDb

'plein de ligne de codes, qui ne servent a rien pour l'exemple :D

Private Sub ValeurDb()
   
  'Récuperation des valeurs des Textboxs  + Tests
   If Not IsNumeric(TextBoxLange.Value) Then
        MsgBox "Achtung Lange muss eine Zahl sein"
        TextBoxLange.SetFocus
        TextBoxLange.SelStart = 0
        Exit Sub
    End If
    iLange = TextBoxLange.Value

'blabla bla, suite du code..

Comment faire qu'en cas de Exit Sub, au lieu de retourner dans la Sub précédente, il fasse un double Exit Sub, donc qu'on puisse sortir des 2 Sub.

 

[kjin]

Re : Sortir de la Sub pour revenir a la userform.

Bonjour,
Un drapeau par exemple...

Dim Flag As Boolean 'à déclarer en tête de module

Private Sub CommandButtonAuslegung_Click()
ValeurDb
If Flag Then Exit Sub
'...

Private Sub ValeurDb()
  'Récuperation des valeurs des Textboxs  + Tests
   If Not IsNumeric(TextBoxLange.Value) Then
        MsgBox "Achtung Lange muss eine Zahl sein"
        TextBoxLange.SetFocus
        TextBoxLange.SelStart = 0
        Flag = True 'drapeau
        Exit Sub
    End If
    iLange = TextBoxLange.Value
'....

A+
kjin

 

[Maspalio]

Re : Sortir de la Sub pour revenir a la userform.

Kjin, Parfait, c'est exactement ce que je cherchais.

Merci à toi.

 

[kjin]

Re : Sortir de la Sub pour revenir a la userform.

Re,
N'oublies pas de réinitialiser le drapeau si nécessaire
A+
kjin