userforme texte

[le_neo]

voila j'ai un bouton qui me permet de mettre les information de 4 cellule + une signature dans une cellule donnée

j'aimerai mettre cet action en userforme avec une fenêtre qui s'ouvre

code:

Sub sms()
Dim i As Integer
i = ActiveCell.Row
Range("D34").Value = Range("A" & i).Text & " : " & Range("B" & i).Value & " " & Range("C" & i).Value & " : " & Range("D" & i).Value & " : " & " COT K."
Range("D34").Copy
End Sub

au lieu d'avoir la cellule D34 dédier j'aimerai l'avoir en userforme format texte
l'encard et deja créé reste le code à y rentrer

 

[Compte Supprimé 979]

Re : userforme texte

Salut le_neo

Sub SMS()
Userform2.Show
End Sub

Dans ton Userform

Private Sub UserForm_Initialize()  Dim i As Integer
  i = ActiveCell.Row
  Me.TextBox1.Value = Range("A" & i).Text & " : " & Range("B" & i).Value & " " & Range("C" & i).Value & " : " & Range("D" & i).Value & " : " & " COT K."
End Sub

A+

 

[le_neo]

Re : userforme texte

re,
merci
cela fonctionne tres bien sauf que quand le texte est trop long il sort du cadre au lieu de s'adapter à la fenetre

 

[Compte Supprimé 979]

Re : userforme texte

Re,

Il faut mettre la propriété "MultiLine" du TextBox à True

A+

 

[le_neo]

Re : userforme texte

re,

merci infiniment

cordialement