Discussion :

[linooo]

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

[linooo]

Bonjour,

J'ai essayé une autre solution qui ne marche pas non plus... :s

Merci dAvance pour celui qui pourra m'aider.

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
 
Dim i As Integer
Dim j As Integer
 
i = 0
j = 0
 
Do While (i < 77)
i = i + 1
    Do While (j < 23106)
    j = j + 1
    If Range("B" & i).Value = Range("A" & j).Value Then
    Range("B" & i).Font.Color = vbBlue
    End If
    Loop
 
Loop
 
End Sub

[fred65200]

bonsoir linooo,
essaie ça

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
 
Sub essai()
Dim i As Integer
Dim j As Integer
Dim Rouge As Byte
Dim Vert As Byte
Dim Bleu As Byte
 
Application.ScreenUpdating = False  
 
Rouge = 0
Vert = 255
Bleu = 0
 
For i = 1 To 76
  For j = 1 To 23105
    If Range("B" & i)= Range("A" & j) Then _
      Range("B" & i).Font.Color = RGB(Rouge, Vert, Bleu)
  Next j
Next i
 
Application.ScreenUpdating = True
End Sub

ou réinitialise ta variable j entre les deux "wend". Sinon j reste égal à 23106 dans les autres boucles.

Code :

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

1
2
3
4
 
    Wend
  j = 1
Wend

Tu n'as pas besoin de sélectionner ta cellule pour lui appliquer un format, encore moins de faire une boucle sur une seule cellule.
Regarde le code avec les deux boucles imbriquées.
cordialement
fred65200

[alsimbad]

salut linoo
tu peux esayer ça aussi, je pense que ce sera beaucoup plus rapide que deux boucles imbriquées

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub rouge()
For Each cel In Sheets(1).Range("b1:b" & Range("b1").End(xlDown).Row)
With Sheets(1).Range("a1:a20")
Set c = .Find(cel.Value, LookIn:=xlValues)
If Not c Is Nothing Then cel.Interior.ColorIndex = 3
End With
Next cel
End Sub

[linooo]

Hello,

Merci beaucoup à tous les deux de votre aide !
Cela m'a beaucoup aidé.

A bientôt

Lino