Discussion :

[xavion]

Bonjour,

dans ma macro, j'utilise la fonction replace pour enlever tous les accents (Ex: é ->e, î ->i etc...).
Ca marche très bien sur mac mais lorsque je passe sous windows, les caractères (dans la macro) ne sont plus les bons.
J'en déduis qu'il y a pas une compatibilité parfaite des caractères entre windows et mac. Avez-vous une solution autre que devoir sauvegarder sous windows le fichier tout le temps?

sous mac

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Range("E" & i).Value = Replace(Range("E" & i).Value, "é", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "è", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ë", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ê", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ö", "o")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "à", "a")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ï", "i")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "î", "i")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ç", "c")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "'", " ")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "-", " ")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "_", " ")

sous windows et pour exactement le même fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("E" & i).Value = Trim(Range("E" & i).Value)
    Range("E" & i).Value = Replace(Range("E" & i).Value, "Ž", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "‘", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "", "e")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "š", "o")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "ˆ", "a")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "•", "i")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "”", "i")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "", "c")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "'", " ")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "-", " ")
    Range("E" & i).Value = Replace(Range("E" & i).Value, "_", " ")

Merci bcp.

[keygen08]

Bonjour

Utilise tu une police disponible sur les deux micro.
As tu deja essaye avec une autre police (truetype, notament).

J'ai pris soin de ne pas mettre d'accent.

[xavion]

Bonjour et merci pour la réponse mais là je ne peux pas y couper je vais essayer avec la police true type alors. Mais là j'étais en arial donc normalement pas de soucis sur les deux machines.
Il n'y a aucun autre moyen?