Problème de comparaison entre une valeur et les données d'un tableau ( listobject )

Bonjour,

Pour illustrer mon problème, j'ai joint le classeur ci-dessous et codé le contrôle suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit   Private Sub CommandButton1_Click()   Dim LR As ListRow   For Each LR In Sheets("Feuil1").ListObjects("Tableau1").ListRows If LR.Range.Cells(LR.Index, 1).Value2 = "Antoine" Then LR.Range.Cells(LR.Index, 1).Interior.Color = 255 End If Next LR   End Sub

---

Tableau1 comprend les données suivante :
Antoine
Antoine
Bernard
Christian
Antoine
Denis
Eric
Frédéric
Hector

J'espérai que toute les cellules contenant "Antoine" soit rouge après lancement du contrôle. Or ce n'est pas le cas.

Qui peut m'expliquer d'où vient le problème.

BonjourKassy

Essaie avec un tableau ayant plus que une colonne. Ce sera plus facile à comprendre.
Tu verras dans le classeur ci-joint que ce n'est pas la cellule LR.Range.Cells(LR.Index, 1) qui t'intéresse.

Merci Gérard de m'avoir mis sur la piste et d'avoir répondu aussi rapidement.:D

Je retiens l'idée de la sélection des cellules au moment de la mise au point du code. Cela m'a permis de comprendre que Cells(LR.Index, 1) introduit un décalage de LR.index ligne. Je l'ai donc remplacé par Columns(1).

La bonne syntaxe est Cells(1,1) car la syntaxe de cells() est Cells(Ligne, Colonne).

Et effectivement, l'utilisation de SELECT lors de la mise au point d'un programme nous permet de voir rapidement nos erreurs, donc de ne pas en faire.

Encore un grand merci.