Problème de compatibilité VBA Win - Mac
Bonjour à tous,
Suite à des recherches j'ai pu trouver et adapter à ma situation le code vba suivant. Son but est d'afficher une suggestion de noms de produits lors de l'écriture dans une cellulle de la colonne B. La liste de produits est enregistré dans la feuille BD.
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
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B4:B20], Target) Is Nothing And Target.Count = 1 Then
Set f = Sheets("BD")
a = Application.Transpose(f.Range("A3:A" & f.[A65000].End(xlUp).Row))
Me.ComboBox1.List = a
Me.ComboBox1.Height = Target.Height + 3
Me.ComboBox1.Width = Target.Width
Me.ComboBox1.Top = Target.Top
Me.ComboBox1.Left = Target.Left
Me.ComboBox1 = Target
Me.ComboBox1.Visible = True
Me.ComboBox1.Activate
Else
Me.ComboBox1.Visible = False
End If
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
Me.ComboBox1.DropDown
End If
ActiveCell.Value = Me.ComboBox1
End Sub
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.List = a
Me.ComboBox1.Activate
Me.ComboBox1.DropDown
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub |
Ce vba fonctionne parfaitement sur Windows. Toutefois, il est impossible de le faire fonctionner sur Mac. Le message d'erreur affiché à l'ouverture est "méthode ou membre de données introuvable". Aucun réglage particulier n'a été effectué sur le Mac. Lors de la mise en route sur Excel Mac, seule la première ligne est surlignée en jaune.
Il s'agit de la première fois que j'utilise VBA donc n'hésitez pas à poser des questions qui peuvent vous sembler "idiote/simple". Toute aide / tip pour procéder à la modification de ce script pour qu'il fonctionne sur les deux OS serait super gentil.
Merci d'avance pour votre aide et belle journée à tous,
Pierre-Antoine
