PDA

View Full Version : Init listbox with Picture



letrolldu27
10-12-2016, 10:07 AM
Hello forum
3 leaf binder "Donnees", "Listing", "Images"
The logo is in "Images in column D

A: TxtB_Numéro1 (Identité) B: Nom de l'Image C: Chemin Images D: Images E: Si Pas Image
I have a concern. I can not charge the client image double click the listbox:

here's the code:


'**** Correspond à l'initialisation de la ListBox "Référentiel" *****
Private Sub Initialise_LstB_Referentiel()
' déclarations des variables
Dim i As Integer
Dim fPath As String
Dim Image1, Image2 As String
Dim t As Byte

Sheets("Listing").Select
With LstB_Referentiel
TxtB1 = .List(.ListIndex, 0) ' Numéro de la Ligne
CmbB_Groupe_Nom = .List(.ListIndex, 1) 'Groupe de la famille
CmbB_Civilite = .List(.ListIndex, 2) ' Civilité

For t = 1 To 4 'Nom, Prénom, Entreprise, Service
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 2)
Next t ' Fin de boucle

CmbB_Activite = .List(.ListIndex, 7) ' Activité
TxtB_Numero5 = .List(.ListIndex, 8) 'Adresse Domicile
CmbB_Code_Postal_Domicile = .List(.ListIndex, 9) ' Code Postal Domicile
CmbB_Ville_Domicile = .List(.ListIndex, 10) ' Ville Domicile
CmbB_Pays_Domicile = .List(.ListIndex, 11) 'Pays Domicile
TxtB_Numero6 = .List(.ListIndex, 12) 'Adresse Bureau
CmbB_Code_Postal_Bureau = .List(.ListIndex, 13) 'Code Postal Bureau
CmbB_Ville_Bureau = .List(.ListIndex, 14) 'Ville Bureau
CmbB_Pays_Bureau = .List(.ListIndex, 15) 'Pays Bureau

For t = 7 To 25
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 9)
Next t

CmbB_Code_APE = .List(.ListIndex, 35) ' N° APE
TxtB_Numero26 = .List(.ListIndex, 36) ' Titulaire du Compte
TxtB_Numero27 = .List(.ListIndex, 37) ' Nom APE
CmbB_Banque = .List(.ListIndex, 38) ' Banque

For t = 28 To 35 ' Domiciliation, Code Banque, Code Guichet, N° Compte
Userform1.Controls("TxtB_Numero" & t) = .List(.ListIndex, t + 11) ' Clé RIB, Code BIC, Code IBAN, N° SS
Next t ' Fin de boucle

TxtB_Date1 = .List(.ListIndex, 47) ' Date de naissance
CmbB_Type_Contrat = .List(.ListIndex, 48) 'Type de Contrat
CmbB_Statut = .List(.ListIndex, 49) ' Statut
TxtB_Numero36 = .List(.ListIndex, 50) ' Salaire
CmbB_Groupe_Travail = .List(.ListIndex, 51) ' Coefficient
CmbB_Coefficient = .List(.ListIndex, 52) ' Groupe
CmbB_Poste = .List(.ListIndex, 53) ' Nom du Poste
TxtB_Date2 = .List(.ListIndex, 54) ' Date d'arrivée
TxtB_Date3 = .List(.ListIndex, 55) ' Date de création
TxtB_Date4 = .List(.ListIndex, 56) ' Date de modification
TxtB_Numero37 = .List(.ListIndex, 57) ' Notes
CmbB_CodeClient = .List(.ListIndex, 58) ' Code Client
TxtB_Numero38 = .List(.ListIndex, 59) ' Nom Enfant 1
TxtB_Numero39 = .List(.ListIndex, 60) ' Prénom Enfant 1

TxtB_Date5 = .List(.ListIndex, 61) ' Date de naissance E1
TxtB_Numero40 = .List(.ListIndex, 62) ' Nom Enfant 2
TxtB_Numero41 = .List(.ListIndex, 63) ' Prénom Enfant 2

TxtB_Date6 = .List(.ListIndex, 64) ' Date de naissance E2
TxtB_Numero42 = .List(.ListIndex, 65) ' Nom Enfant 3
TxtB_Numero43 = .List(.ListIndex, 66) ' Prénom Enfant 3

TxtB_Date7 = .List(.ListIndex, 67) ' Date de naissance E3
TxtB_Images = .List(.ListIndex, 68) ' N° de l'image
TxtB_Chemin = .List(.ListIndex, 69) ' Chemin de l'image
TxtB_Numero36 = Format(TxtB_Numero36.Value, "## ##0.00€")
TxtB_Numero1.SetFocus
End With

this is what I fail to materialize:


' Définir le chemin de fichier
fPath = ThisWorkbook.Path & "\" & TxtB_Numero1.Value
i = Me.LstB_Referentiel.ListIndex
On Error Resume Next

it is with this :
Image1.Picture = LoadPicture(name)


' Afficher l'image
If Image1 <> "" Then ' ........Dir(Fichier) <> "" Then OU If Me.Image1.Picture Is Nothing Then
With Sheets("Images")
' Si le fichier existe, il est chargé pour visualisation.
Image1.Picture = LoadPicture(TxtB_Numero1.Value & ".bmp;.jpg;.jpeg;.jfif;.jpe;.tif;.tiff")
Me.Image1.Visible = True ' Affiche Image1
Me.Image2.Visible = False ' Masque Image2
'Image1.Picture = LoadPicture(fPath & "\" & Me.LstB_Referentiel.Column(3, i) & ".bmp;.jpg;.jpeg;.jfif;.jpe;.tif;.tiff")
' (Fichier)
End With

Else ' Si l'image des contacts ne sont pas disponibles
With Sheets("Images")
Me.Image2.Picture = Sheets(5).PasImages.Picture ' Charge PasImages dans l'Image2
Me.Image2.Visible = True ' Affiche Image2
Me.Image1.Visible = False ' Masque Image1
End With
End If

' Gestionnaire d'erreurs reset
On Error GoTo 0
CmdB_Supprimer.Enabled = True ' Bouton dévérouillé
CmdB_Nouveau.Enabled = False ' Bouton vérouillé
CmdB_Modifier.Enabled = True 'Bouton dévérouillé
End Sub
I attach my file for clarity :
17313
Thank you
cordially