Bonsoir,
En consultant le site de boisgontier jacques (Super Merci à lui pour ce travail), j’ai trouvé une procédure permettant de faire défiler un message dans un userform.
J’ai essayé d’adapter cette procédure à mon projet, mais j’ai toujours une erreur qui s’affiche au moment où je lance mon userform (Erreur de compilation, variable non définie).Malgré toutes de nombreuses modifications que j'ai faire , je n’arrive pas à m’en sortir de ce problème
la procédure que j'ai mis en place est la suivante :
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
' Message défilant
Dim depart, lg
Me.Label29.Width = 500
depart = Me.Label1.Left
Message = "Faites votre choix..."
Me.Label29.Caption = Message & Message & Message
lg = Len(Me.Label29.Caption)
li = 2 'définit la variable li (déclarée Publique dans le Module1)
'alimente les comboboxes
For i = 2 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Me.LB1.AddItem Sheets("Feuil1").Cells(i, 1)
Next i
TextBox_aujourdhui.Value = Format(Now, "dd mmmm yyyy") 'mmmm pour le mois en lettre
MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(2).Visible = False
ComboBox_fournisseur.List = Range("fournisseur").Value
Call Rens_Ctrl 'lance la procédure de renseignement des contrôles
'à l'initialisation de l'UserForm
End Sub
'Depart de texte défilant
Private Sub UserForm_depense()
Me.Label29.Visible = True
For X = depart To -(4.16 * lg - depart) Step -1
Me.Label29.Left = X
Me.Label29.Top = 10
w = 0.04
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Next X
UserForm_depense
End Sub
Je joins mon fichier
Peut-on me venir en aide.
Merci d’avance
M.D
En consultant le site de boisgontier jacques (Super Merci à lui pour ce travail), j’ai trouvé une procédure permettant de faire défiler un message dans un userform.
J’ai essayé d’adapter cette procédure à mon projet, mais j’ai toujours une erreur qui s’affiche au moment où je lance mon userform (Erreur de compilation, variable non définie).Malgré toutes de nombreuses modifications que j'ai faire , je n’arrive pas à m’en sortir de ce problème
la procédure que j'ai mis en place est la suivante :
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
' Message défilant
Dim depart, lg
Me.Label29.Width = 500
depart = Me.Label1.Left
Message = "Faites votre choix..."
Me.Label29.Caption = Message & Message & Message
lg = Len(Me.Label29.Caption)
li = 2 'définit la variable li (déclarée Publique dans le Module1)
'alimente les comboboxes
For i = 2 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Me.LB1.AddItem Sheets("Feuil1").Cells(i, 1)
Next i
TextBox_aujourdhui.Value = Format(Now, "dd mmmm yyyy") 'mmmm pour le mois en lettre
MultiPage1.Pages(0).Visible = False: MultiPage1.Pages(1).Visible = False: MultiPage1.Pages(2).Visible = False
ComboBox_fournisseur.List = Range("fournisseur").Value
Call Rens_Ctrl 'lance la procédure de renseignement des contrôles
'à l'initialisation de l'UserForm
End Sub
'Depart de texte défilant
Private Sub UserForm_depense()
Me.Label29.Visible = True
For X = depart To -(4.16 * lg - depart) Step -1
Me.Label29.Left = X
Me.Label29.Top = 10
w = 0.04
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
Next X
UserForm_depense
End Sub
Je joins mon fichier
Peut-on me venir en aide.
Merci d’avance
M.D