2ot dans une cellule de couleur différente suivant textbox de saisie

[zeltron]

Bonjour à tout le forum,

Voici mon problème: j'ai 2 textbox dans un USF, quand on clique sur le bouton valider de l'USF le résultat de ces 2 textbox va dans une cellule de la feuille; pour cela mon code est:

Private Sub CommandButton1_Click()
Sheets("feuil1").Range("d3") = TextBox1.Value & " " & TextBox2.Value
End Sub

Jusque là pas de pb, seulement je souhaiterais que le texte de la cellule provenant du textbox1 soit par exemple en bleu et le texte de cette même cellule provenant de la textbox2 soit par exemple en vert.

Je n'arrive pas à articuler le code avec:Sheets("Feuil1").Range("d3").Font.ColorIndex =

Pouvez vous m'aider???

Je vous joint un fichier si mes explication n'ont pas été claires

Merci d'avance

Zeltron

 

[PascalXLD]

Re : 2ot dans une cellule de couleur différente suivant textbox de saisie

Bonjour

cela pourrait donner ceci

Private Sub CommandButton1_Click()
Dim MesCar As Byte
MesCar = Len(TextBox1.Value)
Sheets("feuil1").Range("d3") = TextBox1.Value & " " & TextBox2.Value
Sheets("feuil1").Range("d3").Font.ColorIndex = 43
Sheets("feuil1").Range("d3").Characters(Start:=1, Length:=MesCar).Font.ColorIndex = 41
End Sub

Bon WE

 

[pierrejean]

Re : 2ot dans une cellule de couleur différente suivant textbox de saisie

bonjour Zeltron

Salut Pascal

dans le style de Pascal et dans le fichier

 

[zeltron]

Re : 2ot dans une cellule de couleur différente suivant textbox de saisie

Merci Pascal76 et Pierre Jean pour vos réponses, vos solutions marchent très bien.

Pierre Jean, il y a dans ton code une partie que je ne comprends pas ton code est:

Private Sub CommandButton1_Click()
Range("D3").FormulaR1C1 = TextBox1 & " " & TextBox2
x = Len(TextBox1)
With Range("D3").Characters(Start:=1, Length:=x - 1).Font
.ColorIndex = 5
End With
With Range("D3").Characters(Start:=x + 1, Length:=Len(Range("D3")) - x).Font
.ColorIndex = 4
End With
End Sub

Je ne comprends pas la partie: ".FormulaR1C1"

D'ailleurs quand je le supprime pour n'avoir que:
Range("D3")= TextBox1 & " " & TextBox2

ta solution fonctionne quand même. Certainement que tu a préciser cela pour une raison précise, peux tu me l'expliquer s'il te plait?

Merci encore à vous deux.

Bon Week End

Cordialement

Zeltron

 

[pierrejean]

Re : 2ot dans une cellule de couleur différente suivant textbox de saisie

re

en fait tu as raison ce n'est pas necessaire

cela provient du fait que j'ai travaillé avec l'enregistreur de macro qui ,comme tu le sais , en fait toujours un peu trop

supprime donc

 

[zeltron]

Re : 2ot dans une cellule de couleur différente suivant textbox de saisie

Merci Pierre Jean pour ta réponse rapide.

Tu me rend super fier!!!! J'ai réussi à avoir une réflexion judicieuse sur un code. M'améliorerais-je???? Si c'est le cas, pas de secret: les heures et les heures de consultation de ce site et de ses intervenants!!!

Bref tout cela pour en profiter pour remercier tous ceux qui comme toi Pierre Jean, Pascal76 et bien d'autres!!! N'hésitez pas à m'aider malgré mes questions qui, quand je vois vos solutions, me font parfois rougir de ne pas y avoir penser ou au moins avoir eu l'idée de la direction où chercher!!

Merci encore à vous tous!!!

Zeltron