Discussion :

[gilt83]

Bonsoir les experts, le forum.

Je n'arrive pas a afficher les renseignements qui correspondent avec la photo de "clients".

Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'****************************************************
' Changement de position de la scrollbar
'****************************************************
Private Sub ScrollBar_No_Change()
 
'********************************************************************************************************************************
'********************************************************************************************************************************
Dim MyImage As String
 
    On Error GoTo Autre
    MyImage = Worksheets("Feuil1").Cells(ScrollBar_No.Value, "E")
 
    Image2.Picture = LoadPicture("C:\Users\Gil\Desktop\Mes images\" & MyImage & ".jpg")
    Exit Sub
 
Autre:
    Image2.Picture = LoadPicture("C:\Users\Gil\Desktop\Mes images\Autre.jpg")
'********************************************************************************************************************************
'********************************************************************************************************************************
 
    If enable_event_userform = False Then Exit Sub
    Call initialise_formulaire(Me.ScrollBar_No.Value)
End Sub

La lettre "E" correspond a la colonne.

Merci de m'aider car je bloque.
L'userform est dynamique et il créer tous les contrôles.

j'ai un fichier "sans données confidencielles".

Merci pour votre aide

[Daniel.C]

Bonjour,

Mets ton fichier en pièce jointe.

[gilt83]

Bonjour Daniel.C

Merci de me répondre

Voila le fichier en pièce jointe.

Encore Merci

[Daniel.C]

Ote l'instruction :

Code :

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

On Error GoTo Autre

qui masque ton erreur. L'image que tu cherches à charger n'existe probablement pas ou le chemin est incorrect.

[gilt83]

Merci Daniel.C

J'ai fait ce que vous m'avez écrit mais toujours pareil.

Pour les photos je les ai nommées Nom 001, Nom 002, Nom 003 etc etc

Je vous mets en pièce jointe les photos pour voir si je n'ai pas fait d'autres erreurs car j'ouvre mon dossier Images et je récupère l'adresse.
J'ai toujours fait comme ca et cela fonctionnait.

Merci car je suis bloqué.

Bonne soirée

[Daniel.C]

Si tu affiches l'image "Autre.jpg" c'est que tu as une erreur sur les lignes précédentes, si tu as bien ôté la ligne "On Error...".