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

XL 2013 Coloré la cellule à partir de textbox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion anass1
  • Date de début Date de début

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

anass1

XLDnaute Junior
Bonsoir
est ce que je peut colorer la cellule si modifié sa contenu dans la textbox ?
Merci d'avance
 

Pièces jointes

Trier par date Trier par votes
Oui parce que dans l'exemple, le code a été utilisé uniquement sur textbox2
Mais dans le cas général
VB: 
ActiveCell.Offset(0, 0) = TextBox2.Text: ActiveCell.Offset(0, 0).Interior.ColorIndex = 3
ActiveCell.Offset(0, 1) = TextBox3.Text: ActiveCell.Offset(0, 1).Interior.ColorIndex = 3
ActiveCell.Offset(0, 2) = TextBox4.Text: ActiveCell.Offset(0, 2).Interior.ColorIndex = 3
ActiveCell.Offset(0, 3) = TextBox5.Text: ActiveCell.Offset(0, 3).Interior.ColorIndex = 3
ActiveCell.Offset(0, 4) = TextBox6.Text: ActiveCell.Offset(0, 4).Interior.ColorIndex = 3
ActiveCell.Offset(0, 5) = TextBox7.Text: ActiveCell.Offset(0, 5).Interior.ColorIndex = 3
ActiveCell.Offset(0, 6) = TextBox8.Text: ActiveCell.Offset(0, 6).Interior.ColorIndex = 3
ActiveCell.Offset(0, 7) = TextBox9.Text: ActiveCell.Offset(0, 7).Interior.ColorIndex = 3
ActiveCell.Offset(0, 8) = TextBox10.Text: ActiveCell.Offset(0, 8).Interior.ColorIndex = 3
ActiveCell.Offset(0, 9) = TextBox11.Text: ActiveCell.Offset(0, 9).Interior.ColorIndex = 3
ActiveCell.Offset(0, 10) = TextBox12.Text: ActiveCell.Offset(0, 10).Interior.ColorIndex = 3
ActiveCell.Offset(0, 11) = TextBox13.Text: ActiveCell.Offset(0, 11).Interior.ColorIndex = 3
ActiveCell.Offset(0, 12) = TextBox14.Text: ActiveCell.Offset(0, 12).Interior.ColorIndex = 3
ActiveCell.Offset(0, 13) = TextBox15.Text: ActiveCell.Offset(0, 13).Interior.ColorIndex = 3
ActiveCell.Offset(0, 14) = TextBox16.Text: ActiveCell.Offset(0, 14).Interior.ColorIndex = 3
ActiveCell.Offset(0, 15) = ComboBox1.Text: ActiveCell.Offset(0, 15).Interior.ColorIndex = 3
ActiveCell.Offset(0, 16) = TextBox17.Text: ActiveCell.Offset(0, 16).Interior.ColorIndex = 3

toute la ligne est colorée
 

Pièces jointes

Vote positif 0 Vote négatif
Avec ceci la cellule est colorée uniquement quand elle est effectivement modifiée :
VB: 
ActiveCell.Offset(0, 0).Interior.ColorIndexActiveCell.Offset(0, 0).Interior.ColorIndex = IIf(ActiveCell.Offset(0, 0) <> TextBox2, 3, xlNone): ActiveCell.Offset(0, 0) = TextBox2
Mais il faudra modifier ce code si la cellule convertit le texte en nombre...
 
Vote positif 0 Vote négatif
Bonjour, Merci beaucoup d'avoir m'aider.
juste pour l'information, si je modifie un autre cellule dans la même ligne devienne coloré mais le cellule déjà modifié et qui était coloré précédemment devienne incolore, on veut fixer le couleur dans le cellule pour qu'on puisse modifier dans les autres cellules sans perdre le couleur de cellule déjà modifie coloré.
 
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

C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
181
Ckyara31
C
  • Résolu(e)
Microsoft 365 TABLEAU : élément correspondant au mois
Réponses
11
Affichages
150
anthoYS
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
376
escudo
E
A
  • Question Question
XL 2021 Comment préserver la première valeur d'une cellule uniquement si
2 3
Réponses
34
Affichages
1 K
Alamyr
A
G
  • Résolu(e)
Microsoft 365 Colorer des cellules automatiquement
Réponses
14
Affichages
670
Gaugau
G
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
306
Payne
P
B
  • Question Question
XL 2013 Corriger mes codes
2
Réponses
25
Affichages
655
Valtrase
J
  • Question Question
Microsoft 365 Comparer des cellules de même couleur
Réponses
5
Affichages
162
JHA
J
  • Question Question
Microsoft 365 Colorer en Vert l'onglet actif
Réponses
2
Affichages
439
AIXELS
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
M
  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
208
Marec
M
  • Question Question
XL 2019 texte en filigrane dans une textbox
6 7 8
Réponses
107
Affichages
2 K
Dudu2
B
  • Question Question
XL 2010 Création bordereau de plan
2 3 4
Réponses
47
Affichages
819
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Erreur d’exécution de type 13
Réponses
4
Affichages
497
Ptitloups56
P
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
369
didier09
T
  • Question Question
XL 2019 pied de page = insérer contenu cellule
Réponses
4
Affichages
214
wDog66
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
502
jeff1494
  • Résolu(e)
XL 2016 Afficher les notes de musique jouées sur un clavier
2
Réponses
17
Affichages
586
halecs93
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
629
KRUG WOO
K
E
  • Résolu(e)
XL 2019 Format pourcent dans une TextBox
Réponses
10
Affichages
455
Electronull
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…