Hello!!
Je voudrais faire apparaitre l'image "yeah" dans la cellule H13, si ma cellule G31 est supérieure à 99,37, et l'image "sad" si G31 est inférieure à ce chiffre.
J'ai cherché dans les forums, et j'ai trouvé une programmation qui marche.
Le souci (parce qu'il y en a un, quand même!), c'est que j'ai le meme type de prog à faire pour la cellule G32 et la cellule G33. Si celles-ci sont inférieures à tel chiffre, l'image "yeah" s'affiche, sinon, c'est l'image "sad".
bon, donc j'ai recopié mon code qui marche 3 fois, en adaptant tout: j'ai changé le nom des cellules et les conditions.
mais voilà, ca marche pour la premiere cellule, mais pas pour les autres!!
voilà le code qui marche:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim objFeuille As Worksheet, objPict As Picture
Set objFeuille = ActiveSheet
objFeuille.Pictures.Delete
If Worksheets("SECURITE").Range("G31").Value >= 99.37 Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("C:\images\yeah.png")
With objPict
.Left = Range("h31").Left
.Top = Range("h31").Top
End With
Else
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("C:\images\sad.png")
With objPict
.Left = Range("h31").Left
.Top = Range("h31").Top
End With
End If
End Sub
Pourriez vous me dire, s'il vous plait, ce qu'il faut que je change pour que cette macro marche 3 fois ??
Merci d'avance!!
Je voudrais faire apparaitre l'image "yeah" dans la cellule H13, si ma cellule G31 est supérieure à 99,37, et l'image "sad" si G31 est inférieure à ce chiffre.
J'ai cherché dans les forums, et j'ai trouvé une programmation qui marche.
Le souci (parce qu'il y en a un, quand même!), c'est que j'ai le meme type de prog à faire pour la cellule G32 et la cellule G33. Si celles-ci sont inférieures à tel chiffre, l'image "yeah" s'affiche, sinon, c'est l'image "sad".
bon, donc j'ai recopié mon code qui marche 3 fois, en adaptant tout: j'ai changé le nom des cellules et les conditions.
mais voilà, ca marche pour la premiere cellule, mais pas pour les autres!!
voilà le code qui marche:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim objFeuille As Worksheet, objPict As Picture
Set objFeuille = ActiveSheet
objFeuille.Pictures.Delete
If Worksheets("SECURITE").Range("G31").Value >= 99.37 Then
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("C:\images\yeah.png")
With objPict
.Left = Range("h31").Left
.Top = Range("h31").Top
End With
Else
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert("C:\images\sad.png")
With objPict
.Left = Range("h31").Left
.Top = Range("h31").Top
End With
End If
End Sub
Pourriez vous me dire, s'il vous plait, ce qu'il faut que je change pour que cette macro marche 3 fois ??
Merci d'avance!!