Discussion :

[Lutobor]

Bonjour.

Ma demande n'es pas courante, mais je m'en remets à vous pour connaitre la viabilité de ce projet, ou du moins recevoir quelques conseils pour mieux orienter ma recherche...

Le projet se compose sur une page d'une image (d'un écran professionnel) dans la partie haute et d'une zone de texte dans la partie basse.
Le but recherché, est lorsque l'on alimentent la zone de texte par exemple en inscrivant "12 25", après validation l'image correspondante "12 25" remplace l'image initiale dans la partie haute.

Pour le moment mes "images" sont sous Excel.

Merci d'avance, meme si je me rend bien compte que cela manque de détails...

[Daniel.C]

Bonjour,

Plutôt qu'une zone de texte, j'utiliserais plutôt une zone de de liste déroulante. Tu pourrais également utiliser un contrôle Image pour afficher les images.
Peux-tu expliciter ce que tu entends par :

Pour le moment mes "images" sont sous Excel.

[Lutobor]

Je préférerais maintenir une zone texte, l'idée étant que la personne confrontée à une situation puisse par elle même trouver le bon code à appliquer et non lui proposer une liste à choisir.

Par image j'entend un fichier excel ou image sous format Jpeg par exemple.

Merci pour votre réponse.

[Daniel.C]

Je comprends pour les images. Pour les classeurs, je ne vois pas ce que tu veux afficher. Quelle feuille ? Quelle plage ?

[Lutobor]

Merci sincerement pour le temps que vous m'avez accordé afin de me repondre de maniére si compléte.

Malheuresement je n'arrive pas à reproduire ce que je cherche à réaliser, je souhaiterais si jamais vous aviez la gentilesse de m'accorder encore du temps pouvoir faire apparaitre l'image de la feuil 2 en remplacement de celle en feuil 1.

Le code à taper (champs en bas à droite) pour faire apparaitre l'image 2 serais: 21 4203 4225 (Ou 21_4203_4225 à défaut)

Meme chose pour l'image 3: mais le code serais: 21 4225 4303

Dans tous les cas merci pour votre aide si precieuse.

Cordialement.

PS: Image = champs en noir.

[Daniel.C]

Bonjour,

Pas sûr d'avoir bien compris où devait s'afficher l'image. Regarde le classeur joint. la macro du mosule de la feuille est :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Chemin As String
If Target.Address = "$G$22" Then
Chemin = "C:\Users\Daniel\Pictures\"
    With Me.Image1
        .Picture = LoadPicture(Chemin & Target.Value)
        .PictureSizeMode = fmPictureSizeModeZoom
    End With
End If
End Sub

Tu dois modifier la ligne :

Code :

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

Chemin = "C:\Users\Daniel\Pictures\"

pour indiquer le chemin de tes images. Lorsque tu saisis le nom d'une image (avec l'extension) en G22, l'image s'affiche.