transposer code excel vba activex sous mac

[MR13500]

Bonjour à tous,

je suis nouvelle sur ce forum, et franchement je ne suis pas particulièrement douée que ce soit avec un PC ou un MAC. On va dire que je me dépatouille... Bref, j'ai un fichier excel créé sous Windows 7 avec Excel 2010 qui contient des macros vba permettant à partir de mots clés tapés dans la cellule "intitulé" de réduire les choix apparaissant dans la liste déroulante de cette même cellule. Le problème comme vous vous en doutez c'est que ce fichier n'est pas compatible avec Excel 2016 sous MAC (je suis sous High Sierra) à cause des contrôles ActiveX. Est-ce que je dois réécrire tout le code? Est-ce que seules quelques lignes du code doivent être réécrite? Dans tous les cas, comment faire? Voici le code vba:

Dim Choix1()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([C17:C100], Target) Is Nothing And Target.Count = 1 Then
Set f = Sheets("Codes")
Set Rng = f.Range("B2:B" & f.[B65000].End(xlUp).Row)
Choix1 = Application.Transpose(Rng)
Me.ComboBox1.List = Choix1
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 <> "" Then
mots = Split(Trim(Me.ComboBox1), " ")
Tbl = Choix1
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
Me.ComboBox1.List = Tbl
Me.ComboBox1.DropDown
End If
End Sub
Private Sub ComboBox1_click()
ActiveCell.Value = Me.ComboBox1
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




Merci d'avance pour votre aide!

MR13500

[Aliboron]

Les contrôles ActiveX sont "Windows only", il n’est donc pas possible de les faire fonctionner dans une version pour Mac d’Excel. En conséquence, je crains fort qu’il soit impossible de reproduire le fonctionnement que tu décris. J’essayerai de voir ça ce soir si j’ai un peu de temps.

[MR13500]

Merci pour ta réponse! Ca marche, j'attends la suite et je vais réfléchir à une autre solution en attendant...