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.