Bonjour à tous du forum,
j'ai un label avec du texte défilant. En démarrant la macro, je reçois 2 fois l'erreur
dans Private Sub Userform_Activate et dans Private Sub UserForm_Initialize() :
"erreur de compilation, projet introuvable".
J'utilise le vba code suivant :
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim Arreter_macro As Boolean
Dim depart, lg
Dim Texte As String
Private Sub UserForm_Activate() ' -texte défilant dans Label5 d'un Userform
Me.Label5.Visible = True
For x = depart To -(4.16 * lg - depart - 1) Step -1
Me.Label5.Left = x
Me.Label5.Top = 5
w = 1.5
temp = Timer
Do While Timer < temp + w
If Arreter_macro = True Then Exit Do
DoEvents
Loop
Next x
UserForm_Activate
End Sub
Private Sub UserForm_Initialize()
depart = Me.Label5.Left
Texte = "à vérifier"
Me.Label5.Caption = Texte & Texte & Texte
lg = Len(Me.Label5.Caption)
End Sub
Est-ce du aux variables ? Comment les nommer correctement qu'il n'y a plus d'erreur de compilation ?
news
j'ai un label avec du texte défilant. En démarrant la macro, je reçois 2 fois l'erreur
dans Private Sub Userform_Activate et dans Private Sub UserForm_Initialize() :
"erreur de compilation, projet introuvable".
J'utilise le vba code suivant :
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Dim Arreter_macro As Boolean
Dim depart, lg
Dim Texte As String
Private Sub UserForm_Activate() ' -texte défilant dans Label5 d'un Userform
Me.Label5.Visible = True
For x = depart To -(4.16 * lg - depart - 1) Step -1
Me.Label5.Left = x
Me.Label5.Top = 5
w = 1.5
temp = Timer
Do While Timer < temp + w
If Arreter_macro = True Then Exit Do
DoEvents
Loop
Next x
UserForm_Activate
End Sub
Private Sub UserForm_Initialize()
depart = Me.Label5.Left
Texte = "à vérifier"
Me.Label5.Caption = Texte & Texte & Texte
lg = Len(Me.Label5.Caption)
End Sub
Est-ce du aux variables ? Comment les nommer correctement qu'il n'y a plus d'erreur de compilation ?
news
Dernière édition: