Bonjour,

J'aimerai élucidé un petit soucis qui perdure depuis pas mal de temps.
J'ai un tableau avec énormément de données. J'ai une formule qui me met en couleur la ligne complète de la cellule active. Cependant, lorsque je veux saisir une données en colonne A, j'ai un message d'erreur : "Erreur 1004, impossible de lire la propriété Previous de la classe range." et seulement le problème se pose avec la colonne A, pas les autres. Je contourne le problème pour saisir mais c'est embêtant.
Impossible de trouver ce qui cloche, et je commence toujours mes saisies en colonne A. Que puis je faire?

Voici le code:

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
19
Sub couleur()
 
Dim i As Integer
Dim j As Integer
 
 j = ActiveCell.Previous.Row
On Error GoTo saut
For j = 1 To 1000
If Rows(j).Interior.ColorIndex = 17 Then
   Rows(j).Interior.ColorIndex = 2
End If
 
Next j
i = ActiveCell.Row
Rows(i).Interior.ColorIndex = 17
saut:
Exit Sub
 
End Sub
Merci d'avance.