Procedure dans une procedure

bonjours je sais que ce sujet a deja ete discuté mais j'y parvient pas

tous fonctionne bien dans le meme userform mais quand je veux les apeller dans d'autre userform !!!! pas capable

j'y parvient pas voici quelque exemple que je me sert

merci .....

        '''''''''Pour la zone de texte (numéro de téléphone)'''''''''
''Nous alloueons seulement la saisie de chiffre dans la zone de texte de téléphone
Sub Tbx_Phone_Number_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
        KeyAscii = 0
        'MsgBox "Veuillez saisir seulement des chifre"
    End If
End Sub

'' Procedure pour la saisie du numéro de numéro de facon (000) 000-0000 dans le formulaire Client ''
Sub Tbx_Phone_Number_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.Tbx_Phone_Number.Value = Format(Me.Tbx_Phone_Number.Value, "(000) 000 - 0000")
End Sub

''Procédure pour horloge en temps réel *** Num # 008 ***....
Sub Real_Time()
Dim MyTime
Dim Time
    MyTime = TimeValue(Now)
    Me.Tbx_Clock.Value = MyTime
    Time = Now + TimeValue("00:00:1")
    Application.OnTime Time, "Real_Time"
 End Sub

''Ouverture horloge Procédure *** Num # 009 ***....
Sub Open_Clock()
   Call Real_Time ''Appelle de la procédure *** Num # 008 ***....
end sub

'' Procédure qui d'ésactive la croix X de fonctionné sur le formulaire ''
Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> vbFormCode Then
       Cancel = True
       MsgBox "                                      !!!! ATTENTION !!!! " & Chr(13) & Chr(10) & _
       " Vous ne pouvez pas fermer le formulaire en cliquant sur la croix " & Chr(13) & Chr(10) & _
       " Car elle est désactivé, Veuillez vous servir du boutton fermer !!!! " & Chr(13) & Chr(10) & _
                   "                                                Merci "
    End If
End Sub

Edit Modo : sujet non dédié au forum Application. Fil déplacé sur le forum Excel VBA

Bonjour,
Time est une fonction VBA (qui donne l'heure actuelle).
La déclarer en tant que variable ?
Cdlt.

ca je comprend mais comment je lapelle dans un autre usf ????

Salut,

Si c'est Sub Real_Time() que tu veux appeler alors tu doit la couper et coller dans un nouveau module et la passer en public.

Public Sub Real_Time()
'...
'...
End Sub

Ensuite tu peux l'appeler depuis d'autres formulaire