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 :
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).
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
J'ai même essayé de placer un point d'arret sur la macro suivante, mais le debugger n'y passe même pas :
Merci d'avance pour vos avis éclairés.
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
Partager