XL 2010 Trombi

[madgicbobbyboon]

Bonjour et gloire a ceux qui travaillent

je cherche le code qui pourra me permettre d'associer,dans un userform, le nom d'une personne (qu'on sélectionne à partir d'une combobox) à sa photo dans un contrôle "image".

voila le debut de mon code

Private Sub UserForm_Initialize()
'userform_initialize()= on prepare la combo a faire quelque chose
L = Sheets("Feuil3").Range("A65536").End(xlUp).Row
'Je trouve la dernière cellule (range) de la Colonne "A" row=ligne
'sheets ("Feuil3")= dans la feuille Code..Ecrire de la meme façon le nom des feuilles
For X = 1 To L
'Je fais une boucle pour remplir la ComboBox
ComboBox1.AddItem Sheets("Feuil3").Range("A" & X)
'et j'ajoute à chaque fois un Item dans la combo
Next X
End Sub

Private Sub ComboBox1_Change()
With Sheets("Feuil3")
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
'si aucune étiquette n'est choisie dans la liste alors on sort de la procédure
TextBox1 = .Range("c" & Me.ComboBox1.ListIndex + 1) 'nom
'sinon on récupère les données de la colonne X en face de l'étiquette choisie de la combobox
TextBox2 = .Range("b" & Me.ComboBox1.ListIndex + 1) 'prenom
TextBox6 = .Range("G" & Me.ComboBox1.ListIndex + 1) 'année de naissance
TextBox7 = .Range("H" & Me.ComboBox1.ListIndex + 1) 'permis de conduire

TextBox11 = .Range("I" & Me.ComboBox1.ListIndex + 1) 'tel
TextBox12 = .Range("E" & Me.ComboBox1.ListIndex + 1) 'mail
TextBox13 = .Range("F" & Me.ComboBox1.ListIndex + 1) 'bureau

TextBox14 = .Range("D" & Me.ComboBox1.ListIndex + 1) 'pôle
TextBox15 = .Range("j" & Me.ComboBox1.ListIndex + 1)
TextBox8 = .Range("L" & Me.ComboBox1.ListIndex + 1)

TextBox5 = .Range("K" & Me.ComboBox1.ListIndex + 1)

End With
End Sub

Merci

 

[gosselien]

Re : Trombi

Bonjour,

je ne fais jamais de userform mais j'ai vu ceci:

Private Sub TextBox4_Change()
Dim chemin As String
On Error GoTo absent
'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous
chemin = textbox4.Value 'donc chemin = bougies
'pour afficher l'image, nous avons la ligne suivante
UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\" & bougies & ".JPG")
'ou nous retrouvons le repertoire par defaut des images et notre variable
 
'une petite gestion d'erreur au cas ou l'image n'est pas trouvé
absent:  MsgBox "la photo demandé n'est pas disponible"
End Sub