XL 2021 Météo Backlogs

sylvanu à dit:

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

VB:

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

Cliquez pour agrandir...

sylvanu à dit:

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

VB:

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

Cliquez pour agrandir...

sylvanu à dit:

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/

Cliquez pour agrandir...