Discussion :

[brown_ey]

Bonjour,

J'ai quelques problemes avec le range/cells select.

J'ai un tableau à 7 colonnes et et une dizaine de lignes. Je dois comparer les lignes 2 par 2 et mettre en couleur les différences.

Exemple

Montant / Valeur / date
a/b/c
a/b/c
d/e/f
d/e/g

Mon but est de comparer les deux premières lignes entre elles (pas d'erreurs) et les deux suivantes entre elles (et mettre f et g en couleur).

Pour ce faire, j'ai ce code :

Mon h représente le numéro de ligne, glissant donc de 2 en 2
i est le numéro de colonne glissant colonne par colonne
Nb_ligne_reporting est le nombre de ligne du tableau

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
20
 h = 3
 i = 2
Nb_ligne_reporting = Application.WorksheetFunction.CountA(Workbooks("Reporting").Worksheets("Rapport").Range("B2:B1000"))+1
 
Do While h <= Nb_ligne_reporting
    For i = 2 To 12
       If Cells(h - 1, i) <> Cells(h, i) Then
                Cells(h - 1, i).Select
                With Selection.Interior
                          .Color = 255
                End With
 
                Cells(h, i).Select
                With Selection.Interior
                                .Color = 255
                 End With
          End If
  Next i
h=h+2
loop

----> Mon problème est que, quand je teste, je reçois :

Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

Quand je fais F8, je vois que le probleme vient de Cells.select

Étonnement, quand je retire ce code de ma procédure et que je la met dans une autre, elle fonctionne ! Mais dès que je l'appelle par un call dans la première, ça ne marche plus !!!

Avez vous une idée ?

[Philippe Tulliez]

Bonjour,
La feuille sur laquelle tu fais ton SELECT ne serait-elle pas cachée ?
Petite parenthèse mais cela ne supprimera pas ton erreur, il est inutile d'utiliser SELECT
Ceci fonctionne parfaitement et est plus rapide (si on a beaucoup de lignes à traiter évidemment)

Code :

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

1
2
3
 
 Cells(h - 1, i).Interior.Color = 255
 Cells(h, i).Interior.Color = 255

Avec un petit tableau comme celui-là. N'aurais-tu pas plus facile avec une mise en forme conditionnelle ?

[brown_ey]

Bon alors la grosse blague c'est qu'en remplaçant mes selects par ta formule, ça fonctionne !!!

Donc le problème venait vraiment du "select".

Un grand merci pour ton aide !

(ça faisait plusieurs heures que je perdais sur ce code. J'avais tout essayé, du cells au range.offset en passant par d'autre procedure ... ^^)

Merci

EDIT : Et malheureusement non la feuille n'était pas cachée

[Philippe Tulliez]

Bonjour,
C'est très curieux car qu'il y ai SELECT ou pas ne change rien à l'affaire.
Bien qu'étant sûr de moi, j'ai tout de même vérifié parce-que tout est possible avec l'informatique. Chez moi avec ou sans SELECT cela fonctionne.
Je suis ravi pour toi que cela fonctionne mais il y a sûrement eu autre chose.

[7ider5]

Bonjour brown_ey

Ne pourrais-tu pas faire une mise en forme conditionnelle directement sur ta feuille excel?