Discussion :

[arthur83fr]

bonjour,
j'ai un userform avec un cadre image.
je veux qu'a l'ouverture de celui ci le cadre Image soit rempli de la photo imposée.

je sais comment imposer une photo dans les propriétés du cadre Image mais je butte sur la façon de faire en VBA malgré mon code il n'affiche rien.

ou je pige rien ou quelque chose m'échappe
voici quelques ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Public Sub UserForm1_Initialize()
Whith UserForm1
' Affiche "photo indisponible" dans cadre photo 2
Dim Chemin_Nom_Inconnu As String
Chemin_Nom_Inconnu = "C:\Users\ANTEC\Desktop\TSCP Test Prog\Photo\" & "Photo indisponible" & ".jpg"
Image2_Photo_Adherent.Picture = LoadPicture(Chemin_Nom_Inconnu)
End With
End Sub

une petite aide me serait précieuse

[Theze]

Bonjour,

Tu ne peux pas modifier le nom de la procédure événementielle Initialize() donc ce n'est pas UserForm1_Initialize() mais UserForm_Initialize :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Initialize()
 
    Dim Chemin_Nom_Inconnu As String
 
    Chemin_Nom_Inconnu = "C:\Users\ANTEC\Desktop\TSCP Test Prog\Photo\" & "Photo indisponible" & ".jpg"
    Image2_Photo_Adherent.Picture = LoadPicture(Chemin_Nom_Inconnu)
 
End Sub

[arthur83fr]

Merci Theze d'avoir jeter un œil bienveillant mais surtout extérieur sur mon code.
effectivement ta solution a mon erreur fonctionne sans aucun problème.
je bouclais sur mon erreur sans pour autant comprendre.

encore merci

[Theze]

Bonjour,

Je répond malgré la clôture du post car c'est dommage que tu n'est pas compris l'erreur commise !

Quand tu te trouves dans le module de l'UserForm, tu as deux ComboBox au dessus de la zone de texte (là où tu écris le code), dans celui de gauche tu as les noms des objets se trouvant sur l'UserForm et le nom de ce dernier (il y a aussi "(Général)" qui correspond aux déclarations en tête de module, aux Sub et aux fonctions).
Quand tu souhaites utiliser une procédure événementielle pour un objet en particulier, tu le sélectionnes dans la liste et un squelette de la procédure par défaut est créé (un double clic sur l'objet crée aussi le squelette de la procédure par défaut), dans le ComboBox de droite s'affiche les procédures disponibles ce qui fait que quand tu choisis "Initialize" dans ce dernier, le nom de l'objet suivi du nom de la procédure s'inscrivent dans la zone de texte (ils sont séparés par un tiret bas) mais la particularité de l'UserForm, comme il est l'objet parent et que le module lui est propre, quel que soit son nom, ça sera toujours "UserForm" suivit de la procédure. Tous les UserForms de ton classeur, qu'il y en ai 2 ou 10, auront les mêmes noms de procédures événementielles. Il en est de même pour les procédure événementielles des feuilles, ça sera toujours "Worksheet_" et la procédure, pareil pour le classeur, ça sera toujours "Workbook_" et la procédure et ceci quel que soit le nom qu'ils portent.