Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
205 internautes nous ont dit merci ce mois-ci
Sub maSubPerso() ' Mon traitement à faire à la fin End Sub Sub MaMacroPrincipale() ' Mon gros traitement ... Call maSubPerso End Sub
Public Variable FINI While FINI = False Exit Sub Wend
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim maVariableBool as Boolean If maVariableBool = True Then Exit Sub If maVariableBool = False Then 'Déroulement de mon code End If End Sub
Au fait sa existe une fonction du style "Tant que module1 est en cours, alors ne pas déclencher l'évènement..." ???
Application.EnableEvents = False
Application.EnableEvents = True