Compter le nombre d'occurences associées à un chiffre ou nombre

Fermé
popey003 Messages postés 5 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 18 février 2017 - 18 févr. 2017 à 12:58
popey003 Messages postés 5 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 18 février 2017 - 18 févr. 2017 à 15:44
Bonjour,
j'ai un tableau en $AS:$AW avec étiquette ABCDE dans lequel j'aimerais compter pour chaque numéro de 1 à 20 :
le nombre de fois que chaque numéro est associé avec le 1, le 2, le 3, le 4 etc... jusqu'à 20 par ligne/

exemple
A B C D E
18 16 6 13 3
12 9 3 11 15
1 4 3 11 12
1 8 13 2 12
4 1 13 12 7
13 1 4 2 16
12 4 15 10 7
1 8 13 12 10
18 12 10 8 3
10 13 4 3 5
3 1 4 7 6
12 13 16 9 6

pour le numéro 1 :
réponse : 1/0 2/2 3/2 4/4 5/0 etc ...
peut-être exite-t-il simplement une formule mais j'avoue que je coince!
Merci d'avance!



A voir également:

2 réponses

yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
18 févr. 2017 à 14:02
bonjour, je pense que le plus simple est de faire un petit programme VBA qui fait cela.
0
popey003 Messages postés 5 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 18 février 2017
18 févr. 2017 à 14:54
Bonjour yg_be

Je suis amateur de VBA mais je sèche un peu j'avoue car ç'est un peu complexe pour l'exprimer...
0
yg_be Messages postés 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477 > popey003 Messages postés 5 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 18 février 2017
18 févr. 2017 à 15:10
je te propose ceci pour commencer:
Option Explicit

Sub popey()
Dim compte(1 To 20, 1 To 20) As Long
Dim fl As Worksheet
Dim lig As Long
Dim i As Integer, j As Integer

Set fl = ThisWorkbook.Sheets("une")
lig = 2
Do While fl.Cells(lig, 1) <> ""
    For i = 1 To 5
        For j = i + 1 To 5
            compte(fl.Cells(lig, i), Cells(lig, j)) = compte(fl.Cells(lig, i), Cells(lig, j)) + 1
            compte(fl.Cells(lig, j), Cells(lig, i)) = compte(fl.Cells(lig, i), Cells(lig, j))
        Next j
    Next i
    lig = lig + 1
Loop 'Do While fl.Cells(lig, 1) <> ""
End Sub

cela commence en B2, pas en AS2.
il n'y a pas de vérification que les cellules contiennent des nombres entiers entre 1 et 20.
ni de présentation du résultat, il est simplement dans le tableau "compte".
0
popey003 Messages postés 5 Date d'inscription mardi 28 juillet 2015 Statut Membre Dernière intervention 18 février 2017
18 févr. 2017 à 15:44
Merci pour votre attention, néanmoins, c'est trop compliqué pour moi...
Pour ma part, il me faudrait une présentation d'un résultat correspondant au tableau figurant en AS:AW.
Désolé je suis nul !
0