à la fois sauter la ligne et underline

pedram0080

XLDnaute Occasionnel
Bonjour tout le monde,

tout à l'heure grâce à "MAPOMME" on a créé un userform mais pour finaliser mon projet il reste encore quelques petites modifications, voici ce que je veux faire.
quand on double clique sur un cellule on a un userform je veux que les valeurs des champs TXT soient en deux lignes différentes dans la coolonne B et séparées par une souligne dans la colonne A.

une image et un fichier sont en pièce jointe.

Merci et Bonne fête.
Sans titre.jpg
 

Fichiers joints

phlaurent55

XLDnaute Barbatruc
Re : à la fois sauter la ligne et underline

Bonjour pedram,

Remplace ton code par celui-ci
Code:
Private Sub CommandButton1_Click()
Cells(Selection.Row, 1) = TextBox3 & "_" & TextBox4
Cells(Selection.Row, 2) = TextBox3 & vbLf & TextBox4
If OptionButton1 Then Cells(ActiveCell.Row, 1).Font.Size = 14
If OptionButton2 Then Cells(ActiveCell.Row, 1).Font.Size = 20
Unload Me
End Sub
à+
Philippe
 

Fichiers joints

Dernière édition:

Haut Bas