Macro ne fonctionnant pas sur Mac

[Hyplou]

Bonjour à tous,

Une petite présentation avent ma question ^^, je m'appel Xavier je suis de Strasbourg, j'ai 32 ans dans la restauration 😛 et je mis connais peu en exce l😕 😕 😕 . Je pence en comparaison être juste capable de faire le plein d'essence 😱 . Voilou si vous avez des questions pas de souci 😱.

Donc ma question, il y a quelque temps j'ai trouvé quelque part sur ce forum un fichier excel pour des fiches techniques, j'ai pu travailler facilement sur ce dossier. Mais aujourd'hui en voulant travailler sur Mac Excel ne semble pas vouloir comprendre la macro 🙁 . J'ai essayé de trouver par moi même mais n'ayant pas pour langue maternel Excel .....

Je me permet de poster une copie simple si quelqu'un à une solution 😱😱😱 .
Merci d'avance.
Xavier

Ps: Un pti extra si c'est possible ^^ Je souhait incrusté dans la cellule image une photo du produit, j'avais trouvé une maccro pour inséré une photo au format de la cellule mais j'ai pas du bien faire 🙁

 

[Hyplou]

Re : Macro ne fonctionnant pas sur Mac

Up UP UP ^^😉

 

[Roland_M]

Re : Macro ne fonctionnant pas sur Mac

bonsoir,

déjà il faudrait pouvoir tester sur un Mac !?
ensuite de quelle macro s'agit t'il ?
et à quel endroit ça bug ?

 

[Hyplou]

Re : Macro ne fonctionnant pas sur Mac

Bonjour,

Merci de votre réponse.

pour la macros:
Function SansDoublonsTrié(champ As Range)
Set mondico = CreateObject("Scripting.Dictionary")
temp = champ
For i = LBound(temp, 1) To UBound(temp, 1)
For j = LBound(temp, 2) To UBound(temp, 2)
If Not mondico.Exists(temp(i, j)) And temp(i, j) <> "" Then mondico.Add temp(i, j), temp(i, j)
Next j
Next i
Dim b()
ReDim b(1 To champ.Count)
i = 1
For Each c In mondico.Items
b(i) = c
i = i + 1
Next
Call tri(b, 1, mondico.Count)
SansDoublonsTrié = Application.Transpose(b)
End Function

Sub tri(a, gauc, droi) ' Quick sort
ref = a((gauc + droi) \ 2)
g = gauc: d = droi
Do
Do While a(g) < ref: g = g + 1: Loop
Do While ref < a(d): d = d - 1: Loop
If g <= d Then
temp = a(g): a(g) = a(d): a(d) = temp
g = g + 1: d = d - 1
End If
Loop While g <= d
If g < droi Then Call tri(a, g, droi)
If gauc < d Then Call tri(a, gauc, d)
End Sub


Pour le problème, dans la page "liste" il est écrit " valeur", et dans les recettes ont ne peut pas sélectionner dans le menu déroulant la colonne.

J'espére avoir pu être un peu plus claire 🙄

Cordialement
Xavier

 

[Hyplou]

Re : Macro ne fonctionnant pas sur Mac

Par contre je travail sur mac et pc donc si vous trouvez une petite solution pour travailler sur les deux 😀

 

[Hyplou]

Re : Macro ne fonctionnant pas sur Mac

Voila ou ce situe le problème 😕