Couleur TextBox

Bonjour,

Je souhaite, colorer une textbox en fonction de sa valeur.

Le code fonctionne si je remplace le nom de la cellule Mini_Alerte par 2 (par exemple) et non

avec le nom de la cellule qui contient aussi une valeur.

If TextBoxVibAv.Value <= 2 Then
                        TextBoxVibAv.BackColor = vbGreen ' cellule fond vert
                        End If

If TextBoxVibAv.Value <= Range("Mini_Alerte").Value Then
                        TextBoxVibAv.BackColor = vbGreen ' cellule fond vert
                        End If

Merci pour votre aide

Cdlt

Bonjour,

If Val(TextBoxVibAv.Value)...

par exemple...

Cordialement.

Bonjour MFerrand,

Génial ça fonctionne , pourriez-vous me dire pourquoi il faut rajouter Val devant.

En vous remerciant

Bonne journée.

Cdlt

Pilougne

Parce que la valeur d'une TextBox est par définition de type String, et qu'il est nécessaire de la convertir pour la comparer au contenu d'une cellule.

Quand tu mets 2, VBA opère directement la comparaison de valeur (de même que si tu affectes le contenu de la TextBox à une cellule, tu auras un nombre parce qu'Excel convertira automatiquement), mais demandant à VBA de comparer avec le contenu d'une cellule, VBA va s'intéresser au type. Il y a des choses transparentes dans certains cas et pas dans d'autres...

Tu en verras bien d'autres à l'usage...

Bonjour,

Merci pour l'info, de plus votre aide m'a permis de débloquer un autre code.

Je vous remercie encore une fois (Vous m’aviez déjà solutionné un autre problème) et vous

souhaite une bonne journée et surtout une bonne année 2017.

Cdlt