Discussion :

[sweetty]

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.

[dede_bo]

Bonjour,

Trois points:
1° Je ne vois pas l'utilité de la ligne 6 ...

j = ActiveCell.Previous.Row

Car en ligne 8 vous avez:

For j = 1 To 1000

2° Si vous voulez réellement conserver la ligne 6, alors

Si votre activeCell se trouve en A1 (par exemple), avec previous row, j= "0". Ce qui n'est pas possible.
Vous devez ajouter un contrôle du genre

Code :

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

1
2
3
4
5
6
 
    If ActiveCell.Row > 1 Then
          j = ActiveCell.Previous.Row
    Else
          j= 1
    End If

Et cela ne se plantera plus.

3° point, la ligne 17 n'est pas nécessaire.


André

[Patrice740]

Bonjour,

Dans le module de feuille :

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Rows.Interior.ColorIndex = xlNone
  Target.EntireRow.Interior.ColorIndex = 17
End Sub

[Mickamax]

Puisque tout le monde y va de sa petite technique, à mon tour !

3 étapes très simples:

Dans une cellule inscrire cette formule (Ici, en A4) en bornant le tableau avec min et max :



Sur VBA indiquer dans l'onglet worksheet "Calculate" comme ceci :



Enfin, grâce à une simple mise en forme conditionnelle:



Mickamax