Discussion :

[dubdub87]

bonjours,

je suis désolé mais une erreur 13 se met et me surligne en jaune (en gras et souligné ci-dessous)
et je n'arrive pas a comprendre pouvez vous m'expliquer merci d'avance!!!

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
69
70
71
72
73
74
75
76
77
78
79
80

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, Feuil15.Range("D18").Value, 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 = 10
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""

'---------------- ICI ---------------------
ws.Cells(newRow, 1) = DateSerial(2015, Feuil15.Range("D18").Value, Me.ComboBox3.Value)
'>>>>>>>>>>>>>>>>>>>>>>>>>

    ws.Cells(newRow, 2) = Feuil2.Cells(19, 2).Value
    ws.Cells(newRow, 3) = Feuil2.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil2.Cells(22, 2).Value
    ws.Cells(newRow, 2) = Feuil2.Cells(23, 2).Value
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    
    '.....
    'suite des affectations de donnŽes

Case "Employer"
    newRow = 18
    Do
    newRow = newRow + 1
    Loop Until ws.Cells(newRow, 1) = ""
    ws.Cells(newRow, 1) = DateSerial(2015, Feuil15.Range("D18").Value, Me.ComboBox3.Value)
    ws.Cells(newRow, 2) = Feuil2.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil2.Cells(21, 2).Value
    ws.Cells(newRow, 6) = Feuil2.Cells(24, 2).Value
    ws.Cells(newRow, 5) = Feuil2.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"

End Sub

[Thautheme]

Bonjour Dubdub, bonjour le forum,

L'erreur 13 correspond à une incompatibilité de type... Les trois arguments de DateSerial doivent être de type Integer.
Essaie comme ça :

Code :

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

ws.Cells(newRow, 1) = DateSerial(2015, CInt(Feuil15.Range("D18").Value), CInt(Me.ComboBox3.Value)) 'date construite5