Discussion :

[Kassy]

Bonjour,

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

Code :

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

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.

[Docmarti]

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.

[Kassy]

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

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).

[Docmarti]

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.

[Kassy]

Encore un grand merci.