Discussion :

[boubo]

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

[Invité]

Bonjour,

Regardez jusqu'à quelle ligne va votre aire base1.

[Marc-L]

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, …

[patricktoulon]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[boubo]

Bonsoir,

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