Re : Insertion donnée dans tableau via textbox
Salut Pierrot, le forum,
je préfère copier / coller le code, le fichier étant vraiment trop volumineux.
Là, je prends le cas d'un ajout d'un transporteur :
Private Sub Ajouter_Transp_Click()
Worksheets("DONNEES").Select
If Range("C2").Value = "" Then
Range("C2").Value = Ajout_Transp.Value
Else
Range("C2").End(xlDown).Offset(1, 0).Value = Ajout_Transp.Value
End If
Range("C2:" & Range("C2").End(xlDown).Address).Select
Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Merci encore et A+
Marc