Macros non compatibles sur Mac (aucun Active X pourtant)
Bonjour,
J'utilise 2 macros dans un fichier excel.
La 1ère permet de grouper & dégrouper des lignes sur une feuille protégée et d'y ajouter des lignes
Private Sub Workbook_Open()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
For I = 1 To WS_Count
With ActiveWorkbook.Worksheets(I)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="A", UserInterfaceOnly:=True, AllowInsertingRows:=True
End With
Next I
End SubLa 2nde permet de calculer un montant dans la colonne montant à partir des données saisies dans les colonnes quantité & prix unitaire sur les lignes d'article non colorées
Remplissage colonne H Amount
If Not Intersect(Target, Range("E:G")) Is Nothing Then
If Target.Interior.ColorIndex < 0 Then ' si le fond n'est pas color_
If Range("E" & L) <> "" And Range("G" & L) <> "" Then
Range("H" & L) = Range("E" & L) * Range("G" & L)
Else
Range("H" & L) = ""
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End SubCela fonctionne parfaitement sous PC. On peut grouper & dégrouper à volonté les lignes & le calcul du montant est automatisé.
En revanche, sous MAC, aucune des 2 ne fonctionne.
Et j'ai besoin que le fichier soit compatible sur les 2 ordis car une grande majorité des utilisateurs travaillent sur MAC.
Une idée qui pourrait m'aider?
Merci d'avance!
Bonjour,
Que voulez-vous dire par "aucune des 2 fonctionne" ? Il ne se passe rien ?
Il n'y a rien qui laisse à penser que ces macros ne puissent pas fonctionner sur mac.
Par contre, ce sont 2 macros évènementielles et celles-ci ne peuvent s'exécuter si la propriété enableevents est désactivée (ça arrive souvent lors d'un bug sur une macro comme la seconde).
Essayez d'exécuter ce code :
sub ReactEvents()
application.enableevents = true
end subPuis sauvegardez, fermez et rouvrez le fichier pour voir si la macro workbook_open se déclenche.
Cdlt,