Sub test()
For Each cel In Range("B2:I6")
If WorksheetFunction.CountIf(Range("B2:I6"), cel.Value) > 1 Then
cel.Interior.ColorIndex = 4
Else
cel.Interior.ColorIndex = xlNone
End If
Next
End Sub
J'aurais bien voulu que tu me fasses le nécessaire sur cette feuille Meilleurs_En_8 !
Quoi qu'il en soit, je n'utiliserais plus la MFC car j'aurais besoin de la macro Doublons pour copier le résultat de la course avec les couleurs correspondantes des bons N° de la feuille PRESSES !
Voici l'exemple de rajout à toutes les macros recherche_En_8 & recherche_En_5 & recherche_En_4 & recherche_En_3
vReponse = MsgBox("Voulez-vous copier le résultat en couleur " & Chr(10) & "de l'arrivée dans les feuilles Meilleurs", vbYesNo + vbInformation, "ATTENTION")
If vReponse = vbYes Then
If Range("Repere1") = 0 Then
MsgBox " Vous ne pouvez copier en couleur" & Chr(10) & "la saisie de l'arrivée n'a pas été effectuée"
Exit Sub
End If
Range("Repere") = "X"
Else
Range("Repere") = ""
Call Effacer_Couleurs1
Sheets("Meilleurs_En_8").Select
End If
Et en bas des macros :
If Range("Repere") = "" Then
Call Doublons
End If
Range("Repere") = ""
Voici le résultat définitif et la préparation de la course PMU - Quinté Vendredi 19/08/16 à Cabourg !
Certes on ne gagne pas à tout les coups avec mes statistiques mais si l'on regarde bien le fichier et la feuille Gains des pronostiqueurs en jouant 1€ pour le tiercé et 1,30€ pour le quarté l'on s’aperçoit que certains on gagné de l'argent en jouant les 3 premiers ( tiercé) et 4 premiers (quinté ) selon le nombre de paris ( courses) pour des pronostiques en 8 chevaux !