'--------------------------------------------------
Private Sub ajouter_Click()
'--------------------------------------------------
'Déclaration des Variable qui vont être utilisées
Dim Post As String
Dim Ligne As Long
Dim desig As String
' Vérification des données
If quantite = "" Then
quantite = "1"
End If
If prix_u = "" Then
MsgBox ("Vous devez saisir un prix")
End If
If id = "" Then
MsgBox ("Vous devez saisir un numéro de tache")
End If
'Recherche de la dernière ligne écrite (colonne B)
Ligne = Devis.numeroDerniereLigne + 1
'envoi des informations de l'Useform => les cellules
Set sheetDevis = Sheets("construction_devis")
'prise en compte ou non de la designation
If options.Value = False Then
desig = ""
Else
desig = designation.Value
End If
sheetDevis.Cells(Ligne, 1).Value = id
sheetDevis.Cells(Ligne, 2).Value = "-" + texte + " " + desig
sheetDevis.Cells(Ligne, 3).Value = Formate(quantite)
sheetDevis.Cells(Ligne, 4).Value = Formate(prix_u)
sheetDevis.Cells(Ligne, 6).Value = Formate(marge)
sheetDevis.Cells(Ligne, 5).Value = Formate(UserForm1.equipe.ControlTipText)
'Ici je souhaiterai continuer en insérant les formules
id.Value = nextId
For i = 1 To 18
sheetDevis.Cells(Ligne, i).Font.Bold = False
sheetDevis.Cells(Ligne, i).Font.Size = 9
Next i
End Sub