re
bonjour merim
revoir post 14!!
Merci pour ta réponse rapide mais je ne comprends pas vraiment...
mon code actuel pour remplir le tableau:
Private Sub CommandButton34_Click()
Dim i As Integer
Dim f As Worksheet
Dim Lr As Long
Set f = ThisWorkbook.Sheets("Appels")
For i = 1 To 12
Next i
Lr = f.Range("K" & Rows.Count).End(xlUp).Row + 1
f.Range("B" & Lr).Value = Me.ComboBox2.Value
f.Range("C" & Lr).Value = Me.txtheure.Value
f.Range("D" & Lr).Value = Me.ComboBox13.Value
f.Range("E" & Lr).Value = Me.txtPlaques.Value
f.Range("F" & Lr).Value = Me.cobAupresde.Value
f.Range("G" & Lr).Value = Me.txtDescription.Value
f.Range("H" & Lr).Value = Me.txtRemarque.Value
f.Range("I" & Lr).Value = Me.txtContact.Value
f.Range("J" & Lr).Value = Me.cobConcérné.Value
f.Range("K" & Lr).Value = Me.cobStatut.Value
f.Range("L" & Lr).Value = Me.cobRealisepar.Value
f.Range("M" & Lr).Value = Me.TextBox7.Value
f.Range("N" & Lr).Value = Me.ComboBox10.Value
End If
Set f = Nothing
End Sub
merciiiiiiiiiiiiiii