Discussion :

[david.guedes]

bonjour

mon probleme est que je n arrive pas a formuler le code pour afficher image suivant la valeur du textbox 4

le chemin d acces au photo se trouve a C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos

si quelqu un pouvais m aider svp.

cordialement

ci joint le fichier

[keygen08]

Bonjour,
au plus simple

Code :

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

1
2
3
Private Sub TextBox4_Change()
UserForm3.Image1.Picture = LoadPicture("D:\A CAP EVASION\Photos directeurs\Astrid Binse Nicolai - Valmeinier A.jpg")
End Sub

Il faudra bien entendu remplacer tous ce qui est entre parenthese par une variable.

[david.guedes]

bonjour

voila ce que j ai fait mais ca bloque

Code :

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

1
2
3
4
Private Sub TextBox4_Change()
 
     UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos.jpg")
End Sub

je ne comprends pas vu que je suis novice en la matiere

cordialement

[keygen08]

Bonsoir
reprenons. Donc tu fais une photo de bougies que tu appelle Bougies et que tu place dans le repertoire
C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos
donc le chemin d'accés a ce fichier sera
C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\bougies.jpg

Avec notre code( un peu agrementer)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox4_Change()
dim chemin as string
on error goto absent
'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous
chemin = textbox4.value 'donc chemin = bougies
'pour afficher l'image, nous avons la ligne suivante
UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\" & bougies & ".JPG")
'ou nous retrouvons le repertoire par defaut des images et notre variable
 
une petite gestion d'erreur au cas ou l'image n'est pas trouvé
absent : msgbox "la photo demandé n'est pas disponible"
End Sub

et c'est tout.
la msgbox apparaitra a chaque fois que le chemin demandé n'est pas disponible.
donc attention au fautes d'ortographe ou meme d'accent dans textbox4.

[david.guedes]

bonjour

merci pour ton aide
ca marche tres bien mais il faut que nomme la photo dans le code
le probleme c est que j ai a peu pres 500 photos differentes
comment dois je ecrire le code en consequence

cordialement

[keygen08]

Non pas dans le code, ecris juste le nom de la photo soit "bougies" dans la textbox en dessous de la photo

[david.guedes]

bonjour

merci pour ton aide

le fichier fonctionne tres bien

parfois il me faut du temps pour comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TextBox4_Change()
 
Dim chemin As String
On Error GoTo absent
'on definie une variable en taille, le dim au dessus, et sa valeur, la ligne en dessous
chemin = TextBox4.Value 'donc chemin = bougies
'pour afficher l'image, nous avons la ligne suivante
UserForm3.Image1.Picture = LoadPicture("C:\Users\utilisateur\Documents\A.L.D\facturation\photos matos\" & chemin & ".JPG")
'ou nous retrouvons le repertoire par defaut des images et notre variable
 
'une petite gestion d'erreur au cas ou l'image n'est pas trouvé
absent:  MsgBox "la photo demandé n'est pas disponible"
End Sub

merci encore

cordialement keygen08

[jakbom]

Bonjour,
Voici un petit fichier dans lequel un simple formulaire devrait faire l'affaire.
Cordialement
JB