' Bouton Ajouter
' Affiche les valeurs en premiere ligne
Private Sub CommandButton2_Click()
If ComboBox1.ListIndex > -1 Then
With Sheets(ComboBox1.Text)
.Range("B5:L5").Insert shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Cells(5, 4) = TextBox1.Value: TextBox1 = "" ' Nom le 5 correspond a la 5 éme ligne
.Cells(5, 5) = TextBox2.Value: TextBox2 = "" ' Prénom
.Cells(5, 6) = TextBox3.Value: TextBox3 = "" ' Adresse le 6 correspond à la quatriéme colonne
.Cells(5, 8) = TextBox4.Value: TextBox4 = "" ' Ville
.Cells(5, 7) = TextBox5.Value: TextBox5 = "" ' C.P
.Cells(5, 9) = TextBox6.Value: TextBox6 = "" ' Tel
.Cells(5, 2) = TextBox7.Value: TextBox7 = "" ' Date
.Cells(5, 3) = TextBox11.Value: TextBox11 = "" ' N° Cde
.Cells(5, 10) = TextBox8.Value: TextBox8 = "" ' Montant
.Cells(5, 11) = TextBox9.Value: TextBox9 = "" ' Frais
.Cells(5, 12) = TextBox10.Value: TextBox10 = "" ' T.T.C
.Cells(5, 13) = IIf(CheckBox1 = True, "X", "")'ICI
End With
ComboBox1.ListIndex = -1
Else
MsgBox "Choisir un 'Tranmetteur' !"
End If
End Sub