Code VBA pour utilisateurs PC et Mac

Bonjour,

Dans un classeur Excel, j'ai une macro qui me permet d'effacer le contenu de cellules. Lorsqu'on exécute cette macro, j'ai une boîte de dialogue qui s'ouvre avec le texte suivant : Es-tu sûr(e) de vouloir effacer la grille. Le problème est que pour les utilisateurs qui ont un Mac, les caractères spéciaux se modifient et le texte devient Es-tu s_r(e) de vouloir effacer le grille. J'ai essayé de remplacer le "û" par le code ascii correspondant, soit 251, mais le problème est que Mac n'a pas les mêmes codes ascii et le û se transforme en *.
Je voudrais dons savoir s'il existe une instruction qui permettrait d'avoir le bon texte lorsqu'on utilise un Mac, du style If Mac .... Else ....
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Rep As Integer Rep = MsgBox("Es-tu s" & Chr(251) & "r(e) de vouloir effacer la grille ?", vbYesNo + vbQuestion) If Rep = vbYes Then Range("H18:AI76").Select Selection.ClearContents Selection.Interior.Pattern = xlNone Range("24:78").EntireRow.Hidden = False Range("H18").Select Else End If

---

Merci.

Bonjour,

Citation:

---

Je voudrais dons savoir s'il existe une instruction qui permettrait d'avoir le bon texte lorsqu'on utilise un Mac, du style If Mac .... Else ....

---

Oui, cela s'appelle la compilation conditionnelle

Voir Présentation de la compilation conditionnelle
J'ai écrit un billet qui pourrait également servir d'exemple VBA Excel - La compilation conditionnelle ou comment développer en EarlyBinding et distribuer en late binding

Pour la constante conditionnelle "Mac", voir (en anglais) Differentiate between Office for Mac versions at compile time

Hello,

Citation:

---

Envoyé par Sergio33600

Dans un classeur Excel, j'ai une macro qui me permet d'effacer le contenu de cellules. Lorsqu'on exécute cette macro, j'ai une boîte de dialogue qui s'ouvre avec le texte suivant : Es-tu sûr(e) de vouloir effacer la grille. Le problème est que pour les utilisateurs qui ont un Mac, les caractères spéciaux se modifient et le texte devient Es-tu s_r(e) de vouloir effacer le grille. J'ai essayé de remplacer le "û" par le code ascii correspondant, soit 251, mais le problème est que Mac n'a pas les mêmes codes ascii et le û se transforme en *.

---

En ce qui concerne l'encodage des caractères, il faut savoir ce qui provoque un mauvais encodage sur Mac. Je n'ai pas de Mac donc voici quelques macros pour aider à résoudre le problème :


Déjà il faut savoir avec quelle version d'Excel Mac tu travailles. Voici une macro Excel qui affiche la version :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub TestMacOrWindowsOfficeVersion() 'Test the conditional compiler constants #If MAC_OFFICE_VERSION >= 15 Then MsgBox "Excel 2016 or higher for the Mac, version: " & _ Val(Application.Version) Exit Sub #End If   #If Mac Then If Val(Application.Version) < 15 Then MsgBox "Excel 2011 or earlier for the Mac, version: " & _ Val(Application.Version) End If #Else MsgBox "Excel for Windows, version: " & _ Val(Application.Version) #End If End Sub

---

Ensuite il faut savoir si c'est le bon paramètre de langue qui est utilisé. Voici une macro qui affiche la langue utilisée pour certains pays :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Sub TestParamLangue() If Val(Application.Version) >= 16 Then ' You use Mac Excel version 16 or higher Select Case Application.LanguageSettings.LanguageID(2) Case 1031: MsgBox "Run code for German" Case 1033: MsgBox "Run code for English" Case 1034: MsgBox "Run code for Spanish" Case 1036: MsgBox "Run code for French" Case 1043: MsgBox "Run code for Dutch" Case 1049: MsgBox "Run code for Russian" Case Else: MsgBox "Run code for other country(default english 1033) : " & CStr(Application.LanguageSettings.LanguageID(2)) End Select Else ' You use Mac Excel version 15 or lower Select Case Application.LocalizedLanguage Case 1031: MsgBox "Run code for German" Case 1033: MsgBox "Run code for English" Case 1034: MsgBox "Run code for Spanish" Case 1036: MsgBox "Run code for French" Case 1043: MsgBox "Run code for Dutch" Case 1049: MsgBox "Run code for Russian" Case Else: MsgBox "Run code for other country(default english 1033) : " & CStr(Application.LocalizedLanguage) End Select End If End Sub

---

Peux-tu nous dire ce que tu obtiens pour ces deux Macros dans Excel Mac ?


Si cela ne suffit pas voici une macro qui affiche les caractères ascii de 128 à 255 :

Code:

---

1 2 3 4 5 6 7 8 9

Sub TestSpecChars() Dim x Dim Machaine For x = 128 To 255 Machaine = Machaine + Chr(x) Next MsgBox Machaine Debug.Print Machaine End Sub

---

et voici ce que l'on obtiens avec un paramètre de langue en français :

Citation:

---

€�‚ƒ„…†‡ˆ‰Š‹Œ�Ž��‘’“”•–—˜™š›œ�žŸ ¡¢£¤¥¦§¨©ª«¬*®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ

---

Peux-tu nous montrer ce que tu obtiens ? Avec ceci il sera peut-être possible de deviner l'encodage utilisé.


Ami calmant, J.P