Discussion :

[dubdub87]

bonjours,

je vous ai mis la photos du problème les lignes en bleu sont concernées il met une somme erronée à la place de la date. Pourquoi svp ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub cmbvalider_Click()
 
Dim ws As Worksheet
Dim newRow As Integer
 
Set ws = ActiveWorkbook.Worksheets(Feuil15.Range("B18").Value)
 
Select Case Me.ComboBox4.Value
Case "RECETTES divers"
    newRow = 2
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
 
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value)) 'date construite5
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    '.....
    'suite des affectations de donnŽes
 
Case "Ventes de Tableaux"
    newRow = 7
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value))
    ws.Cells(newRow, 2) = Feuil15.Cells(23, 2)
    ws.Cells(newRow, 6) = Feuil15.Cells(24, 2)
    '.....
    'suite des affectations de donnŽes
 
Case "Employer"
    newRow = 22
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value))
    ws.Cells(newRow, 2) = Feuil15.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil15.Cells(21, 2).Value
    ws.Cells(newRow, 6) = Feuil15.Cells(24, 2).Value
    ws.Cells(newRow, 5) = Feuil15.Cells(25, 2).Value
 
 
    'Case....   les autres cas
 
End Select
'ws.Cells(newRow, 1).Value = Me.ComboBox1.Value
'ws.Cells(newRow, 2).Value = Me.TextBox4.Value 'objet
'ws.Cells(newRow, 6).Value = Me.TxtSommes.Value
'ws.Cells(newRow, 1).Value = Me.ComboBox3.Value 'jours
End Sub
 
 
Private Sub cmdFermer_Click()
 
Me.Hide
 
End Sub
 
Private Sub ComboBox2_Change()
Worksheets(Me.ComboBox2.Text).Activate
End Sub
 
Private Sub UserForm_Initialize()
ComboBox2.Text = "janvier "
Worksheets(Me.ComboBox2.Text).Activate
'Me.cmdmois.ControlSource = "donnees!D2"
'Me.cmdmois.RowSource = "donnees!A1:A4"