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.