Faire démarrer une macro avec une autre ?

[guy72]

Bonsoir,
Quand avec une macro, on veut faire partir une autre macro, on met dans la 1ère macro :Call Macro2 et on lance la Macro2.
Mais.....
Moi j'ai, une 1ère commande :

Private Sub CommandButton1_Click() 'Barre de progression
n = 80
p = 0
UserForm1.Show
For f = 1 To n
For a = 1 To 10000000: Next a
p = p + 1 / n
UserForm1.Label5.Width = 260 * (f / n)
UserForm1.Décompte.Caption = Format(1 - (f / n), "H")
'UserForm1.Caption = Format(f / n, "0%")
DoEvents
Next f

End Sub

Et je voudrais lancer (quand la progression de la barre est finie )

l'action suivante:

Private Sub b_suivant_Click()
If Val(Me.No_question) < Val(Nb_Questions2) Then
Me.No_question = Val(Me.No_question) + 1
affiche
tb
Else
MsgBox "C'est fini"
End If

Que faut-il faire ?

http://cjoint.com/?lBuTQfXP5m
_________________

[guy72]