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.