Discussion :

[Mathrap65]

Bonjour a tous,

je ne sais pas si je suis au bon endroit pour ma question.

voila, je développe un fichier Excel avec VBA qui doit être compatible Mac & PC.
j'ai réussi à 95% Mais le dernier problème c'est La modification des caractères accentués dans le code VBA quand je passe de PC à Mac

Code PC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
            Target.AddComment ("Le nombre de caractères est > et <= à 25% à la longueur recommandée" & vbCrLf & vbCrLf & _
            "Longueur du texte = " & Len(Target) & vbCrLf & vbCrLf & _
            "Nombre de caractères à supprimer = " & Len(Target.Value) - Range(LGMax).Value)

Code MAC

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Target.AddComment ("Le nombre de caractËres est > et <= ‡ 25% ‡ la longueur recommandÈe" & vbCrLf & vbCrLf & _
            "Longueur du texte = " & Len(Target) & vbCrLf & vbCrLf & _
            "Nombre de caractËres ‡ supprimer = " & Len(Target.Value) - Range(LGMax).Value)

Il y a t-il un moyen pour éviter ça ?
j'espère que j'ai été assez clair dans mes explications

Merci d'avance

[jurassic pork]

Hello,
tout d'abord faire les tests qui sont ici
Ami calmant, J.P

[Mathrap65]

Merci Jurassic Pork

voici le résultat PC & MAC

Résultat PC MAC.docx

[jurassic pork]

comme on peut le constater dans le dernier des tests les caractères non ascii ( > 127) ne sont pas à la même place entre Windows et Mac. Je ne sais pas si il y a une solution toute faite mais sinon faire une table de correspondance et faire du code conditionnel entre Mac et PC si on veut garder le même fichier

[Mathrap65]

Merci de ton retour,

je vais encore chercher pour trouver une solution.

[jurassic pork]

Voici un exemple pour faire du code conditionnel Mac - Pc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function isMac() As Boolean
   If Application.OperatingSystem Like "*Mac*" Then
      isMac = True
   Else
      isMac = False
   End If
End Function
 
Sub TestMacPC()
If isMac() Then
   Debug.Print "héhé Mac"
Else
   Debug.Print "héhé Windows"
End If
End Sub