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...".

[gilt83]

Re,

Oui j'ai supprimer la ligne "On Error"

Quand je clique pour afficher mon UserForm il me met
"Erreur d'exécution '53':
Fichier introuvable

je suis sur que le chemin est bon car j'ai toujours fait comme ça

Je suis perdu

Cordialement
Gil

[Daniel.C]

Il n'y a pas de fichier portant ce nom dans le dossier spécifié. Tu peux te tromper, VBA est infaillible. Vérifie aussi que le chemin existe. Positionne le curseur au dessus de "MyImage" pour voir le nom du fichier.

[gilt83]

Re DANIEL.C

Merci pour vos réponses, je vais re re regarder et je vous répond au plus vite.
La famille viens d'arriver donc je crois que ce soir je n'aurai pas le temps.
Je posterai mes résultats demain après midi.
En tout cas merci encore pour vos réponses et très bonne soirée.

Cordialement
Gil

[gilt83]

Re Daniel.C, le forum,

Avec le code ci joint les photos change mais pas les renseignements;

Code :

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

1
2
3
4
5
6
Dim MyImage As String
 
    MyImage = Worksheets("Feuil1").Cells(ScrollBar_No.Value, "E")
 
    Image2.Picture = LoadPicture("C:\Users\Gil\Desktop\Ma base avec Photos\Essai Images\" & MyImage & ".jpg")
    Exit Sub

Je mets le fichier avec.
Merci

[SfJ5Rpw8]

Bonsoir,

et dans le code que tu nous montre qu'elle ligne est censé "changer les renseignements" ... dans tes lignes 1 à 6 tu ne t'occupe que de l'image !...

[gilt83]

Bonsoir bbil,

Merci de votre réponse et effectivement vous avez raison.

Bon je ne vois pas comment faire.

Je suis plus que débutant en VBA.

Merci pour cette explication et j'espère que vous me guiderai vers la solution.

Cordialement

Re bonsoir,

Pour re répondre a votre question
(qu'elle ligne est censé "changer les renseignements").
Je dirais que c'est:"MyImage = Worksheets("Feuil1").Cells(ScrollBar_No.Value, "E")".
Il doit et j'en suis sur manquer quelques chose
C'est que je suis Novice pour la création de code VBA.

Cordialement
Bonne soirée

Bonsoir a tous

Je suis vraiment bloqué et si quelqu'un peut m'aider ce serai vraiment sympa.
Je sais que c'est un forum et ce n'est que des réponses volontaire, et qu'il n'est pas question que qui que ce soit me
donne la réponse toute faite mais juste une direction.

Merci d'avance et bonne soirée

Gil

[Daniel.C]

Pour re répondre a votre question
(qu'elle ligne est censé "changer les renseignements").
Je dirais que c'est:"MyImage = Worksheets("Feuil1").Cells(ScrollBar_No.Value, "E")".

Non, cette ligne récupère le nom de l'image.

[gilt83]

Bonsoir Daniel.C

Merci pour votre réponse.

Je me dirige vers quoi pour essayer de régler mon problème.
Une Idée !!!!
Une direction à pendre !!!!

Merci encore

Cordialement
Gil

[Daniel.C]

Tu peux peut-être dire où se trouvent ces renseignements et où tu veux les mettre ?

[gilt83]

Re

Oui si tu veut bien me guidé

Cordialement
Gil

[Daniel.C]

Désolé, c'est toi qui sais où sont les données et où tu veux les mettre; je ne suis pas devin.

[gilt83]

Bonjour Daniel,

Désolé pour le retard de ma réponse "Boulot"
Les données sont dans la feuil1:
Colonne E à partir de la ligne 2

J'aimerais les affichées dans les textbox de mon UserForm dynamique.
Et je ne sais pas quoi écrire pour faire cela.

Dans le fichier joint du 13 mai:
c'est les photos qui changent mais pas les renseignements.

Code :

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

1
2
3
4
5
6
Dim MyImage As String
 
    MyImage = Worksheets("Feuil1").Cells(ScrollBar_No.Value, "E")
 
    Image2.Picture = LoadPicture("C:\Users\Gil\Desktop\Ma base avec Photos\Essai Images\" & MyImage & ".jpg")
    Exit Sub

Et si je laisse

Code :

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

On Error GoTo Autre

Ce sont les renseignements qui changent mais pas les photos.

Et je n'arrive pas à rassembler les deux

Merci

Cordialement
Gil

[Daniel.C]

En colonne E tu as les noms des images. Qu'est-ce que tu appelles "renseignements" ?

[gilt83]

re,

Pour répondre à:

(En colonne E tu as les noms des images)

En colonne E il y a les noms des "clients"
et les photos correspondantes aux noms des "clients" sont dans le répertoire suivant:
"C:\Users\Gil\Desktop\Ma base avec Photos\Essai Images"

A ta question:

Qu'est-ce que tu appelles "renseignements" ?

Ce sont les noms des "clients"
Voir mon fichier simplifié qui change les photos mais pas les noms.

Merci

Gil