Macros PC Excel ne fonctionne pas sur Mac

Question

J'ai écrit une macro qui supprime tous les caractères non numériques du code logistique et multiplie les numéros restants. Sur le pc c'est ok, sur mon mac ça ne marche pas.

Voici le code, probablement quelqu'un pourrait me suggérer pourquoi les macros ne fonctionne pas sur mac:

Function Bek(s) 
Static re As Object 
Dim x 
    If re Is Nothing Then 
    Set re = CreateObject("vbscript.regexp") 
    re.Pattern = "[0-9.,]+" 
    re.Global = True 
    End If 
    If re.test(s) Then 
    Bek = 1 
    For Each x In re.Execute(s) 
     Bek = Bek * Val(Replace(x, ",", ".")) 
    Next 
    End If 
End Function 

Je pourrais aussi joindre un fichier à votre demande.

P.S. trouvé des informations, que l'expression rationnelle pourrait ne pas être supportée par mac os.

Très appréciez votre aide.

Answer 1

Essayez ceci.

Il se divise et regarde chaque partie de la chaîne et la gère comme je le souhaite.
essayer et voir si cela fonctionne

Sub ApplesWayOfRegex() 


    Str1 = "S10 2000*6000" 

    ReDim chars(Len(Str1) - 1) 
    For i = 1 To Len(Str1) 
     If (IsNumeric(Mid$(Str1, i, 1))) And i <> 1 Then 
      chars(i - 1) = Mid$(Str1, i, 1) 
     ElseIf (Not IsNumeric(Mid$(Str1, i, 1))) And i = 1 Then 
      chars(i - 1) = "" 
     Else 
      chars(i - 1) = "*" 
     End If 
    Next 

    Mathstr = Join(chars, "") 
    MsgBox Application.Evaluate(Mathstr) 
End Sub