'((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((
Private Sub CommandButton2_Click()
'--------------SOMME MURAUX------------------
TOTALW = Val(WC1_750) + Val(WC2_750) + Val(WC3_750) + Val(WC4_750) + Val(WC5_750) + Val(WC6_750)
TOTALF = Val(FC1_750) + Val(FC2_750) + Val(FC3_750) + Val(FC4_750) + Val(FC5_750) + Val(FC6_750)
TOTALST = Val(STC1_750) + Val(STC2_750) + Val(STC3_750) + Val(STC3_1000) + Val(STC4_660) + Val(STC4_750) + Val(STC5_750) + Val(STC6_750)
TOTALSI = Val(SIC1_750) + Val(SIC2_750) + Val(SIC3_750) + Val(SIC3_1000) + Val(SIC4_660) + Val(SIC4_750) + Val(SIC5_750) + Val(SIC6_750)
TOTALHA = Val(QMWHA) + Val(QMFHA) + Val(QMSIHA) + Val(QMSTHA)
TOTALJF = Val(QMSIJF) + Val(QMSTJF)
TOTALER = Val(QMWER) + Val(QMFER) + Val(QMSIER) + Val(QMSTER)
TOTALHU = Val(QMWHU) + Val(QMFHU) + Val(QMSIHU) + Val(QMSTHU)
TOTALFL = Val(QMWFL) + Val(QMFFL) + Val(QMSIFL) + Val(QMSTFL)
TOTALDF = Val(QMWDF) + Val(QMFDF) + Val(QMSIDF) + Val(QMSTDF)
TOTALRM = Val(QMWRM) + Val(QMFRM) + Val(QMSIRM) + Val(QMSTRM)
TOTALPE = Val(QMWPE) + Val(QMFPE) + Val(QMSIPE) + Val(QMSTPE)
TOTALBC = Val(QMWBC) + Val(QMFBC) + Val(QMSIBC) + Val(QMSTBC)
TOTALB = Val(QMWB) + Val(QMFB) + Val(QMSIB) + Val(QMSTB)
TOTALBS = Val(QMWBS) + Val(QMFBS) + Val(QMSIBS) + Val(QMSTBS)
Worksheets("BASE Devis").Cells(40, 6).Value = TOTALHA
Worksheets("BASE Devis").Cells(41, 6).Value = TOTALJF
Worksheets("BASE Devis").Cells(42, 6).Value = TOTALER
Worksheets("BASE Devis").Cells(43, 6).Value = TOTALHU
Worksheets("BASE Devis").Cells(44, 6).Value = TOTALFL
Worksheets("BASE Devis").Cells(45, 6).Value = TOTALDF
Worksheets("BASE Devis").Cells(46, 6).Value = TOTALRM
Worksheets("BASE Devis").Cells(47, 6).Value = TOTALPE
Worksheets("BASE Devis").Cells(48, 6).Value = TOTALBC
Worksheets("BASE Devis").Cells(49, 6).Value = TOTALB
Worksheets("BASE Devis").Cells(50, 6).Value = TOTALBS
'-----------OPTION KOMACEL----------------
If QMWKB.Value = True Then
TotalQMWKB = Val(TOTALW)
Else
TotalQMWKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMWTA.Value = True Then
TotalQMWTA = Val(TOTALW)
Else
TotalQMWTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMWIG.Value = True Then
TotalQMWIG = Val(TOTALW)
Else
TotalQMWIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMWSP.Value = True Then
TotalQMWSP = Val(TOTALW)
Else
TotalQMWSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMWG.Value = True Then
TotalQMWG = Val(TOTALW)
Else
TotalQMWG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMFKB.Value = True Then
TotalQMFKB = Val(TOTALF)
Else
TotalQMFKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMFTA.Value = True Then
TotalQMFTA = Val(TOTALF)
Else
TotalQMFTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMFIG.Value = True Then
TotalQMFIG = Val(TOTALF)
Else
TotalQMFIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMFSP.Value = True Then
TotalQMFSP = Val(TOTALF)
Else
TotalQMFSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMFG.Value = True Then
TotalQMFG = Val(TOTALF)
Else
TotalQMFG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMSTKB.Value = True Then
TotalQMSTKB = Val(TOTALST)
Else
TotalQMSTKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMSTTA.Value = True Then
TotalQMSTTA = Val(TOTALST)
Else
TotalQMSTTA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMSTIG.Value = True Then
TotalQMSTIG = Val(TOTALST)
Else
TotalQMSTIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMSTSP.Value = True Then
TotalQMSTSP = Val(TOTALST)
Else
TotalQMSTSP = "0"
End If
'-----------OPTION GELATINE----------------
If QMSTG.Value = True Then
TotalQMSTG = Val(TOTALST)
Else
TotalQMSTG = "0"
End If
'=================================================
'-----------OPTION KOMACEL----------------
If QMSIKB.Value = True Then
TotalQMSIKB = Val(TOTALSI)
Else
TotalQMSIKB = "0"
End If
'-----------OPTION TEXTE ADHESIF----------------
If QMSITA.Value = True Then
TotalQMSITA = Val(TOTALSI)
Else
TotalQMSITA = "0"
End If
'-----------OPTION IMAGES GENERIQUES----------------
If QMSIIG.Value = True Then
TotalQMSIIG = Val(TOTALSI)
Else
TotalQMSIIG = "0"
End If
'-----------OPTION SOCLE PLINTHE----------------
If QMSISP.Value = True Then
TotalQMSISP = Val(TOTALSI)
Else
TotalQMSISP = "0"
End If
'-----------OPTION GELATINE----------------
If QMSIG.Value = True Then
TotalQMSIG = Val(TOTALSI)
Else
TotalQMSIG = "0"
End If
TOTALKOMACEL = Val(TotalQMWKB) + Val(TotalQMFKB) + Val(TotalQMSTKB) + Val(TotalQMSIKB)
TOTALTEXTE = Val(TotalQMWTA) + Val(TotalQMFTA) + Val(TotalQMSTTA) + Val(TotalQMSITA)
TOTALIMAGE = Val(TotalQMWIG) + Val(TotalQMFIG) + Val(TotalQMSTIG) + Val(TotalQMSIIG)
TOTALSOCLE = Val(TotalQMWSP) + Val(TotalQMFSP) + Val(TotalQMSTSP) + Val(TotalQMSISP)
TOTALGELATINE = Val(TotalQMWG) + Val(TotalQMFG) + Val(TotalQMSTG) + Val(TotalQMSIG)
Worksheets("BASE Devis").Cells(53, 6).Value = TOTALKOMACEL
Worksheets("BASE Devis").Cells(54, 6).Value = TOTALTEXTE
Worksheets("BASE Devis").Cells(55, 6).Value = TOTALIMAGE
Worksheets("BASE Devis").Cells(56, 6).Value = TOTALSOCLE
Worksheets("BASE Devis").Cells(57, 6).Value = TOTALGELATINE
ActiveSheet.Unprotect "200384"
ActiveSheet.Range("$A$1:$A$322").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.Protect "200384", UserInterfaceOnly:=True
Unload Me
End Sub