Fermeture D'Excel impossible
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:
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:
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.