Discussion :

[aadostie]

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 :



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

[aadostie]

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 :

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
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 :

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
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

[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

[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 ?
Cordialement

[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

[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