Passage à la ligne

E

Eric C

Guest

• 4 Septembre 2004

• #2

Bonjour le forum
Bonjour Cyril

Private Sub CommandButton1_Click()
Range("C10").Value = TextBox1.Value
End Sub
Voici pour la 1ère partie quant à la seconde, je ne saisi pas trop.
En attendant de plus amples explications.
Bon week-end à toutes & à tous
@ ++ Eric C

 

Vote positif 0 Vote négatif

C

CHti160

Guest

• 4 Septembre 2004

• #3

Salut"Cyril "et "Eric C "
Bonsoir le "FORUM"
pour la deuxième question en ajoutant
Private Sub CommandButton1_Click()
Range("C10").Value = TextBox1.Value
Range("C10").Columns.AutoFit <-------'cela adapte la cellule à la longueur du texte
End Sub
peut être l'action désirée
A+++
Jean Marie

 

Vote positif 0 Vote négatif

C

Cyril

Guest

• 4 Septembre 2004

• #4

Merci CHtil60 pour la réponse.
Seulement je c pas si vous zavé remarqué que lorsque ds le TextBox on passe a la ligne ben ca laisse un symbole de passage a la ligne ds la cellule et c cela ke j'aimerais effacer.
Si vous voyez ske jve dire !
Mé bon !

Bon Week end a tous !

 

Vote positif 0 Vote négatif

B

Bibine

Guest

• 4 Septembre 2004

• #5

ching chong pr moi! mais ce site a l'air pratique pr les ti soucis de programmation ou autre

 

Vote positif 0 Vote négatif

M

michel

Guest

• 4 Septembre 2004

• #6

bonsoir Cyril , Eric et Jean-Marie

j'espere qu'une de ces deux solutions pourra t'aider

supprimer les symboles du saut de ligne :
Range("C10") = Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, Chr(10))

afficher le Textbox sur une ligne
Range("C10") = Application.WorksheetFunction.Substitute(TextBox1, vbCrLf, "")


bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

C

Cyril

Guest

• 5 Septembre 2004

• #7

Bonjour à tous !

Merci michel pour ta réponse elle fonctionnne, c'est exactement ce que je cherchais à faire.

Encore merci

 

Vote positif 0 Vote négatif