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 : Sélectionner tout - Visualiser dans une fenêtre à part
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