Charger image du classeur dans USF

Bonjour,

J'aurais besoin d'aide pour faire afficher une image dans un USF en fonction du libellé d'une combobox. Voici les détails :

Dans mon classeur

J'ai une liste de donnée dans mon classeur dans les cases F2 à F66.

Pour chaque valeur une image différente est associée (le nom de l'image est le même que le libellé de la cellule à laquelle il se réfère).

Dans mon USF

J'ai une comboBox qui est alimentée par mes valeurs (de F2 à F66)

Je souhaiterais que l'image (image36) apparaisse et change en focntion de la valeur de la combobox.

J'espère que je suis assez clair.

Pouvez-vous m'aider?

Merci d'avance

Iron

Re,

J'ai essayé un truc du genre mais ça ne marche pas :

Worksheets("Param").Range("G8").CopyPicture

Worksheets("Param").Paste

Selection.Name = ImageDom

Image36.Picture = LoadPicture(ImageDom)

Hello,

Bon j'ai trouvé ma solution. Pour ceux que ça intéresse j'ai utilisé un contrôle Active X Image dans lequel j'ai collé mon image et renommé Imgae7.

Du coup pour alimenter mon image dans USF (image36) j'utilise le code :

UserForm1.Image36.Picture = Sheets("Param").Image7.Picture

Hello,

J'ai un nouveau défi : je voudrais intégrer une boucle à ma ligne de code précédente mais je n'y arrive pas.

J'ai essayé mais ça bug sur "Controls("Image" & I)" je crois :

   Dim I As Integer

    For I = 1 To 7
        If TbEquipe1 = Sheets("Param").Range("F" & I + 1) Then            
        UserForm1.Image36.Picture = Sheets("Param").Controls("Image" & I).Picture     
        End If
    Next I

Vous avez une idée?

Bonjour,

Petit up pour savoir si vous avez une solution pour moi.

Merci

Iron

Bonjour,

Nouvel up. Je me sent un peu seul dans ce topic

Salut,

Je ne peut pas t'aider sur ton problème, mais par contre joint ton fichier excel pour que les personnes puissent voir concrétement de quoi il s'agit.

Ensuite, si quelqu'un peut-t'aider il le fera, il faut être patient.

Bon courage

Je ne peux malheureusement pas poster le document : c'est un doc pro et en plus si j'upload un fichier je vais me faire rattrapper par la sécurité de ma boite.

Si je ne suis pas assez claire, je peux apporter des précisions. Dites mois ce que vous avez besoin comme info.

En récap, je bloque pour faire une boucle sur le nom d'une image. J'aurais besoin de quelque chose de ce style :

UserForm1.Image36.Picture = Sheets("Param").Controls("Image" & I).Picture

Bonjour,

Allez mon petit up du jour : vous allez pas me dire que personne n'a la réponse?

Iron

Bonjour,

Allez un nouvel up : please, help me.