Discussion :

[retraite83]

Bonjour,

j'ai un code dans une feuille pour ajuster en hauteur la ligne modifiée par l'utilisateur, et cela convient très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Worksheet_Change(ByVal Target As Range)
Dim actRow As Integer
actRow = Target.Row
 
ActiveSheet.Rows(actRow).AutoFit
ActiveSheet.Rows(actRow).RowHeight = 5 + ActiveSheet.Rows(actRow).RowHeight
 
End Sub

le problème est dans une macro je fais des "Range" en boucle dans la feuille et à chaque fois le code est activée inutilement ce qui prend beaucoup du temps

Y-a-t-il un moyen de ne pas activer ce code "Worksheet_Change" dans ma macro lors des "Range"?

merci

[78chris]

Bonjour

Désactiver les événements en début de procédure puis réactiver en fin avec Application.EnableEvents

Attention il n'est pas inutile de mettre une étiquette avant le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents=true

et mettre un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo NomdeLétiquette

après le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents=False

afin de ne pas rester sans gestion d'évènement en cas de plantage

[retraite83]

bonjour,

je ne suis pas sur de comprendre, tu veux dire au début de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.EnableEvents=true

et en fin de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.EnableEvents=false
On Error GoTo erreur

mais je fais quoi si une erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
erreur:
...

ce n'est pas plutôt le contraire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents=false

au début de la macro ?

[78chris]

RE

Dans ton code qui fait des "Range" en boucle dans la feuille

Au début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Application.EnableEvents = False
On Error GoTo Fin

Avant End sud

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Fin:
Application.EnableEvents = True

[retraite83]

Oui, merci,

ce que je ne saisis pas c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo Fin

dans quel cas cela peut-il arriver ?

quel risque si on le met pas ?

[78chris]

Re

Si tu en le mets pas, si ta macro plante, Excel ne gère plus aucun événement... Le on error goto fin permet de sortir proprement et de rétablir les événements en cas d'erreur...