XL 2016 macro excel

[roro44]

bonjour, depuis plusieurs jours j'essaye de modifier une macro qui fonctionne bien mais qui n'agit que sur une seul colonne donc mon souhait serait que:
lorsqu'une donnée est indiquée sur la feuille 1/colonne A, elle soit mise en couleur sur la feuille2 (colonne A,B et éventuellement sur d autres colonnes par la suite)
je vous remercie par avance de votre soutien .

régis.

 

[Iznogood1]

Bonjour,

Essaye

Sub Compare2()
  Dim r As Range
  Dim s  As Range
  For Each r In Feuil2.Range("a2:a" & Feuil2.Range("a1").CurrentRegion.Rows.Count)
    For Each s In Feuil1.Range("a2:a" & Feuil1.Range("a1").CurrentRegion.Rows.Count)
      If r.Value = s.Value Then s.Range("A1:B1").Interior.ColorIndex = 6
    Next s
  Next r
End Sub

Avec ce code, 2 colonnes sont sulignées
Si tu veux 3 colonnes, remplace

If r.Value = s.Value Then s.Range("A1:B1").Interior.ColorIndex = 6

par

If r.Value = s.Value Then s.Range("A1:C1").Interior.ColorIndex = 6

etc...

Comme tu utilises la fonctionnalité "Tableau", tu peux avantageusement remplacer

For Each r In Feuil2.Range("a2:a" & Feuil2.Range("a1").CurrentRegion.Rows.Count)

par

For Each r in Feuil2.ListObjects("Tableau1").DataBodyRange.Columns(1)

 

[roro44]

bonjour
Iznogood1 j ai un peu modifier le code pour que les cases couleur se mettent sur la feuille 2 par contre quand je lance la macro il m'en trouve 4 alors que dans ma recherche (feuille1) je n ai que trois référence??

 

[Iznogood1]

Quelques confusions entre Feuil1/Feuil2 et r/s
Le bon code :

Sub Compare2()
  Dim r As Range
  Dim s  As Range
  For Each r In Feuil2.Range("a2:a" & Feuil2.Range("a1").CurrentRegion.Rows.Count)
    For Each s In Feuil1.Range("a2:a" & Feuil1.Range("a1").CurrentRegion.Rows.Count)
      If r.Value = s.Value Then r.Range("A1:B1").Interior.ColorIndex = 6
    Next s
  Next r
End Sub

 

[roro44]

rebonjour Iznogood1,
bon, ca ne fonctionne pas vraiment. j ai remplacé "
For Each r In Feuil2.Range("a2:a" & Feuil2.Range("a1").CurrentRegion.Rows.Count)" par "
For Each r in Feuil2.ListObjects("Tableau1").DataBodyRange.Columns(1)" et j ai l'erreur: "If r.Value = s.Value" qui se met en jaune.
mes données (prochaines) seront en tableaux et avant de commencer je préfère faire des test.
as tu d'autres pistes?
merci d avance.