Nom change mais pas la photo dans userform avec scrollbar

Bonsoir les experts, le forum.

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

Voici le code:

Code:

---

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.:calim2:
L'userform est dynamique et il créer tous les contrôles.

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

Merci pour votre aide

Bonjour,

Mets ton fichier en pièce jointe.

Bonjour Daniel.C

Merci de me répondre

Voila le fichier en pièce jointe.

Encore Merci

Ote l'instruction :

Code:

---

On Error GoTo Autre

---

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

Merci Daniel.C

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

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

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

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:oops:

Cordialement
Gil

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.

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

Re Daniel.C, le forum,

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

Code:

---

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

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

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.:oops:

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

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

Citation:

---

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.

Bonsoir Daniel.C

Merci pour votre réponse.

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

Merci encore

Cordialement
Gil

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

Re

Oui si tu veut bien me guidé

Cordialement
Gil

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

Bonjour Daniel,

Désolé pour le retard de ma réponse "Boulot":aie:
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:

---

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:

---

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

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

re,

Pour répondre à:

Citation:

---

(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:

Citation:

---

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

En colonne E, tu as une liste de noms. Qu'est-ce qui est le nom et qu'est-ce qui est le nom de l'image associée ?

Oui en colonne E j'ai une liste de noms

L'image a le même nom que le "client"

Ex: Nom OFF 001 = il y a une image dans mon dossier image qui est nommée Nom OFF 001
Nom OFF 002 = il y a une image dans mon dossier image qui est nommée Nom OFF 002

etc,

Gil

Citation:

---

A ta question:
Qu'est-ce que tu appelles "renseignements" ?

Ce sont les noms des "clients"

---

Bon, alors, tu les as; qu'est-ce que tu veux de plus ?

Bonjour,

Merci mais la je suis nul "en VBA" car je ne comprend pas "ton code":weird:

Désolé:oops:

Oups, autant pour moi; je me suis servi des balises code au lieu des balises quote. Je modifie.

Désolé mais j'ai raté un épisode car je ne comprend toujours pas ta réponse:calim2::calim2:

Ecoute, je vais arrêter de répondre sur ce fil. Si tu ne connais rien à VBA, inutile de continuer.

Désolé8O
Pour le VBA je ne fait qu'adapter (Dans la mesure de ce que je sais faire) les codes des forumeurs et cela me suffit.
Et pour les codes plus complexes pour moi je demande de l'AIDE à vous les experts.

C'est vrai que sur un forum les réponses sont au bon vouloir de chacun, et je respecte cela.

MERCI quand même de m'avoir répondu.:)

Bonne fin de journée

Gil

Bonsoir le forum, les experts,

J'ai trouvé la solution à mon problème:mouarf:

Bonne soirée a tous et merci car ce forum est super:zoubi: