S
sonskriverez
Guest
Bonjour le forum
J'utilise le code suivant pour marqué en bleu la même cellule trouvée dans 2 feuilles différentes.
Le pbl est que j'ai une sortie de boucle 'Exit For' dés que la condition est atteinte. Je voudrais pouvoir continuer le test de 'cellule1' jusqu'a la fin de le feuille 'Sheet1' car il est possible que cellule1 = plusieurs cellule2
Sub Trouve()
Application.ScreenUpdating = False
Dim Cellule1, Cellule2, fin As Range
For Each Cellule1 In Worksheets('sheet1').Range('K2:K' &_ Range('K65536').End(xlUp).Row)
For Each Cellule2 In Worksheets('sheet2').Range('B25:B' &_ Range('B65536').End(xlUp).Row)
If Cellule1 = Cellule2 Then
Worksheets('sheet1').Activate ' active la feuille B
Cellule1.Font.Color = vbBlue ' si trouvé bleu
Worksheets('sheet2').Activate
Cellule2.Font.Color = vbBlue
Exit For
End If
Next Cellule2
Worksheets('sheet1').Activate
Next Cellule1
end sub
Merci de votre aide
J'utilise le code suivant pour marqué en bleu la même cellule trouvée dans 2 feuilles différentes.
Le pbl est que j'ai une sortie de boucle 'Exit For' dés que la condition est atteinte. Je voudrais pouvoir continuer le test de 'cellule1' jusqu'a la fin de le feuille 'Sheet1' car il est possible que cellule1 = plusieurs cellule2
Sub Trouve()
Application.ScreenUpdating = False
Dim Cellule1, Cellule2, fin As Range
For Each Cellule1 In Worksheets('sheet1').Range('K2:K' &_ Range('K65536').End(xlUp).Row)
For Each Cellule2 In Worksheets('sheet2').Range('B25:B' &_ Range('B65536').End(xlUp).Row)
If Cellule1 = Cellule2 Then
Worksheets('sheet1').Activate ' active la feuille B
Cellule1.Font.Color = vbBlue ' si trouvé bleu
Worksheets('sheet2').Activate
Cellule2.Font.Color = vbBlue
Exit For
End If
Next Cellule2
Worksheets('sheet1').Activate
Next Cellule1
end sub
Merci de votre aide