Aide affichage et mouvement d'images

Recherche de l'aide pour faire coulisser la flèche en fonction d'un résultat en % entre 5O et 125%. Les chiffres en % sélectionnés par liste déroulante.

Afficher l'humeur par un smiley : entre 125 et 95% CONTENT, 94 à 85, ALARMANT, et le reste EN COLERE.

Le combo ne doit pas être visible lors de l'impression au format A3.

Merci de votre aide

Bonjour à toi aussi,

Ci-joint ton fichier avec ce code, la combo ne s'imprimera pas.

Sub Changement()
'
    ActiveSheet.Shapes("Flèche gauche 3").Select
    ' La flèche se déplace entre 7 et 502, on va de la valeur 1 à 76, le pas est de 6,60
    Selection.ShapeRange.Top = 7 + 6.6 * (Range("I3") - 1)
    If Range("I3") <= 31 Then
        ActiveSheet.Shapes("Image 5").Visible = True
        ActiveSheet.Shapes("Image 4").Visible = False
        ActiveSheet.Shapes("Image 6").Visible = False
    ElseIf Range("I3") <= 41 Then
        ActiveSheet.Shapes("Image 5").Visible = False
        ActiveSheet.Shapes("Image 4").Visible = True
        ActiveSheet.Shapes("Image 6").Visible = False
    Else
        ActiveSheet.Shapes("Image 5").Visible = False
        ActiveSheet.Shapes("Image 4").Visible = False
        ActiveSheet.Shapes("Image 6").Visible = True
    End If

    Range("A1").Select
End Sub

A+

MERCI à dachevid pour cette réponse record. Cela fonctionne superbement. Je dois mettre l'image du baromètre finale et peaufiner les calages pour plus de réalité. Je vous tiens au courant de la suite.