Compter le nombre d'occurences associées à un chiffre ou nombre
popey003
Messages postés
5
Statut
Membre
-
popey003 Messages postés 5 Statut Membre -
popey003 Messages postés 5 Statut Membre -
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!
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:
- Compter le nombre d'occurences associées à un chiffre ou nombre
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Clavier iphone chiffre et lettre - Guide
- Excel trier par ordre croissant chiffre - Guide
- Afficher le 0 devant un nombre dans excel - Guide
2 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
bonjour, je pense que le plus simple est de faire un petit programme VBA qui fait cela.
Je suis amateur de VBA mais je sèche un peu j'avoue car ç'est un peu complexe pour l'exprimer...
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 Subcela 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".