madgicbobbyboon
XLDnaute Junior
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
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