Private Sub BtModifPlanning_Click()
TxtNbHrFinal = (TxtNbJrPose * 8)
If TxtDateDebut = "" Then MsgBox "Vous devez saisir une date de Début de Chantier": Exit Sub
If TxtHeure = "00:00" Then MsgBox "Vous devez saisir une Heure de Début de Chantier": Exit Sub
'*************************************************
'event bouton modifier PLANNING
'*************************************************
Application.ScreenUpdating = False
Dim R, X, V, W, i&, reponse
prixdevis = IIf(TxtPxDevis.Value = "", 0, TxtPxDevis.Value)
With [T_Bdd].ListObject
indx = Lst.ListIndex + 1 'numéro de la ligne sélectionne
V = Array(CbPoseur, Format(TxtDateHeureDebut, "mm/dd/yyyy hh:mm"), CDbl(TxtNbHrFinal))
.ListRows(indx).Range(2).Resize(, 3) = V
W = Array(CDbl(TxtNbPoseur), TxtRefDevis, CbPoseur2, TxtVille, , TxtConfClient, TxtLivToury, CDbl(TxtNbJrPose), TxtCommentaire, CDbl(Qte1), TxtProd1, CDbl(Qte2), TxtProd2, _
CDbl(Qte3), TxtProd3, CDbl(Qte4), TxtProd4, CDbl(Qte5), TxtProd5, CDbl(Qte6), TxtProd6, CDbl(Qte7), TxtProd7, CDbl(Qte8), TxtProd8, CDbl(Qte9), TxtProd9, _
CDbl(prixdevis), TxtPoseAnnoncee, Abs(ChbRdvPris), CbPoseur3, CbPoseur4, TxtRefCommande)
.ListRows(indx).Range(6).Resize(, 33) = W
' LigSal = .ListRows.Count
' .ListRows(LigSal).Range.Cells(6).Resize(, 33) = W ' ajout ligne poseur1
End With
UserForm_Initialize 'on remet la listbox a jour automatiquement
Vidange
Application.ScreenUpdating = True
End Sub