Message traitement en cours

[Hugues]

Bonjour Le Forum,

Je me suis inspiré d'une réalisation faite par CBEA, afin d'indiquer à l'utilisateur qu'un traitement est en cours (un USF avec une image).

Mon souci est que l'image contenue dans le USF ne s'affiche pas.

Pourriez vous m'aider ?

Un grand merci par avance,

Hugues

 

[Temjeh]

Re : Message traitement en cours

Bonjour

Plutôt comme ca:un 0 et DoEvents

Private Sub CommandButton1_Click()
' Affichage du USF "Traitement en cours"
    Usfattente.Show 0
    DoEvents

    For Lig = 1 To 10000
        Range("A2").Value = Lig
    Next Lig
    
' Fin USF "Traitement en cours"
    Unload Usfattente
End Sub

A+

Temjeh

 

[Hugues]

Re : Message traitement en cours

Un grand merci à toi, Temjeh.

Ca fonctionne impeccable.