Nombre entier unité/dizaine

Bonjour,

J'ai créé un code pour afficher un smyley rouge ou vert selon le résultat que je mets en cellule Y26. Si mon chiffres est supérieur à 3 mon smyley est rouge et inférieur ou égal il est vert.

Ca marche bien jusqu'à 9 et à partir de 30 mais à 10 et jusqu'à 29 mon smyley passe en vert alors que je le veux rouge.

Je pense qu'il s'agit d'un problème lié aux unités et dizaines mais je ne sais pas le résoudre. J'ai essayé avec les format de cellule en vain.

Merci pour votre aide, je vous joins un morceau de mon fichier

22classeur1.zip (64.94 Ko)

Bonjour le forum,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("Y26").Value > "3" Then
Me.Shapes(4).Visible = False 'vert
Me.Shapes(3).Visible = True 'ROUGE
End If
End Sub

Bonjour,

Je pense que ton soucis viens des guillemets que tu as mis sur les 3.

Essaye de les enlever.

Si cela ne marche pas essaye ce code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

     If Range("Y26").Value <= 3 Then 'SI CONDITION VRAIE

        Me.Shapes(4).Visible = True 'vert
        Me.Shapes(3).Visible = False 'ROUGE

     Else 'SI CONDITION FAUSSE

        Me.Shapes(4).Visible = False 'vert
        Me.Shapes(3).Visible = True 'ROUGE

     End If

End Sub

J'espère que cela t'aura aidé

Bonjour Fazzbetter ....Tu es le meilleur !!!!

Je m'en veux, j'ai fais quantité d'essais et J'ai même pas pensé à enlever les guillemets, je me suis focalisée sur les chiffres.

Merci beaucoupbeaucoupbeaucoup

Bonne soirée

Rechercher des sujets similaires à "nombre entier unite dizaine"