Problème Select case ne prend pas en compte les données

**gogo850** · 29/06/2012, 10h19

Bonjour,

Je viens vers vous avec un problème concernant la formule select case sur Excel 2007 en VBA dans le cadre de la réalisation de tableaux de bord.

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Im_tr.ShapeRange
    .LockAspectRatio = msoFalse
Select Case r_trav ' Ceci est un indicateur qui me donne le pourcentage d'avancement de la recette "travaux"
 
Case Is > 1 'Affichage d'un soleil
Im_tr.Picture = LoadPicture("Y:\DT\Tableaux de bord\2012\Base indicateurs\Images\soleil.jpg")
Case Is > 0, 5 'Affichage d'un nuage
Im_tr.Picture = LoadPicture("Y:\DT\Tableaux de bord\2012\Base indicateurs\Images\nuage.jpg")
Case Is < 0, 5 'Affichage d'éclairs
Im_tr.Picture = LoadPicture("Y:\DT\Tableaux de bord\2012\Base indicateurs\Images\eclairs.jpg")
End Select
End With

J'ai auparavant défini la variable r_trav as single (j'ai essayé avec double ou variant cela ne change rien).

Mon problème est que la formule ne me permet d'afficher que le nuage ou le soleil, il ne prend pas en compte le < 0,5.
Le problème ne vient pas de l'image puisque j'ai essayer d'intervertir avec le soleil et dans ce cas là l'éclair apparaît.
Je ne sais pas si je suis très clair, mais en gros je pense que Excel ne voit pas la différence entre le > 0,5 et < 0,5.
J'ai essayé de bidouiller pendant une heure et rien n'y fait.
Je vous remercie par avance pour votre aide.

Cordialement,