Microsoft 365 Change d'image en fonction du changement de valeur d'une cellule (résolu)

[Cougar]

Bonjour le groupe,

Petit problème avec mon fichier. Lorsque que change une valeur en a1 à a9, en fonction du total, l'image en C1 doit change de façon dynamique ce qui n'arrive pas ?
Voir le fichier joint.

Merci pour votre aide

 

[vgendron]

bonjour

ca fonctionne très bien.. à condition de cliquer sur ta cellule A10 puisque ton code est déclenché lorsque tu cliques sur cette cellule..

 

[vgendron]

Ce que tu peux faire:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A9")) Is Nothing Then
        Smiley
    End If
End Sub

et ta macro smiley

Sub Smiley()
Application.ScreenUpdating = False
    With ActiveSheet
        For Each sh In .Shapes
            sh.Delete
        Next sh
    End With
    With Sheets("Feuil2")
        If .Range("A10") < 46 Then
            NomImage = "Image 1"
        ElseIf .Range("A10") > 50 Then
            NomImage = "Image 2"
        Else
            NomImage = "Image 3"
        End If
    End With

    Sheets("Feuil3").Activate
    ActiveSheet.Shapes.Range(Array(NomImage)).Select
    Selection.Copy
    Sheets("feuil2").Select
    Range("C1").Select
    ActiveSheet.Pictures.Paste.Select
  Application.ScreenUpdating = True
End Sub

 

[Cougar]

Bonjour vgendron,

Grandement apprécié ton code.

Merci

 

[Phil69970]

Bonjour à tous

@Cougar

Je te propose ce fichier

Merci de ton retour

 

[Cougar]

Bonjour Phil69970,

Ton code est mon préféré.

Merci