Compatibilité fichier VBA venu de windows

Version imprimable

20/09/2018, 19h49
aadostie

1 pièce(s) jointe(s)

Compatibilité fichier VBA venu de windows

Bonjour à tous,

Dans le cadre d'un cours théorique que je donnes, je fourni aux étudiants un fichier excel utilisant du script VBA pour générer des exercices de conversion binaire<->décimale :

Pièce jointe 413442

Donc l'étudiant clique sur le bouton 'Générer', qui appel un script VBA générant aléatoirement un nombre et sa solution dans deux cellules différentes.
L'étudiant entre ensuite sa réponse dans la case et cette dernière passe en vert si c'est bon (mise en forme conditionnelle basée sur la cellule où se trouve la réponse fournie par le VBA).

Sous Windows, en xls 2016, tout fonctionne parfaitement.
Cependant un de mes étudiants ayant un MAC ne parvient pas à cliquer sur les boutons. A l'ouverture, il accepte les macros, mais ensuite il a un message lui indiquant que le fichier n'est pas totalement pris en charge et il ne peut que l'ouvrir en lecture seule.

N'ayant jamais utilisé excel sous MAC, sauriez-vous me dire d'où pourrait venir cette incompatibilité ?
Le code VBA, le fait d'utiliser des boutons, autres choses ?

En vous remerciant pour vos lumières :)

Si cela peut aider, voici les codes qui se trouvent tous dans 'Feuil1', le classeur ne contenant qu'une seule feuille.

le code d'un des boutons (ils sont tous calqués sur la même optique) :

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
26
27
28
29
30
31
32
33
'Génération de l'exercice <Binaire -> Décimal> pour notation binaire non-signée
Private Sub Bns_BinDec_Click()
    ActiveSheet.Unprotect   'Désactivation de la protection de la feuille
    Randomize               'Activation de la fonction aléatoire
 
    'Variables
    Dim ColEx, RowEx, ColSol, RowSol, ColRep, RowRep, Ajout0 As Integer
 
    'Définition de la cellule contenant l'exercice
    ColEx = 3
    RowEx = 5
    'Définition de la cellule contenant la solution
    ColSol = 4
    RowSol = 6
    'Définition de la cellule pour écrire la réponse
    ColRep = 3
    RowRep = 6
 
    'Génération de la solution (nb décimal)
    Cells(RowSol, ColSol) = Int(Rnd * 255) + 1
 
    'Génération de l'exercice (nb binaire)
    Cells(RowEx, ColEx) = DecimalToBase(Cells(RowSol, ColSol), 2)   'Conversion en binaire
    Ajout0 = 8 - Len(Cells(RowEx, ColEx))                           'Calcul du nombre de 0 à ajouter pour avoir 1 octet
    For j = 1 To Ajout0                                             'Ajout des 0 à gauche pour former 1 octet
        Cells(RowEx, ColEx) = "0" & Cells(RowEx, ColEx)
    Next j
 
    Cells(RowRep, ColRep) = ""      'Suppression de l'ancienne réponse
    Cells(RowRep, ColRep).Select    'Sélection de la cellule pour écrire la réponse
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True   'Activation de la protection
 
End Sub

Et le code pour les conversions entre les bases (qui ne vient pas de moi) :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Public Function DecimalToBase(ByVal nNumber As Long, ByVal DstBase As Long) As String
 
    Do While (nNumber >= DstBase)
        DecimalToBase = NumberToSymbol((nNumber Mod DstBase), DstBase) & DecimalToBase
        If DstBase >= 36 Then DecimalToBase = "." & DecimalToBase
        nNumber = nNumber \ DstBase
    Loop
    DecimalToBase = NumberToSymbol(nNumber, DstBase) & DecimalToBase
 
End Function
 
Public Function NumberToSymbol(ByVal nNumber As Long, ByVal DestBase As Long) As String
 
    If ((nNumber >= 10) And (nNumber < 36) And DestBase < 36) Then
        NumberToSymbol = Chr(Asc("A") + (nNumber - 10))
    Else
        NumberToSymbol = nNumber
    End If
 
End Function
 
Public Function BaseToDecimal(ByVal sNumber As String, ByVal SrcBase As Long) As Long
 
    Dim i As Integer
    Dim v() As String
 
    If SrcBase < 36 Then
        For i = 0 To Len(sNumber) - 1
            BaseToDecimal = BaseToDecimal + SymbolToNumber(Mid(sNumber, Len(sNumber) - i, 1)) * (SrcBase ^ i)
        Next
    Else
        v() = Split(sNumber, ".")
        For i = 0 To UBound(v)
            BaseToDecimal = BaseToDecimal + SymbolToNumber(v(UBound(v) - i)) * (SrcBase ^ i)
        Next
    End If
 
End Function
 
Public Function SymbolToNumber(ByVal sSymbol As String) As Long
 
    If Len(sSymbol) = 1 And Asc(UCase(sSymbol)) >= Asc("A") And Asc(UCase(sSymbol)) <= Asc("Z") Then
        SymbolToNumber = (Asc(UCase(sSymbol)) - Asc("A")) + 10
    Else
        SymbolToNumber = CLng(sSymbol)
    End If
 
End Function
 
Public Function BaseToBase(ByVal vNumber As Variant, ByVal SrcBase As Long, ByVal DstBase As Long) As Variant
 
    Dim nDecTemp As Long
 
    If (SrcBase <> 10) Then
        nDecTemp = BaseToDecimal(vNumber, SrcBase)
    Else
        nDecTemp = vNumber
    End If
 
    If (DstBase <> 10) Then
        BaseToBase = DecimalToBase(nDecTemp, DstBase)
    Else
        BaseToBase = nDecTemp
    End If
 
End Function

Encore merci ;)

20/09/2018, 23h04
eriiic

Bonjour,

les ActiveX sont des objets windows, ils n'existent pas sur Mac.
Tu n'as que les composants Formulaires de commun, ce qui réduit pas mal les possibilités.
eric
21/09/2018, 07h28
Transitoire

Bonjour, étant moi aussi en Mac, je confirme l'absence D'ActiveX.
Si vous voulez que les Mac puissent puissent aussi l'utiliser, enlevez toute références aux boutons ActiveX et trouvez un autre moyen d'appel compatible avec les deux systèmes ? :weird:
Cordialement
21/09/2018, 11h09
aadostie

Donc théoriquement, si je remplace tout mes boutons activeX par des Boutons de formulaire (en recopiant le code du bouton activeX dans le bouton formulaire), ça devrait fonctionner.

Je vais tenter la chose et tester avec l'étudiant.

Merci :)
21/09/2018, 11h18
RyuAutodidacte

Bonjour,

Il y'a aussi le useform que tu risques de changer …

Tu peux programmer en vba pour une compatibilité PC/Mac en restant uniquement dans les objets Excel.
Dès que tu dépasse cette limitation (ce qui est propre à Windows : activeX, DLL ,…) ça ne marchera pas sur Mac
21/09/2018, 11h50
aadostie

J'ai donc remplacé mes boutons ActiveX par des boutons formulaires, copier/coller le code dans le module1 pour affecter les Macro.
Après test sur le portable de mon collègue en MAC xls 2016, ça fonctionne parfaitement :)

Le script ne générant que des chiffres décimaux, Hexa ou binaire, il n'y a pas d'incompatibilité de ce côté. Je ne sors pas des objets xls.

Grand merci pour l'aiguillage 'ActiveX' qui m'a bien fait gagner du temps :)