De Excel 2010 PC à Mac

Bonjour à tous;

Je voudrais si possible avoir votre aide pour transférer un classeur 2010 sous Windows 7 vers un Mac, quand j'ai copier le classeur et je l'ai lancer je vois afficher l'erreur " Membre de méthode ou de Données Introuvable" et l'erreur pointe sur la macro suivante

Private Sub Workbook_Open()

Dim aa, J&, Mondico As Object, bb

Set Mondico = CreateObject("Scripting.Dictionary")

With Feuil1

For J = 2 To .Range("A" & Rows.Count).End(xlUp).Row

Mondico(.Range("A" & J).Value) = .Range("A" & J).Value

Next J

bb = Mondico.items

' Feuil2.ComboBox1.List = bb

Feuil3.ComboBox3.List = bb

Mondico.RemoveAll

For J = 2 To .Range("F" & Rows.Count).End(xlUp).Row

Mondico(.Range("F" & J).Value) = .Range("F" & J).Value

Next J

bb = Mondico.items

' Feuil2.ComboBox2.List = bb

Feuil3.ComboBox4.List = bb

End With

End Sub

NB: j'ai enregistrer le classeur sous format Excel 97 - 2003

Merci à tous

Bonjour,

As-tu regardé dans l'éditeur de code si la référence à "Microsoft Scripting runtime" était disponible et coché pour Mac?

Dans la négative, il te faudra modifier ton code en conséquence.

Cdlt.

Bonjour Jean-Eric;

Merci pour ta réponse, comme je ne suis pas très chevronné en VBA, peux-tu me dire ou dois-je activer cette option exactement est-ce sur PC ou Mac, merci encore à toi.

Re,

Sous Excel Mac

Menu Outils

• --> Visual Basic Editor
• --> Outils
• --> Références

Cdlt.

Bonjour,

Bonjour Jean-Eric.

Quel est ta version d'Excel (Mac)

A+

Re bonjour

Je suis allé sur les options mais je ne trouve pas "Microsoft Scripting runtime" dois je l'activer quelques parts. Sinon y aurait il une autre solution? Merci à toi et bon courage.

Quel est ta version d'Excel (Mac)

Bonjour à tous, à toi lermite

Merci d'avance la version Mac est 2004 FOR MAC V11.5.5

Re,

Peux-tu tester ce code dans ta procédure?

Private Sub UserForm_Initialize()
  For i = 1 To Sheets(1).[A65000].End(xlUp).Row
      Me.ComboBox1 = Sheets(1).Cells(i, "A")        ' on se positionne dans le combobox
      If Me.ComboBox1.ListIndex = -1 Then           ' Existe t-il?
         Me.ComboBox1.AddItem Sheets(1).Cells(i, "A")
      End If
   Next i
End Sub

Cdlt.

nb 1 : http://boisgontierjacques.free.fr/pages_site/formulairelistesansdoublons.htm

nb 2 :

Attention! active l'événement Change().

Bonsoir;

Je te remercie pour ta réponse, jr vais l'essayer mais dans un autre classeur, la structure de la macro et celle que j'ai dans mon classeur sont différente, merci à toi Jean-Eric.