Nom change mais pas la photo dans userform avec scrollbar

Version imprimable

Voir 40 message(s) de cette discussion en une page

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

13/05/2014, 11h36
Daniel.C

Bonjour,

Mets ton fichier en pièce jointe.
13/05/2014, 17h32
gilt83

Bonjour Daniel.C

Merci de me répondre

Voila le fichier en pièce jointe.

Encore Merci
13/05/2014, 18h20
Daniel.C

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.
13/05/2014, 19h03
gilt83

3 pièce(s) jointe(s)

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
13/05/2014, 19h13
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...".
13/05/2014, 19h31
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:oops:

Cordialement
Gil
13/05/2014, 20h22
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.
13/05/2014, 21h42
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

4 pièce(s) jointe(s)

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

13/05/2014, 23h31
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 !...
14/05/2014, 21h45
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.: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
14/05/2014, 21h58
Daniel.C

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.
14/05/2014, 22h12
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 !!!!:calim2:
Une direction à pendre !!!!:calim2:

Merci encore

Cordialement
Gil
14/05/2014, 22h30
Daniel.C

Tu peux peut-être dire où se trouvent ces renseignements et où tu veux les mettre ?
14/05/2014, 23h57
gilt83

Re

Oui si tu veut bien me guidé

Cordialement
Gil
15/05/2014, 09h38
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.

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

15/05/2014, 18h29
Daniel.C

En colonne E tu as les noms des images. Qu'est-ce que tu appelles "renseignements" ?
15/05/2014, 19h15
gilt83

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

Voir 40 message(s) de cette discussion en une page