Couleur cellule

Bonjour,

Je souhaite changer la couleur d’une cellule en fonction de sa valeur via les MFC, pas de souci pour les textes, cependant pour les nombres cela fonctionne uniquement si je tape la valeur directement dans la cellule et non si j’écris la valeur via un formulaire ,et c’est ce que j’ai besoin.

Je n’arrive pas à voir d’où vient le problème.

Cordialement

Bonjour,

2021 n'est pas considéré comme une valeur numérique si vous l'insérez en l'état. Il faut l'inclure en le transformant en valeur numérique (ici via le *1) mais auparavant tester si la valeur est numérique via IsNumeric :

Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) Then
    Worksheets("Couleur").Cells(6, 2).Value = TextBox1 * 1
    Else
    Worksheets("Couleur").Cells(6, 2).Value = TextBox1
End If
End Sub

Cdlt,

Bonjour,

C'est super, merci pour votre aide.

Bonne journée.

Cdlt