macro doublons suite suppression de mfc avec macro

[JBARBE]

Bonjour à tous,

Dans le fichier ci-joint, il y a une MFC pour les doublons !

Hors ma précédente macro supprime la MFC >>> range("A2:I6").Clearcontents !

Puis-je avoir une macro pour les doublons de la plage concernée !

Merci à l'avance !

 

[pierrejean]

Bonjour JBARBE

A tester:

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

 

[JBARBE]

Bonjour Pierrejean,

Content de te revoir parmi nous !
Super ça marche !
Bonne journée !

 

[Jacky67]

Bonjour à tous,

Dans le fichier ci-joint, il y a une MFC pour les doublons !

Hors ma précédente macro supprime la MFC >>> range("A2:I6").Clearcontents !

Puis-je avoir une macro pour les doublons de la plage concernée !

Merci à l'avance !

Bonjour,
>>> range("A2:I6").Clearcontents
Ne devrait PAS effacer la MFC

Sakutations.
JJ

 

[JBARBE]

Saut Jacky,

Regarde plus le fichier ci-joint !

Ps: attend le fichier n'est pas complet avec toutes les macros !

Bonne après-midi !

 

[JBARBE]

Bon, je ne peux envoyer tout le fichier confidentiel !

Néanmoins, je t'envoie les images :

Doublons1 >>> activation de la MFC
Doublons2 >>> présentation de la MFC
doublons3 >>> aprés activation de la macro avec MFC supprimée !

bonne journée !

 

[Jacky67]

Saut Jacky,

Regarde plus le fichier ci-joint !

Ps: attend le fichier n'est pas complet avec toutes les macros !

Bonne après-midi !

Re...
Bien oui, ce classeur démontre bien que les MFCs ne sont pas supprimer
Sauf à avoir dans un de tes codes
range("A2:I6").Clear

 

[JBARBE]

Re...
Bien oui, ce classeur démontre bien que les MFCs ne sont pas supprimer
Sauf à avoir dans un de tes codes
range("A2:I6").Clear

Il y a 4 macros identiques avec Clearcontents !

Et bon voilà le fichier ( pas si confidentiel que cela mais compliqué !)

Dans la feuille Meilleurs_En_8 ,La MFC est opérationnelle de B2 à I6 !

Clique sur le bouton GO et tu verras !

 

[Jacky67]

Il y a 4 macros identiques avec Clearcontents !

Et bon voilà le fichier ( pas si confidentiel que cela mais compliqué !)

Dans la feuille Meilleurs_En_8 ,La MFC est opérationnelle de B2 à I6 !

Clique sur le bouton GO et tu verras !

Re...
Certes...
Cela est dû à l'utilisation dans tes codes de la fonction 'copy' (par exemple)

 .Cells(i, 1).Copy Sheets("Meilleurs_En_8").Cells(j, 1)

Si tu remplaces par

.Cells(i, 1).Copy
Sheets("Meilleurs_En_8").Cells(j, 1).PasteSpecial Paste:=xlPasteValues

ou par

Sheets("Meilleurs_En_8").Cells(j, 1) = .Cells(i, 1)

Tu n'as plus ce problème

A toi de voir
JJ

 

[JBARBE]

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") = ""

Bonne soirée !

 

[JBARBE]

Bonjour à tous,

J'ai ajouté une ligne supplémentaire à ma macro !

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 !