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 ...!
Merci de votre aide
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
Partager