Bonjour,
Mon problème est le suivant j'ai un résultat qui varie dans une cellule ( par ex: F11), dans la cellule voisine ( par exemple G11) j'affiche une image en fonction du résultat obtenu dans F11. Pour ce faire j'ai un code que je joins en pièce jointe et un active X image en G11.
Mon souci j'ai dans la même feuille ( ex : M11) un autre résultat auquel j'aimerais associé les mêmes images( en N11) en fonction du résultat de M11; j'ai également mis un activeX image en N11.
J'ai beau essayé de modifier mon code dans tous les sens je n'arrive pas à avoir une image en N11.
Quelqu'un a t-il une solution? Avec mes remerciements par avance.
Private Sub Image1_Click()
End Sub
Sub Worksheet_Change(ByVal Target As Range)
Dim Fichier As String, Chemin As String
If Target.Count = 1 And Target.Column = 6 And Target.Row = 11 Then
Chemin = "C:\Users\Mon_ordi\Desktop\Emoti\"
Select Case Target
Case Is <= -5: Fichier = "smiley_mauvais.gif"
Case Is > 5: Fichier = "smiley_bon.gif"
Case Else: Fichier = "smiley_egal.gif"
End Select
Worksheets("données").Image1.Picture = LoadPicture(Chemin & Fichier)
End If
End Sub
Mon problème est le suivant j'ai un résultat qui varie dans une cellule ( par ex: F11), dans la cellule voisine ( par exemple G11) j'affiche une image en fonction du résultat obtenu dans F11. Pour ce faire j'ai un code que je joins en pièce jointe et un active X image en G11.
Mon souci j'ai dans la même feuille ( ex : M11) un autre résultat auquel j'aimerais associé les mêmes images( en N11) en fonction du résultat de M11; j'ai également mis un activeX image en N11.
J'ai beau essayé de modifier mon code dans tous les sens je n'arrive pas à avoir une image en N11.
Quelqu'un a t-il une solution? Avec mes remerciements par avance.
Private Sub Image1_Click()
End Sub
Sub Worksheet_Change(ByVal Target As Range)
Dim Fichier As String, Chemin As String
If Target.Count = 1 And Target.Column = 6 And Target.Row = 11 Then
Chemin = "C:\Users\Mon_ordi\Desktop\Emoti\"
Select Case Target
Case Is <= -5: Fichier = "smiley_mauvais.gif"
Case Is > 5: Fichier = "smiley_bon.gif"
Case Else: Fichier = "smiley_egal.gif"
End Select
Worksheets("données").Image1.Picture = LoadPicture(Chemin & Fichier)
End If
End Sub