Bonjour,

Je me rapproche de vous, Car j'ai un petit soucis avec la liste de code que j'ai créé sur Excel Windows mais je n'arrive pas à adapter à Excel sur Mac dans mon userform il y a des textesbox et des combobox mais je n'arrive pas à les mettre en action pouvez-vous m'expliquer pourquoi et savoir c'est possible qu'on puisse l'adapter pour les deux sur Mac et sur PC s'il vous plaît 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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
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, 7) = Feuil15.Cells(24, 2).Value
    ws.Cells(newRow, 3) = Feuil15.Cells(19, 2).Value
    ws.Cells(newRow, 2) = Feuil15.Cells(26, 2).Value
    '.....
    'suite des affectations de donn_es
 
Case "Ventes de Tableaux"
    newRow = 9
    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(26, 2)
    ws.Cells(newRow, 3) = Feuil15.Cells(23, 2)
    ws.Cells(newRow, 5) = Feuil15.Cells(22, 2)
    ws.Cells(newRow, 7) = Feuil15.Cells(24, 2)
    '.....
    'suite des affectations de donn_es
 
Case "Notes de Debours"
    newRow = 19
    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, 2) = Feuil15.Cells(26, 2).Value
    ws.Cells(newRow, 3) = Feuil15.Cells(25, 2).Value
    ws.Cells(newRow, 7) = Feuil15.Cells(24, 2).Value
    '.....
    'suite des affectations de donn_es
 
Case "Employer"
    newRow = 27
    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(26, 2).Value
    ws.Cells(newRow, 3) = Feuil15.Cells(20, 2).Value
    ws.Cells(newRow, 4) = Feuil15.Cells(21, 2).Value
    ws.Cells(newRow, 5) = Feuil15.Cells(25, 2).Value
    ws.Cells(newRow, 7) = Feuil15.Cells(24, 2).Value
 
Case "Frais d'Exposition"
    newRow = 35
    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(26, 2).Value
    ws.Cells(newRow, 3) = Feuil15.Cells(19, 2).Value
    ws.Cells(newRow, 7) = Feuil15.Cells(24, 2).Value
 
Case "Frais Divers"
    newRow = 44
    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(26, 2).Value
    ws.Cells(newRow, 3) = Feuil15.Cells(19, 2).Value
    ws.Cells(newRow, 7) = Feuil15.Cells(24, 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