Discussion :

[Mich07]

Bonjour à Tous,

J'ai un fichier avec la macros suivante dont le principe est de renuméroter les cellules A10 à A 500 si on modifie une cellule de la colonne A ou si on ajoute ou supprime une ligne :

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
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim KeyCells As Range
 
 On Error GoTo fin
 
 If Target.Columns.Count = 256 Or Target.Columns.Column = 1 Then
    With [A10:A500]
        .Value = Evaluate("ROW(1:" & .Count & ")")
    End With
  End If
 
fin:
 a = Err.Number
  Err.Clear
   a = Err.Number
 End
 
 End Sub

ca fonctionne bien mais si on a activé la macro (en supprimant une ligne du classeur par exemple), et qu'on ferme Excel par la croix supérieure droite, tout scintille et ça mouline sans jamais fermer Excel (vous pouvez la copier dans un fichier vierge le problème vient bien de cette macro).

J'ai même essayé de placer un point d'arret sur la macro suivante, mais le debugger n'y passe même pas :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = Err.Number
Err.Clear
End Sub

Merci d'avance pour vos avis éclairés.

[Pierre Fauconnier]

Salut.

L'évènement Change va se déclencher à chaque changement => c'est le but. Donc il est appelé en récursif puisque la suppression de la ligne entraîne le Change dans lequel tu modifies une cellule qui entraine le Change...

Juste après le On Error Goto, place la ligne Application.EnableEvents = False pour désactiver les évènements le temps du traitement et juste après l'étiquette Fin, place la ligne Application.EnableEvents = True qui rétablit l'écoute des évènements. Ca devrait résoudre le problème.

[Mich07]

Un grand merci pour cette réponse parfaitement claire et efficace.

Et Joyeux Noel.