Copier textbox dans cellule contenant déjà du texte

Bonjour,

Tout est dans le titre ! Comment copier ce que j'ai écris dans une textbox dans une cellule qui contient déjà du texte ?!

Si vous pourriez juste me modifier le code suivant pour que ça soit bon :

    O.Cells(R.Row, 19).Value = Me.TextBox6.Value

Merci par avance !

Bonjour,

En passant par Range ça n'irait pas mieux ?

Range("A1").Value = texbox6.Value

(Je suis débutant...)

En fait ce que j'ai copié n'est qu'un tout petit bout de texte. Mon code complet ressemble plus à ça :

Const Classeur_GR = "Graissage.xls"

Private Sub UserForm_Initialize()
Dim Plage As Range

With Sheets("Matrice")
    Set Plage = .Range("Q5:Q" & .Range("Q65536").End(xlUp).Row)
End With

    ComboBox2.List = Plage.Value
    ComboBox4.List = Plage.Value
    ComboBox6.List = Plage.Value
    ComboBox8.List = Plage.Value

End Sub

Private Sub CommandButton1_Click()

Dim O As Worksheet
Dim R As Range

Workbooks.Open "P:\2016\Analyses\Analyses graissage-dégraissage\" & Classeur_GR

Set O = Sheets("40g.L")
Set R = O.Columns(1).Find(CDate(Me.TextBox21.Value), , xlValues, xlWhole)
If Not R Is Nothing Then
    O.Cells(R.Row, 8).Value = Me.TextBox1.Value
    O.Cells(R.Row, 9).Value = Me.TextBox4.Value
    O.Cells(R.Row, 11).Value = Me.TextBox2.Value
    O.Cells(R.Row, 12).Value = Me.TextBox4.Value
    O.Cells(R.Row, 14).Value = Me.ComboBox1.Value
    O.Cells(R.Row, 15).Value = Me.TextBox3.Value
    O.Cells(R.Row, 16).Value = Me.ComboBox2.Value
    O.Cells(R.Row, 17).Value = Me.TextBox4.Value
    O.Cells(R.Row, 30).Value = Me.TextBox5.Value
End If

'etc....

End Sub

Et donc j'ai 1 textbox qui est susceptible de copier ce que j'ai écris dans une cellule contenant déjà du texte. Sauf que je ne veux pas permettre ce qui est déjà écris.

ça n'inspire personne ?

Rechercher des sujets similaires à "copier textbox contenant deja texte"