Bonjour
Merci pour ce nouveau message.
Je viens de l'essayer, en effet il faut avoir de bons yeux. Dommage que l'on ne puisse pas mettre ce même message au milieu de l'écran car c'est exactement ça que je voudrais.....
Je vais essayer de ma lancer sur la barre de progression !!!
Dans mon User form , après Private Sub BtnAjouter_Click()
je mets donc
timedebut =Now()
Application.ScreenUpdating=False
BarreProgression.Schow vbModeless
MON CODE
BarreProgression.Caption ="test"
For compteur =0 To 100 Step 5
BarreDeProgression compteur/100
Application. wait (Now + TimeValue ("0:00:01")
Next
????? ( il ya une ligne verte )
Unload BarreProgression
MsgBox ("terminé")
End Sub
Et je fais également un module pour la barre de progression ??
Merci
Cdt
No