Formulaire excel 2007: insérer des images avec la combobox m'est impossible!


#1

Bonjour le Forum,
Je me permet de revenir vers vous, car je me suis aperçu que je n’ai pu joindre, hier, le fichier excel…
Il pourrait vous être bien utile pour pouvoir m’aider;
Le problème que je rencontre est que je n’arrive pas, avec la ComboBox, à insérer mes images dans le formulaire, je galère complètement;
Merci à vous!

Voici mon code:

Private Sub ComboBox1_Change()

If Dir(ThisWorkbook.Path & “MEDAILLES” & “” & “Image”) = “” Then
Me.imgPhoto.Picture = LoadPicture("")
Else
Me.imgPhoto.Picture = LoadPicture(ThisWorkbook.Path & “MEDAILLES” & “” & “Image”)
End If

End Sub

Private Sub ComboBox1_Click()

Dim i As Integer
Dim Image As String
Image = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets(“BDD”).Range(“Source”), 44, 0)

On Error GoTo 1    
    
With Me

.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 2, 0)
.TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 3, 0)
.TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 4, 0)
.TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 5, 0)
.TextBox6 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 7, 0)
.TextBox7 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 8, 0)
.TextBox8 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 11, 0)
.TextBox9 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 12, 0)
.TextBox10 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 6, 0)
.TextBox11 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 9, 0)
.TextBox12 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 13, 0)
.TextBox13 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 19, 0)
.TextBox14 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 15, 0)
.TextBox15 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 16, 0)
.TextBox16 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 18, 0)
.TextBox17 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 14, 0)
.TextBox18 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 17, 0)
.TextBox19 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 21, 0)
.TextBox20 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 37, 0)
.TextBox21 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 38, 0)
.TextBox22 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 43, 0)
.TextBox23 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 32, 0)
.TextBox24 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 39, 0)
.TextBox25 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 20, 0)
.TextBox26 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 22, 0)
.TextBox27 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 23, 0)
.TextBox28 = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1), Sheets("BDD").Range("Source"), 44, 0)

If Dir(ThisWorkbook.Path & “MEDAILLES” & “” & “Image”) = “” Then
Me.imgPhoto.Picture = LoadPicture("")
Else
Me.imgPhoto.Picture = LoadPicture(ThisWorkbook.Path & “MEDAILLES” & “” & “Image”)
End If
End With

1

End Sub

LISTE MOBILISÉS 14 18.xlsm (1,2 Mo)


#2

Hello

J’en déduis que c’est le même sujet qu’ici? Formulaire Excel 2007: Insérer des images avec une ListBox


#3

LISTE MOBILISÉS 14 18.xlsm (1,1 Mo)

On en était pas loin à essayer je pense que ça devrait le faire !

Cordialement.


#4

Bonjour,
Merci beaucoup pour votre gentillesse et votre efficacité, vous êtes vraiment formidables!!!
Bravo au forum :+1::stuck_out_tongue_winking_eye:


#5

Bonjour

Si ton problème est résolu, peux-tu stp cocher le petit :white_check_mark: sous le message qui contient la solution stp?

Cela nous aide à déterminer qui a encore besoin d’aide et qui est sauvé!

Merci