XL 2013 Coloré la cellule à partir de textbox

[anass1]

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

 

[job75]

Bonsoir, en général seuls les débutants font des trucs comme ça.

 

[anass1]

Bonsoir job75 ,
Je suis débutant et je veut savoir

 

[job75]

Je suis débutant et je veut savoir

Bah dans votre macro CommandButton1_Click vous pouvez par exemple remplacer votre :

ActiveCell.Offset(0, 0) = TextBox2.Text

par :

ActiveCell.Offset(0, 0) = TextBox2.Text: ActiveCell.Offset(0, 0).Interior.ColorIndex = 3 'rouge

Etc... ça vous fait une belle jambe ?!

 

[anass1]

Merci de votre attention job75
De cette façon, toute la ligne est colorée
Je veut colorier seulement la cellule qui a été modifié par sa textbox
Merci

 

[job75]

De cette façon, toute la ligne est colorée

Non, il est évident avec le code précédent que seule la cellule modifiée par TextBox2 est colorée en rouge.

 

[anass1]

Oui parce que dans l'exemple, le code a été utilisé uniquement sur textbox2
Mais dans le cas général

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

 

[job75]

Avec ceci la cellule est colorée uniquement quand elle est effectivement modifiée :

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...

 

[anass1]

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é.