Mise en forme de texte dans cellule renseignée par userform

Bonsoir a tous,

A partir d'un Userform comportant 6 Textbox je renseigne la cellule active d'un tableau avec le code ci dessous

Private Sub boutonvalider_Click()

With ActiveCell ' sur la cellule active

ActiveCell.FormulaR1C1 = TextJourneedu & " " & TextHeurededebut & "" & TextHeuredefin & Chr(10) & TextNom & Chr(10) & TextAdresse & Chr(10) & TextCommentaire

ActiveCell.EntireRow.AutoFit

Unload Me

End With

End Sub

J'aimerais savoir: - Comment je pourrais faire pour attribuer a chaque variable de Textbox une couleur

- Centrer TextNom et TextAdresse

Merci de votre Aide

Bonsoir

Ce que tu demandes paraît simple

Mais code difficile à lire :

Utiliser la balise </>

Merci

Et un extrait de ton fichier

Merci

Bonne soirée

Patty5046 a écrit :

Bonsoir

Ce que tu demandes paraît simple

Mais code difficile à lire :

Utiliser la balise </>

Merci

Et un extrait de ton fichier

Merci

Bonne soirée

qu'entend tu par balise je ne comprend pas ?

Patty5046 a écrit :

Bonsoir

Ce que tu demandes paraît simple

Mais code difficile à lire :

Utiliser la balise </>

Merci

Et un extrait de ton fichier

Merci

Bonne soirée

Bonsoir

Je joint mon fichier

Merci

Bonjour,

En ce qui concerne les Balises Code ...

Elles portent assez bien leur nom ...

Puisqu’il faut les utiliser ... pour le Code ...

Private Sub boutonvalider_Click()
With ActiveCell ' sur la cellule active
         ActiveCell.FormulaR1C1 = TextJourneedu & " " & TextHeurededebut & "" & TextHeuredefin & Chr(10) & TextNom & Chr(10) &         TextAdresse & Chr(10) & TextCommentaire
         ActiveCell.EntireRow.AutoFit
         Unload Me
End With
End Sub]