XL 2013 Modifier un textbox

[maval]

Bonjour,

J'ai sur un Usf dans lequel j'ai un bouton de recherche sur Internet et lorsque je valide j'ai toute les infos sur mon Usf . Dans un textbox j'ai les noms des acteurs qui s'affiche un sur l'autre comme ceci:

Edward Norton
Bruce Willis
Bill Murray
Kara Hayward
Tilda Swinton
Frances McDormand

Est-il possible de mettre les noms sur la même ligne séparer d'une virgule comme ceci:

Edward Norton, Bruce Willis, Bill Murray ect...

Je vous remercie de votre aide, bonne journée

 

[Compte Supprimé 979]

Re : Modifier un textbox

Bonjour maval,

Sans ton fichier ou ton code, comment veux tu que l'on puisse te répondre 🙄😉

A+

 

[Dranreb]

Re : Modifier un textbox

Bonjour

À priori je dirais: Cells(x, y).Value = Replace(TextBox1.Text, vbLf, ", ")

Bonjour Job75. Exact, je ne le savait plus. Des vbLf sont acceptés pour garnir la TextBox, mais ils sont convertis en vbCrLf

 

[job75]

Re : Modifier un textbox

Bonjour maval, Bruno,

A priori dans la TextBox les renvois à la ligne sont des vbCrLf, il suffit de les remplacer.

Il est bon ensuite de redimensionner la TextBox, voire l'UserForm :

With TextBox1
  .AutoSize = False
  .Width = 1000
  .Text = Replace(TextBox1, vbCrLf, ", ")
  .AutoSize = True
  Me.Width = .Left + .Width + 8 'facultatif, redimensionne l'USF
End With

Edit : salut Bernard.

A+

 

[job75]

Re : Modifier un textbox

Re,

Comme le fait Bernard, si l'on veut le texte dans une cellule :

[A1] = Replace(TextBox1, vbCrLf, ", ")

A+

 

[maval]

Re : Modifier un textbox

Bonjour Dranreb, Job

je vous remercie et vous souhaite une excellente soirée.