recherche incomplète anomalie dans le code ?

Bonjour,

Je cherche à résoudre ( sans succès)un problème de code vba et je souhaite une aide à ce sujet.
Dans une feuille excel (j'utilise le pack office 2003) j'ai une colonne de valeurs numériques de trois chiffres ( pour faire simple) allant de A1 à A1500 colonne que j'ai nommée ( base1) dans une autre colonne B1 à B6 que j'ai nommée base2 j'ai également des valeurs numériques de trois chiffres .Le but est de rechercher dans ma colonne "base1" les valeurs figurant dans ma colonne base2 si c'est le cas le système colorie en jaune les cellules de la base1
Le code ci-après ne fonctionne que jusqu'à la cellule 1200 et des poussières ...!

Code:

---

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

Worksheets("feuil1").Activate Dim c1 As Range Dim c2 As Range For Each c1 In Worksheets("feuil1").Range("base1") For Each c2 In Worksheets("feuil1").Range("base2") If c2.Value <> "" And c2.Value = c1.Value Then c1.Interior.ColorIndex = 6 Range("a1").Select End If Next c2 Next c1 Range("a1").Select End Sub

---

Merci de votre aide

Citation:

---

Envoyé par boubo

---

Bonjour,

Regardez jusqu'à quelle ligne va votre aire base1.

Bonjour,

au passage un code est inutile, juste via une mise en forme conditionnelle …     (Penser Excel Avant VBA !)

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

salut

Code:

---

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

Sub test() couleur = Array(, 26, 44, 37, 29, 3, 31) Range("base1").Interior.Color = xlNone For i = 1 To Range("base2").Rows.Count recherche = Range("base2").Cells(i).Value With Range("base1") .AutoFilter Field:=1, Criteria1:="=" & recherche .SpecialCells(xlVisible).Interior.Color = ThisWorkbook.Colors(couleur(i)) Range("base2").Cells(i).Interior.Color = ThisWorkbook.Colors(couleur(i)) .AutoFilter End With Next Range("a1").Select End Sub

---

Bonsoir,

Merci pour vos réponses je vais m'en inspirer