Recherche doublon par paire

[vincent115]

Bonjour
J'ai un fichier pour concours de boules qui me convient s'il n'y avait un problème de doublon de rencontres entre les parties. Voir dans mon classeur le problème entre partie 1 et partie 2.

La base de la première partie repose sur un tirage aléatoire, le tirage de la deuxième et troisième partie découle du tableau croisé dynamique en fonction des points.
Or il y a doublon quand le TCD me propose la même rencontre entre 2 parties.
Pour cela, je désirerais, si possible :
- une macro qui me décalerait d'un nom sur le deuxième joueur par inversion
- ou encore me mettre en couleur les doublons pour que j'essaye de les corriger manuellement.

J'ai beaucoup cherché sur le site à ce sujet, mais je comprends à peine le VBA et je n'ai trouvé rien qui peut être utiliser avec deux feuilles.

 

[Gurgeh]

Re : Recherche doublon par paire

Salut vincent115,

Un début de réponse, en tout cas une piste pour aller plus loin... Voir le fichier joint.

En colonne A, j'ai mis une formule qui regarde quel était l'adversaire de la personne en colonne C pour la partie 1. Exemple, l'adversaire de Agnès (ligne 8) était Céline Nyons.

Et ensuite je fais une mise en forme conditionnelle qui regarde si l'adversaire de la personne en colonne C pour la partie 2 est le même que celui de la partie 1.

La formule de la colonne A est un peu compliquée car :
1 - je n'ai pas réfléchi à comment l'optimiser
2 - la mise en forme de ta feuille Partie_1 oblige à regarder la colonne C puis la colonne I, ce qui fait une formule deux fois plus longue que ce que l'on pourrait faire

Je te laisse regarder ça, et me poser les éventuelles questions...

Gurgeh

 

[vincent115]

Re : Recherche doublon par paire

Bonjour Gurgeh
Tout d'abord merci pour t'intéresser à mon problème.

Je n'ai rien compris à ta formule, trop complexe pour moi et puis cela n'a pas affiché de différence.

Mais la réflexion de ta proposition me fait penser que dans les tableaux, les colonnes P sont le reflet des tableaux en une seule colonne, d'où on peut peut être faire une macro qui recopierait les colonnes P des tableaux en collage spécial/valeurs en colonne AA et AB et là, il reste à confectionner la recherche de doublon et cela je ne sais pas faire.

Cordialement

 

[JNP]

Re : Recherche doublon par paire

Bonjour
Une proposition via des tableaux :

Sub Test()
Dim Tableau1(15) As String, Tableau2(15) As String
Dim I As Integer, J As Integer
With Sheets("Partie_1 (2)")
    For I = 0 To 7
        Tableau1(I) = Range("C" & I * 3 + 8) & Range("C" & I * 3 + 9)
        Tableau1(I + 8) = Range("I" & I * 3 + 8) & Range("I" & I * 3 + 9)
        Tableau2(I) = .Range("C" & I * 3 + 8) & .Range("C" & I * 3 + 9)
        Tableau2(I + 8) = .Range("I" & I * 3 + 8) & .Range("I" & I * 3 + 9)
    Next I
    For I = 0 To 15
        For J = 0 To 15
            If Tableau1(I) = Tableau2(J) Then
                If I < 8 Then
                    Range("C" & I * 3 + 8 & ":C" & I * 3 + 9).Interior.Color = 49407
                Else
                    Range("I" & I * 3 + 8 & ":I" & I * 3 + 9).Interior.Color = 49407
                End If
                If J < 8 Then
                    .Range("C" & J * 3 + 8 & ":C" & J * 3 + 9).Interior.Color = 49407
                Else
                    .Range("I" & J * 3 + 8 & ":I" & J * 3 + 9).Interior.Color = 49407
                End If
            End If
        Next J
    Next I
End With
End Sub

Bonne journée

 

[Gurgeh]

Re : Recherche doublon par paire

Je n'ai rien compris à ta formule, trop complexe pour moi et puis cela n'a pas affiché de différence.

Il y a quand même une différence notable, c'est que le jaune sur le match qu'il faut changer, c'est maintenant Excel qui le met tout seul...

Je regarde ton idée.

Gurgeh

 

[Monique]

Re : Recherche doublon par paire

Bonjour,

Par mise en forme conditionnelle
Partie 2 : formule à rallonge
Partie 1 : va chercher les résultats en feuille "Mefc"

 

[vincent115]

Re : Recherche doublon par paire

Re : JNP et Gurgeh

Merci JNP, j'ai essayé ta solution en créant la macro sur l'onglet de la partie 2 (qui est masqué) et cela marche super.
Depuis, je continue d'autres essais et je n'ai pas encore rencontré de doublons mais je vais continuer ... avant d'avoir ce problème en plein concours. En tout cas chapeau, c'est super !

J'espère que quelqu'un me trouvera l'autre solution pour remplacer automatiquement dans le doublon le deuxième adversaire par le suivant par inversion.

Bravo à vous tous
Cordialement

 

[vincent115]

Re : Recherche doublon par paire

Bonjour Monique
Je viens à l'instant de voir ta proposition.
Je vois qu'il y a de la recherche mais il y a un mais ...
- je ne vois comment mettre MEFC dans chaque feuille et où ?
- la formule en colonne R m'efface tout report de points
- je pense que c'est une macro de détection qu'il me faut car il y a un brouhaha dans un concours qui empêche des fois de se concentrer.
Merci de ta proposition

Cordialement

 

[Monique]

Re : Recherche doublon par paire

Re,

" - je ne vois comment mettre MEFC dans chaque feuille et où ?"
La mise en forme conditionnelle est déjà en place,
dans les cellules de noms, colonnes C et I des deux feuilles (Vert si doublons)
dans les colonnes P et Q des deux feuilles (Vert pour les doublons, jaune pour les lignes vides)

" - la formule en colonne R m'efface tout report de points"
La colonne R est effacée, on ne s'en sert plus.

Tu n'as plus le choix entre deux MEFC,
il n'y a dans le fichier que la mise en forme qui dépend de la plage "Doublons" de la dernière feuille.

 

[vincent115]

Re : Recherche doublon par paire

Bonjour Monique
Tes explications sont claires mais j'ai quand même mis du temps pour comprendre le processus.
J'ai encore un point noir dans ce fichier : dans la feuille Inscriptions, il y a les boutons Partie 1, Partie 2 et Partie 3.
Quand on clique sur ces boutons, la macro exécute Format/feuille/afficher, copie cette feuille dans un nouvelle feuille et ensuite remasque la feuille originale.
Je devine donc qu'il faut mettre la MEFC sur les feuilles originales, mais faut-il faire la MEFC cellule par cellule ou par une autre méthode.
Cordialement

 

[vincent115]

Re : Recherche doublon par paire

Re bonjour Monique
Dans mes essais, j'ai ajouté des noms dans Inscriptions (jusqu'à 32), copié et trié dans MEFC et là je ne comprends pas le contenu des colonnes B et D.
Cordialement

 

[Monique]

Re : Recherche doublon par paire

Bonjour,

Onglet "Mefc"
Colonne A : tous les joueurs
Colonne B : la position, en Partie 2, de l'adversaire de la personne qui est en colonne B
Colonne D : la position, en Partie 1, de l'adversaire de la personne qui est en colonne B

La position en question :
c'est la position de chaque joueur adverse, en partie 1 et 2, en colonne P
C'est un n° de ligne, un peu truqué pour avoir les mêmes n° (0 et 0) en lignes 1 et 2, puis les n° 2 et 2 en lignes 3 et 4, rien en ligne 5 et ça continue à partir de la ligne 6
Tu as la formule en colonne T des deux premières feuilles (elle ne sert à rien, c'est pour te montrer)
ENT(LIGNE()/2,5)

Cellules B2 et D2 de cette feuille : le nom des deux premières feuilles est mis par formule

Sinon, je n'avais même pas regardé les feuilles masquées.
C'est fait, elles ont, elles aussi, un format conditionnel.

Sinon bis, pour reproduire un format conditionnel,
tu copies les plages concernées,
puis collage spécial "Format"
C'est tout
Tu peux faire plus vite avec la commande en forme de pinceau

 

[vincent115]

Re : Recherche doublon par paire

Merci Monique
Je vais tester et je te tiens au courant
Vincent

 

[vincent115]

Re : Recherche doublon par paire

Bonjour Monique
Ta méthode est très très bien, seulement lorsque j'ai ajouté des noms, cela n'a pas été pris en compte dans MEFC alors que j'ai copié les formules.
Merci d'avance pour la peine que tu prends pour moi
JNP : Ta solution a bien fonctionné au début, mais quand j'ai installé sur mes feuilles de base, cela a foiré, mais merci quand même
Cordialement à tous

 

[vincent115]

Re : Recherche doublon par paire

Oups,
J'ai oublié la PJ