1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
| Sub Fonctionpalettelistbox()
Set Flcd = ThisWorkbook.Worksheets("CC2012")
Set SDC = ThisWorkbook.Worksheets("Suivi de commande")
Set Bd = ThisWorkbook.Worksheets("Bd stock")
Set Fl = ThisWorkbook.Worksheets("facturation prévisionnelle")
'Recherche de Liste de Listbox
S_DC.Show
If satisf1 = False Then Exit Sub
Flcd.Activate
Set rc1 = Flcd.Columns(7).Find(What:=c1, LookAt:=xlPart)
lNx = rc1.Row
Fl.Activate
' Remplissage de la feuille de facturation prévisionnelle.
Range("A1").Select
If Range("A2").Value <> "" Then ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
randes = ActiveCell.Row
ActiveCell.Offset(0, 1).Value = Flcd.Cells(lNx, 8) 'Nom du client
ActiveCell.Offset(0, 2).Value = rc1.Value 'Numéro de commande
ActiveCell.Offset(0, 3).Value = Flcd.Cells(lNx, 9) 'Nom du chantier
ActiveCell.Offset(0, 4).Value = Flcd.Cells(lNx, 5) 'statut(en cours/soldé)
ActiveCell.Offset(0, 5).Value = Date 'Date
Flcd.Cells(lNx, 1).Copy Fl.Cells(randes, 1) 'Numéro de Devis
U_Fact.Show
If satisf1 = True Then
For Each c(Val) In U_Fact
If Not c(Val) = "" Then
SDC.Activate
Set rc = SDC.Columns(1).Find(What:=c(Val), LookAt:=xlPart)
Fl.Cells(randes, 8) = Application.WorksheetFunction.SumIf(SDC.Columns(17), c(Val), SDC.Columns(1))
Fl.Cells(randes, 10) = Application.WorksheetFunction.SumIf(SDC.Columns(17), c(Val), SDC.Columns(1))
End If
Next c(Val)
Fl.Cells(randes, 12).Value = cbo1 'Chèque ou espèce
Fl.Cells(randes, 13).Value = cbo2 'statut complete /partielle
Fl.Cells(randes, 14).Value = cbo3 'Vu par tel/mail/pers.
Fl.Cells(randes, 11).Value = CCur(cbo4) 'Versemment
Fl.Cells(randes, 9).Value = CInt(cbo5) 'Nombre de palette
End If
Set rc = Nothing
Set Flcd = Nothing
Set SDC = Nothing
Set Bd = Nothing
Set Fl = Nothing
End Sub |
Partager