J
Jacques
Guest
Bonsoir à tous,
Quelqu'un peut il éclairer mes lanternes au niveau du code suivant :
Private Sub ToggleButton1_Change()
If Me.ToggleButton1 = True Then
Starting
Running = True
Me.ToggleButton1.Caption = 'Stop Auto_Import TXT'
Import.Activate
Else
StopUpdateTXT
Running = False
Me.ToggleButton1.Caption = 'Run Auto_Import TXT'
Interface.Activate
End If
End Sub
A quoi correspond le Me sur la ligne 2?
Est il possible dans ce même code de modifier l'apparence du userform où se trouve le togglebutton (agir sur les propriétés de position ==> height, left, top et width)?
Je viens de passer la journée à chercher et là je capitule...
Merci de votre aide à tous.
Jacques
Quelqu'un peut il éclairer mes lanternes au niveau du code suivant :
Private Sub ToggleButton1_Change()
If Me.ToggleButton1 = True Then
Starting
Running = True
Me.ToggleButton1.Caption = 'Stop Auto_Import TXT'
Import.Activate
Else
StopUpdateTXT
Running = False
Me.ToggleButton1.Caption = 'Run Auto_Import TXT'
Interface.Activate
End If
End Sub
A quoi correspond le Me sur la ligne 2?
Est il possible dans ce même code de modifier l'apparence du userform où se trouve le togglebutton (agir sur les propriétés de position ==> height, left, top et width)?
Je viens de passer la journée à chercher et là je capitule...
Merci de votre aide à tous.
Jacques