Lancé un code situé dans un autre private sub

[Guigui]

Bonsoir,

A l'init de mon USF, je remplie un textbox par une valeur provenant d'une cellule...
Une fois cette valeur renseigné et le USF affiché, je voudrai lancé la code situé dans la private sub du textbox... mais comment l'appeler ???

Private Sub ATA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ATA) = 4 Then
ATA = Mid(ATA, 1, 2) & ":" & Mid(ATA, 3, 2)
DELTA = Format(CDate(ATA) - CDate(STA), "hh:mm")
end sub


Private Sub UserForm_Initialize()
ATA = Format(ActiveCell.Offset(0, 2), "hhmm")
'LANCER ATA_EXIT pour que DELTA soit rempli ....
end sub


Merci d'avance pour votre aide
SLts
Guillaume

 

[justine]

Re : Lancé un code situé dans un autre private sub

bonsoir a tous, guigui
il ne me semble pas que tu puisses lancer une macro qui se trouve a l'interieur d'un sub.
le mieux est de suite la methode suivante:

Private Sub ATA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(ATA) = 4 Then
ATA = Mid(ATA, 1, 2) & ":" & Mid(ATA, 3, 2)
lancer_delta
end sub


Private Sub UserForm_Initialize()
ATA = Format(ActiveCell.Offset(0, 2), "hhmm")
lancer_delta
end sub

sub lancer_delta()
DELTA = Format(CDate(ATA) - CDate(STA), "hh:mm")
end sub

bonne continuation

 

[Guigui]

Re : Lancé un code situé dans un autre private sub

Re

Yes super idée
Merci bcp

slts
Guillaume