XL 2021 Météo Backlogs

[Yacine]

Bonjour à toutes et à tous,

Je me permets de vous demander comment pourrais-je afficher des images météo (Soleil, Nuage, Pluie) selon des critères au lieu qu'il affiche le texte comme expliqué dans le fichier joint.

Les images sont dans la feuille "Images" et les critères sont dans la formule C9 dans la feuille "Backlogs"

je vous remercie par avance

Excellente journée

 

[sylvanu]

Bonjour Yacine,
Un essai en PJ, c'est assez "pointu" comme solution.
Directement inspiré de : https://blog.partiprof.fr/afficher-image-suivant-valeur-cellule-excel/

 

[sylvanu]

Ou une autre approche en VBA ( que je préfère ) et qui ne necessite pas de fauille Images, avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B20]) Is Nothing Then
        Application.ScreenUpdating = False
        Shapes("Soleil").Visible = False
        Shapes("Nuage").Visible = False
        Shapes("Pluie").Visible = False
        If Target < 12 Then
            Shapes("Soleil").Visible = True
        ElseIf Target <= 13 Then
            Shapes("Nuage").Visible = True
            Else
            Shapes("Pluie").Visible = True
        End If
    End If
Fin:
End Sub

 

[Yacine]

Ou une autre approche en VBA ( que je préfère ) et qui ne necessite pas de fauille Images, avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B20]) Is Nothing Then
        Application.ScreenUpdating = False
        Shapes("Soleil").Visible = False
        Shapes("Nuage").Visible = False
        Shapes("Pluie").Visible = False
        If Target < 12 Then
            Shapes("Soleil").Visible = True
        ElseIf Target <= 13 Then
            Shapes("Nuage").Visible = True
            Else
            Shapes("Pluie").Visible = True
        End If
    End If
Fin:
End Sub

Merci+++

 

[Yacine]

Ou une autre approche en VBA ( que je préfère ) et qui ne necessite pas de fauille Images, avec :

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B20]) Is Nothing Then
        Application.ScreenUpdating = False
        Shapes("Soleil").Visible = False
        Shapes("Nuage").Visible = False
        Shapes("Pluie").Visible = False
        If Target < 12 Then
            Shapes("Soleil").Visible = True
        ElseIf Target <= 13 Then
            Shapes("Nuage").Visible = True
            Else
            Shapes("Pluie").Visible = True
        End If
    End If
Fin:
End Sub

Merci+++

Bonjour Yacine,
Un essai en PJ, c'est assez "pointu" comme solution.
Directement inspiré de : https://blog.partiprof.fr/afficher-image-suivant-valeur-cellule-excel/

Merci +++