J'ai cree un module contenant les fonctions suivantes:
J'ai une erreur "qualification incorrecte sur la compilation, et ca ne fonctionne aps avec mon formulaire.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Function barreProgressionInit(Formulaire As String) Dim mabarre As String mabarre = Formulaire & ".ProgressBar" mabarre.min = 0 mabarre.Visible = True mabarre.max = 100 End Function Function barreProgressionAdd(Add As Long, Formulaire As String) Dim mabarre As String mabarre = Formulaire & ".ProgressBar" mabarre.Value = mabarre.Value + Add End Function
MErci pour votre aide
Partager