Image vers textbox

[apdf1]

Bonjour,

Comment mettre dans un textbox qui se trouve sur une feuille une image en fonction de la note 10,20 ou 30 que l'on rentre dans la cellule B8.

Un très grand merci à tout ceux qui pourront m'aider...

Ci joint le fichier exemple

Cordialement
Max

 

[Papou-net]

Re : Image vers textbox

Bonjour Max,

Voici ton fichier avec une macro répondant à ton besoin.

Note que j'ai remplacé le TextBox par un contrôle Image. Tu dois également remplacer les images que j'ai prévues dans le code par celles de ton choix, en mentionnant le chemin exact.

Espérant avoir répondu.

Cordialement.

 

[apdf1]

Re : Image vers textbox

Bonjour Papou-Net,

Et merci

J'ai créer un dossier sur mon bureau "Photo" je lui ai mis 3 photos image1, image2, image3
j'ai enregistré le fichier dans le même dossier et j'ai donné comme chemin "C:\Users\A.P.D.F\Desktop\photo\image1"

Sa me donne un message d'erreur fichier introuvable ?

@+

Max

 

[apdf1]

Re : Image vers textbox

Re,

Excuse moi

Grossière erreur de ma part j'avais omis de mettre ".Gif"

Bonne journée

Cordialement
Max

 

[apdf1]

Re : Image vers textbox

Re,

Papou-Net.Et tu dans les sur le fil comme tu connais le code puisque tu la fait. pourrais tu me dire comment je peut faire pour faire fonctionner le code de la manier suivante:
Normalement dans B8 je rentre la somme 10, 15 ou 20 pour avoir une image correspondant a la somme jusqu'ici tous va bien.

Etend donnée que je rentre pas la somme directement en B8 sa ne fonctionne pas, normal …! puisque je passe par la cellule A2 et que j'ai mis une formule dans "B8".

Y a-t-il une possibilité ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$B$8" Then Exit Sub
Dim Image As String
Select Case Target.Value
  Case 5
    Image = "C:\Users\A.P.D.F\Desktop\photo\image1.gif"
  Case 10
    Image = "C:\Users\A.P.D.F\Desktop\photo\image2.gif"
  Case 15
    Image = "C:\Users\A.P.D.F\Desktop\photo\image3.gif"
  Case 20
    Image = "C:\Users\A.P.D.F\Desktop\photo\image4.gif"
  Case Else
    Image = ""
End Select
Image1.Picture = LoadPicture(Image)
End Sub

Meri d'avance

Ci joint le fichier exemple

Cordialement
Max

 

[Papou-net]

Re : Image vers textbox

RE : Max,

Il faut changer de procédure événementielle.

Tu peux supprimer la macro "Private Sub Worksheet_Change(ByVal Target As Range)" et la remplacer par :

Private Sub Worksheet_Calculate()
Dim Image As String
Select Case [b8].Value
  Case 5
    Image = "C:\Users\A.P.D.F\Desktop\photo\image1.gif"
  Case 10
    Image = "C:\Users\A.P.D.F\Desktop\photo\image2.gif"
  Case 15
    Image = "C:\Users\A.P.D.F\Desktop\photo\image3.gif"
  Case 20
    Image = "C:\Users\A.P.D.F\Desktop\photo\image4.gif"
  Case Else
    Image = ""
End Select
Image1.Picture = LoadPicture(Image)
End Sub

Cordialement.

 

[apdf1]

Re : Image vers textbox

Re,

Je te remercie sa marche nickel

Bonne soirée

Cordialement

Max