insertion image dans un USF

[Hugues]

Bonjour Le Forum,

Je souhaiterais inserer une image dans un userform. Pour cela j'ai insérer dans mon projet un userform.
Comment intégrer l'image désirée dans le USF ?
Cette image est déjà présente dans la feuille dénommée "sommaire".

Merci par avance pour votre aide,

Hugues

 

[skoobi]

Re : insertion image dans un USF

Bonjour Hugues,

Cette discussion devrait te convenir (plus particulièrement la 11eme réponse).

 

[Hugues]

Re : insertion image dans un USF

Merci Skoobi pour ta réponse.

Je suis arrivé à intégrer l'image dans le USF.

Toutefois j'ai encore une question. Je voulais intégrer ce USF lors du lancement d'un traitement. Je souhaiterais que ce USF disparaisse à la fin du traitement.
Pour l'afficher j'ai positionné comme code :
' Affichage du USF "Traitement en cours"
attente.Show
Pour la fermeture du USF j'ai positionné :
' Fin USF "Traitement en cours"
Unload attente
Le souci est que le traitement ne se lance que lorsque je ferme le USF. J'aurais souhaité que ce soit automatique.
Merci par avance pour les réponses,

Hugues

 

[alex67800]

Re : insertion image dans un USF

Bonsoir Hugues,

tout comme toi j'ai un USF "d'attente", je te met mon fichier en exemple.
Passe l'usf click sur le bouton MAJ BDD.

Puis ressort de la feuille active!Ensuite inspire toi de ce qui a été fait avec les astuces du forum.

A te lire!

 

[PMO2]

Re : insertion image dans un USF

Bonjour,

Un exemple avec le code suivant

1) créez un UserForm1
2) y mettre un Label1

Copiez le code suivant dans un module standard

Sub LanceUF()
UserForm1.Show
End Sub

'/// Ci-dessous un pseudo traitement ///
Sub Traitement(Optional dummy As Byte)
Dim i&
Dim j&
For i& = 1 To 100000
  '--- redonne la main au système qui peut affecter du temps ---
  '--- machine à d'autres tâches (l'UserForm par exemple)    ---
  DoEvents
  '-------------------------------------------------------------
  With UserForm1.Label1
    .Caption = i&
    If i& Mod 1000 = 0 Then
      .BackColor = i&
    End If
  End With
Next i&
End Sub

Copiez le code suivant dans la fenêtre de code du UserForm

Private Sub UserForm_Activate()
Call Traitement
Me.Hide
End Sub

Lancez la macro LanceUF qui va afficher le UserForm qui appelera la Sub Traitement.
L'argument (Optional dummy As Byte) de cette dernière ne sert qu'à empêcher son
affichage dans la boîte de macros.

Cordialement.

PMO
Patrick Morange

 

[Hugues]

Re : insertion image dans un USF

Merci à vous tous pour votre aide.
Un bonjour au Schilikois "Salut Bisame"

Hugues

 

[alex67800]

Re : insertion image dans un USF

Bonsoir Hugues,

Merci!!