Décompte dans chaque colonne de 2 valeurs présentent dans chacune d'elles

bonjour,

je fais partie d'un groupe de joueurs de foot amateurs dans lequel les équipes tournent d'une rencontre à l'autre et je cherche à comptabiliser le nombre de fois que chaque joueur à jouer avec un autre.

dans le fichier joint, chaque colonne correspond à une rencontre, lignes 1 à 5 correspondant à l'équipe A et les lignes 8 à 12 l'équipe B.

A titre d'exemple, j'ai compté le nombre de fois où Alix était associé aux autres joueurs.

Si je suis très nul en VBA, mais je pense qu'il doit être possible de créer un code avec "for each column" pour comptabiliser cela.

Tout en sachant que la liste de nom est évolutive (nouveaux arrivants) Auriez vous la soluce à mon problème svp ?

Un grand merci

Bien cordialement

Berny

bonjour,

une proposition via une fonction personnalisée (si nouveau joueur, ajouter une ligne et une colonne au tableau des décomptes et y copier la formule)

Function compterpaire(tableau, joueur1, joueur2)
    For Each col In tableau.Columns
        For Each j1 In col.Cells
            For Each j2 In col.Cells
                If j1 = joueur1 And j2 = joueur2 Then ctr = ctr + 1
            Next j2
        Next j1
    Next col
    compterpaire = ctr
End Function

Excellente la formule matricielle, parfait, merci beaucoup

Bonne fin de journée