[XL-MAC 2011] Adaptation pour Excel sur Mac

Adaptation pour Excel sur Mac

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:

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

Salut, un coup d'œil ici ?

J'ai vraiment besoin d'un coup de main

Bonjour,

Je reviens vers vous car cela fait bien plusieurs jours je sais de trouver la solution à mon problème je sais tout simplement adapté merci aux qui fonctionne très bien sur Excel version PC mais ne fonctionne pas sur Excel version Mac pouvez-vous m'expliquer pourquoi sur le code qui est au-dessus je vous remercie d'avance

1 pièce(s) jointe(s)

Code vba excel

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 !!!