Changer Image dans Userform

[Maspalio]

Bonjour,

J'ai une Userform avec 5 images en visible=false, que je passe en visible=true selon des conditions passées via des options buttons.

Cependant dans le vue d’améliorer mon code, est aussi pour un gain de taille de fichier, je voulais savoir si au lieu de créer 5 images, j'en crée 1 seule et je change le source (chemin), cela est-il faisable ?

 Dim Fichier As String
    
    Fichier = "C:\fourmis.jpg"
    
    'Vérifie si le fichier existe.
    If Dir(Fichier) <> "" Then
        'si le fichier existe, il est chargé pour visualisation.
        Image1.Picture = LoadPicture(Fichier)
        Else
        'Sinon, affiche aucune image.
        Image1.Picture = LoadPicture("")
    End If

J'ai procédé ainsi, mais je bloque sur le chemin, comme faire si je déplace mon fichier et/ou mes images dans un autre dossier ?

Merci,

 

[Dranreb]

Re : Changer Image dans Userform

Bonjour.
ThisWorkbook.Path vous donne le chemin du classeur portant la macro
ChDrive(ThisWorkbook.Path): ChDir(ThisWorkbook.Path) permettrait de n'avoir à spécifier ensuite que les noms des fichiers situés sur le même répertoire que le classeur.
Si ça ne convient pas il faut trouver une autre règle.
Cordialement.

 

[Maspalio]

Re : Changer Image dans Userform

Salut Dranreb.

Effectivement, cela fonctionne.
Cependant on doit mettre les images dans le même dossier que le classeur Excel lancé. (j’hésite sur l'utilité réelle)

Autre question, selon toi qu'elle est la meilleure solution ? sachant que le fichier (classeur) transitera entre différentes mains, pc, utilisateurs pas forcement avertis ..
Charger en dur dans le classeur ? passer par le chemin de l'image ? ou solution alternative, insérer les images dans une sheets et les appeler en vba ? ou .. autre solution ?

Je suis ouvert à tout conseil, le point de vue des autres est toujours bénéfique.

 

[Dranreb]

Re : Changer Image dans Userform

Mettre le chemin dans une cellule ce n'est pas mal.
Et si un fichier n'est pas trouvé, utilisez Application.GetOpenFilename pour demander à l'utilisateur de l'ouvrir,
et notez son chemin dans la dite cellule.

 

[Maspalio]

Re : Changer Image dans Userform

Tu sais peut être comment on appelle une image dans un sheet en VBA?

ActiveSheet.Shapes("Bild 1").Select

Cependant je n'arrives pas a faire le

 Image01.Picture = LoadPicture()

de cette image..

 

[Dranreb]

Re : Changer Image dans Userform

Votre seconde instruction s'applique à un contrôle image et non à un Shape.
Vérifiez dans la liste de gauche surmontant la fenêtre de code si cet objet existe.

de cette image..

Hé, laquelle ? Vous n'en précisez pas dans l'instruction !

 

[Maspalio]

Re : Changer Image dans Userform

comme ceci pardon,

Image01.Picture = LoadPicture(Worksheets("DB_Pictures").Shapes("Bild 1").Select)

mais il affecte rien,

 

[tototiti2008]

Re : Changer Image dans Userform

Bonjour Maspalio, Bonjour Dranreb,

Oui, mettre une image du classeur dans un Userform n'est pas si simple
Un fil qui en parle :

https://www.excel-downloads.com/threads/label-dans-le-sens-vertical.153148/

 

[Maspalio]

Re : Changer Image dans Userform

Effectivement, super complexe, et pas forcement utile pour mon classeur.

Donc je vais en revenir à mes 2 choix initiaux, mettre X images dans ma userform selon les X conditions, ou alors 1 Image avec X LoadPicture selon un path spécifique.

Ni, l'un ni l'autre n'est forcement adéquat, mais prenons le meilleur des 2 ^^

Sinon j'ai trouvé ca : Utiliser le contrle ImageList en VBA Excel

Bonne solution alternative ?

 

[Dranreb]

Re : Changer Image dans Userform

Image01.Picture = LoadPicture(Worksheets("DB_Pictures").Shapes("Bild 1").Select)

Non. Vous ne pouvez spécifier qu'un nom de fichier dans le LoadPicture. Concaténé darrière son chemin si celui ci n'a pas fait l'objet d'un ChDir, lui même précédé d'un ChDrive par sécurite, à tout hasard.

 

[Maspalio]

Re : Changer Image dans Userform

Finalement, j'ai utilisé la solution que j'ai passé dans le lien dans le post #9

Merci encore a vous 2, pour vos conseils, pour vos infos, on en apprend tout les jours sur Excel, son fonctionnements, ses petits rouages,