Bonjour,
A l'aide d'un formulaire, je remplis automatiquement deux classeurs. Pas de soucis pour le premier, mais lors de l'ouverture du second, les macros de celui-ci ce mettent en route et je suis bon pour attendre un bon moment avant de pouvoir faire qqch.
C'est la fonction ci-dessous qui ralentis le tout:
J'ai essayé ça:
Malheureusement, que je clique sur "oui" ou "non", le msgbox se recharge toujours (donc obligé de killer le processus Excel pour pouvoir en sortir).
A l'aide d'un formulaire, je remplis automatiquement deux classeurs. Pas de soucis pour le premier, mais lors de l'ouverture du second, les macros de celui-ci ce mettent en route et je suis bon pour attendre un bon moment avant de pouvoir faire qqch.
C'est la fonction ci-dessous qui ralentis le tout:
Code:
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Double
Application.ScreenUpdating = False
Application.Volatile True
Dim wCell As Range
For Each wCell In Plage
If wCell.Interior.ColorIndex = NumeroDeCouleur Then
SommeSiCouleur = SommeSiCouleur + wCell.Value
End If
Next
End Function
J'ai essayé ça:
Code:
If MsgBox("Voulez-vous exécuter la macro d'ouverture du classeur 'TABLEAUX AVANCEMENT.xlsm' ?", vbYesNo + vbQuestion, "Lancement macro.") = vbNo Then
Exit Function
End If
Malheureusement, que je clique sur "oui" ou "non", le msgbox se recharge toujours (donc obligé de killer le processus Excel pour pouvoir en sortir).