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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.