à 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
 

Pièces jointes

  • Sans titre.jpg
    Sans titre.jpg
    39 KB · Affichages: 30
  • Sans titre.jpg
    Sans titre.jpg
    39 KB · Affichages: 34
  • saute-ligne.xls
    47 KB · Affichages: 26

phlaurent55

Nous a quittés en 2020
Repose en paix
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
 

Pièces jointes

  • 111.xlsm
    19.2 KB · Affichages: 28
  • 111.xlsm
    19.2 KB · Affichages: 33
  • 111.xlsm
    19.2 KB · Affichages: 23
Dernière édition:

Discussions similaires

Réponses
14
Affichages
900
Réponses
2
Affichages
527

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86