Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Backcolor Textbox avec condition

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

keepcool183

XLDnaute Occasionnel
Bonjour à tous les forumeurs 🙂

Je cherche à créer un code pour que le fond du textbox se colorie selon si sa valeur appartient à une intervalle.

Exemple :

Si txtbox.value > 25 alors backcolor rouge.

j'ai fais ce code mais il ne marche pas ou plutot ne prend pas en considération les différentes intervalles.

Code: 
 If TextBox2.Value < Sheets("data").Range("f2").Value Then
TextBox2.BackColor = RGB(255, 0, 0)
ElseIf TextBox2.Value < Sheets("data").Range("f3").Value Then
TextBox2.BackColor = RGB(100, 50, 0)
ElseIf TextBox2.Value < Sheets("data").Range("f4").Value Then
TextBox2.BackColor = RGB(50, 100, 20)
ElseIf TextBox2.Value < Sheets("data").Range("f5").Value Then
TextBox2.BackColor = RGB(200, 100, 250)
ElseIf TextBox2.Value < Sheets("data").Range("f6").Value Then
TextBox2.BackColor = RGB(200, 10, 25)
End If

Merci à ceux qui me liront 😉
 
Trier par date Trier par votes
Re : Backcolor Textbox avec condition

Bonjour Pascal,

Merci pour l'astuce, je comprend maintenant pourquoi je n'y arrive pas.

en fait c'est parce que les valeurs sont des pourcentages.

J'ai essayé d'arranger la chose avec Cdbl mais rien à faire.

je joins donc un fichier exemple 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Backcolor Textbox avec condition

re

essaies ainsi
Code: 
Private Sub UserForm_Initialize()
'*********** Mise en place Textbox en % ****************
TextBox1.Value = Format(Sheets("marché").Range("G8").Value, "0.0%")
TextBox2.Value = Format(Sheets("marché").Range("H8").Value, "0.0%")
TextBox3.Value = Format(Sheets("marché").Range("L8").Value, "0.0%")
TextBox4.Value = Format(Sheets("marché").Range("M8").Value, "0.0%")
TextBox5.Value = Format(Sheets("marché").Range("N8").Value, "0.0%")
'******
toto = CDbl(Left(TextBox2.Value, Len(TextBox2.Value) - 1)) / 100
If toto < Sheets("data").Range("A2").Value Then
 TextBox2.BackColor = RGB(255, 0, 0)
ElseIf toto < Sheets("data").Range("A3").Value Then
TextBox2.BackColor = RGB(100, 50, 0)
ElseIf toto < Sheets("data").Range("A4").Value Then
TextBox2.BackColor = RGB(50, 100, 20)
ElseIf toto < Sheets("data").Range("A5").Value Then
TextBox2.BackColor = RGB(200, 100, 250)
ElseIf toto < Sheets("data").Range("A6").Value Then
TextBox2.BackColor = RGB(200, 10, 25)
End If
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
540
Francky79
F
R
  • Question Question
Microsoft 365 Couleur de fond de textbox [CLOTURE]
Réponses
2
Affichages
855
romubzh35
R
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
605
florian50470
F
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
L
  • Résolu(e)
XL 2019 Formulaire Excel - TxtBox avec couleur de la celle associée
Réponses
4
Affichages
725
Lindsay_RBD
L
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
503
crocrocro
C
P
  • Question Question
Microsoft 365 TextBox avec limitation de la saisie entre 2 valeurs
Réponses
8
Affichages
378
pat66
P
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
944
ChTi160
C
  • Question Question
Autres bug sur une procédure avec textbox contenant un code barre
2
Réponses
15
Affichages
2 K
TooFatBoy
A
  • Résolu(e)
Microsoft 365 Trop de caractères de continuité de ligne
Réponses
9
Affichages
898
TooFatBoy
M
  • Question Question
XL 2019 Sélectionner une feuille avec nom dans une variable VBA
Réponses
4
Affichages
2 K
ManOfCatz
M
D
  • Question Question
XL 2019 Aide à la compréhension d'un code VBA
Réponses
4
Affichages
1 K
Dudu2
F
  • Question Question
XL 2016 Blocage macro sur instruction SET
Réponses
6
Affichages
661
job75
M
  • Question Question
XL 2016 erreur d'exécution
3 4 5
Réponses
68
Affichages
8 K
Etoto0026
R
  • Résolu(e)
XL 2016 Probleme de code
Réponses
9
Affichages
2 K
Richard 58
R
M
  • Résolu(e)
XL 2019 couleur sous condition dans TXTBOX
Réponses
5
Affichages
932
MOmichel
M
R
  • Question Question
Microsoft 365 ListBox / ListView et combobox avec choix de colonnes
2
Réponses
20
Affichages
4 K
RaVenSs
R
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
1 K
Yoyo01000
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…