reperer valeur identique et mettre en couleur

[olivierlecaribou]

Bonjour a tous,

Je m'arrache les cheveux sur un probleme somme toute assez simple il me semble. Seulement ca fait des heures que j'essaie sans le resultat voulu.

dans range ('F9:k48') et range ('Q9:V38'), je souhaite reperer les cellules identiques a celles reprises dans le
range ('Q41 :V48') et les mettre en fond rouge ensuite donner le nom de vainqeur, celui qui remplira en premier sa ligne .
Voir le fichier ci joint

MERCIIIIII [file name=pers2.zip size=9552]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/pers2.zip[/file]

 

[ChTi160]

re
voilà ce que j'ai mis après test

Sub couleurs()
Dim cell As Range

For i = 9 To 48
compteJ = 0

Set MaZone = Range(Cells(i, 6), Cells(i, 11))

For Each cell In MaZone

If cell.Interior.ColorIndex = 6 Then compteJ = compteJ + 1

Next cell

Cells(i, 24) = compteJ

If compteJ = 6 Then MsgBox 'Le Gagant est :' & Cells(i, 3): Exit For

Next i

End Sub

j'ai simplifié Lol
le nom apparait dans un MsgBox

 

[olivierlecaribou]

Encore et Encore MERCI !


bonne fin de semaine en France