Discussion :

[puresprit]

Bonjour...

J'ai une appli Excel + VBA qui marche parfaitement sur une dizaine de tableaux différents, en N versions d'Excel allant de 2003 à 2009, sur PC et sur Mac. Elle exploite les menus contextuels et balance par ailleurs plein de "MsgBox" et autres "InputBox".

Voici que sur Excel 2010, deux problèmes - distincts - surgissent :
1. Les accents présents dans mes les menus contextuel comme dans les MsgBox sont "mal" interprétés (du genre : un Z avec un chapeau pour le "é" comme cela arrive entre UTF et ISO...)
2. Sur les menus contextuel, une boîte à outils (en général : Format Cellule) apparaît, flottant au dessus du menu lui-même !

Je déprime Quelqu'un a-t-il une idée sur la façon d'éradiquer ces comportements ?
Merci à tous !

[puresprit]

Pour Info, j'ai trouvé ce Post sur le Forum, faisant état des problèmes d'accents survenus entre versions d'Excel MAC et PC (probablement à compter de 2009) :

http://www.developpez.net/forums/d13...isent-windows/

De fait, la version 2010 présentant le problème d'accent avait été utilisée sur Mac et sur PC, alternativement....

Hélas, le Post ci-dessus n'obtient pas de réponse très satisfaisante sur la façon de traiter le problème. Et j'ai toujours le problème de la boîte à outil "Format" qui s'affiche sur tout clic-droit en cellule...

Merci de votre aide !

[BenjGe]

c'est un problème d'encodage de caractère.
Une idée (mais lourde)
Idéalement il faudrait utiliser une api pour charger du texte ansi (correspondant au message à afficher, ce qui peut être fait en stockant le texte en vba) et le transcoder en fonction de l'environnement (mac ou windows) dans le format d'encodage de la machine (il faut utiliser la compilation conditionnelle je pense)

[78chris]

Bonjour

La "Boîte à outils" est un fonctionnement normal d'Excel mis en place depuis la version 2007.

On peut la désactiver dans les options mais elle est pratique...

[puresprit]

Bonjour

La "Boîte à outils" est un fonctionnement normal d'Excel mis en place depuis la version 2007.

On peut la désactiver dans les options mais elle est pratique...

Ben... c'est le premier truc que j'ai essayé ! Mais apparemment, cela reste sans le moindre effet.

Je suis donc dans la situation où cette action est clairement désactivée et où cette fichue "palette" s'affiche toujours. De rage, j'ai désactivé TOUTES les options. Autant que j'aie pu le vérifier, cette désactivation s'est montrée effective pour la plupart des Options, mais pas pour cette boîte à outils. Le plus comique, c'est que l'ensemble de la feuille est protégée pour les utilisateurs lambda, donc cliquer sur une icône de la palette ne sert strictement à rien.

Par ailleurs, je n'ai pas ce problème sur les versions antérieures à Excel 2010.

Merci quand même

[puresprit]

Sur Excel 2010, le mystère des "palettes" flottantes qui s'affichent lorsque l'on fait un click-droit et qu'il me semblait impossible de désactiver via VBA s'est éclairci ! Ce comportement est conditionné par une propriété de l'Application, le booléen : "Application.ShowMenuFloaties". Or, celui-ci.... fonctionne A L'ENVERS !

En effet :

La commande : "Application.ShowMenuFloaties = True" INHIBE l'affichage des mini-toolBox
La commande "Application.ShowMenuFloaties = False" ACTIVE cet affichage

Voir :
http://code.msdn.microsoft.com/offic...te-UI-ce578987

Au secours !

[BenjGe]

ok après une recherche il apparaît que visual basic sous macintosh ne supporte pas Unicode (UTF-8, UTF-16) donc votre projet étant créé sous mac les chaînes de caractères sont encodés dans
un autre format dans le fichier vbaproj.bin

en discussion privé j'ai commencé à aborder avec vous l'utilisation de strconv. Je pense qu'il faut creuser cette piste. Cette fonction renvoie un tableau de caractères en faisant une conversion vers ou depuis unicode. Je pense qu'en réalisant la conversion des messages vers unicode uniquement sous pc vos msgbox devrait refonctionner mais à la condition de concevoir les projets sous mac (enfin c'est une supposition)

Pouvez vous essayer ceci en le copiant collant sur un projet VBA réalisé sous mac, et en l'exécutant sur windows et mac?

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
16
17
 
Sub mess_display()
message$ = "éééé"
#If Win32 Or Win64 Then
messageconv$ = Conversion(message)
message = messageconv
#End If
MsgBox message
End Sub
Function Conversion(texte As String) As String
    Dim message() As Byte
    message = texte
    For i = 0 To UBound(message) Step 2
        Conversion = Conversion & Left(StrConv(ChrB(message(i)), vbUnicode), 1)
    Next i
 
End Function

EDIT: pardon essayez plutôt le code ci-dessous, il sera plus simple à utiliser

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
16
17
 
Sub mess_display()
 
MsgBox Conversion("éééé")
End Sub
Function Conversion(texte As String) As String
#If Win32 Or Win64 Then
    Dim message() As Byte
    message = texte
    For i = 0 To UBound(message) Step 2
        Conversion = Conversion & Left(StrConv(ChrB(message(i)), vbUnicode), 1)
    Next i
#ElseIf Mac Then
    Conversion = texte
#End If
 
End Function