Bonjour,
J'ai un petit souci,

J'ai créé une macro qui est sensée colorer en vert le texte des cellules d'une colonne B qui sont similaires aux cellules de la colonne A.
Il y a 23000 lignes dans la colonne A, et 76 dans la colonne B.

Lorsque j'exécute ma macro, cela ne fonctionne pas... :s Aucun texte n'est coloré
Quelqu'un aurait-il une idée?

Voici mon code :

Merci d'Avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim i As Integer
Dim j As Integer
Dim Rouge As Byte
Dim Vert As Byte
Dim Bleu As Byte
 
Rouge = 0
Vert = 255
Bleu = 0
 
i = 1
j = 1
 
While i < 77
 
    i = i + 1
 
    While j < 23106
    j = j + 1
    If Range("B" & i).Value = Range("A" & j).Value Then Range("B" & i).Select
    For Each Cel In Selection: Cel.Font.Color = RGB(Rouge, Vert, Bleu)
    Next
    Wend
Wend
 
 
 
End Sub