Reperer des valeurs

Version imprimable

11/08/2014, 13h14
pilou10

Reperer des valeurs

bonjour a tous et merci pour vos aides

ma demande est la suivante

dans la colonne q6 à q19 j'ai ces valeurs

2,5,5,5,8,2,9,2,2,1,5,8,5,5

et je voudrai déterminé à l'aide d'une formule même matriciel dans d'autre cellule
la fréquence des valeurs qui apparait le plus souvent en ordre croissant c'est a dire
5,2,8,9,1 pour le nombre de fois je sais que la formule est avec nb.si()

merci d'avance et bonne journée a vous
11/08/2014, 14h38
mercatog

Un petit TCD trié
11/08/2014, 14h53
Mr Poulpe

Bonjour,

Essaie ça :
{=INDEX(A1:A5;EQUIV(MAX(NB.SI(A1:A5;A1:A5));NB.SI(A1:A5;A1:A5);0);1)}
A valider en formule matricielle (CTRL + SHIFT + ENTREE), remplace le A1:A5 par la plage de valeurs en question,

Cordialement,

Mr Poulpe

Bonjour le fil, bonjour le forum,

Une proposition VBA (comme ça t'auras la totale...) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Macro1() 'avec l'aide trouvée sur le site de Jacques BOISGONTIER : http://boisgontierjacques.free.fr/pages_site/Dictionnaire.htm#Compter
Dim O As Object 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim TMP1 As Variant 'déclare la variable TMP1 (tableau TeMPoraire 1)
Dim TMP2 As Variant 'déclare la variable TMP2 (tableau TeMPoraire 2)
Dim VT1 As Integer 'déclare la variable VT1 (Valeur Temporaire 1)
Dim VT2 As Integer 'déclare la variable VT2 (Valeur Temporaire 2)
 
Set O = Sheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("Q6:Q19") 'définit la plage PL
Set D = CreateObject("Scripting.Dictionary") 'définit la dictionnaire D
For Each CEL In PL 'boucle sur toutes les cellules CEl de la plage PL
    D(CEL.Value) = D(CEL.Value) + 1 'alimente le dictionnaire
Next CEL 'prochaine cellule de la boucle
TMP1 = D.KEYS 'récupère les valeur uniques du dictionnaire (sans doublon) dans le tableau temporaire TMP1
TMP2 = D.ITEMS 'récupère le nombre de chaque valeur unique dans le tableau temporaire TMP2
'tri décroissant
For I = 0 To UBound(TMP2) 'boucle 1 sur toutes les valeurs du tableau TMP2
    For J = 0 To UBound(TMP2) 'boucle 1 sur toutes les valeurs du tableau TMP2
        If TMP2(I) > TMP2(J) Then 'condition : si la valeur de la boucle 1 est supérieure à la valeur de la boucle 2
            VT2 = TMP2(I): TMP2(I) = TMP2(J): TMP2(J) = VT2 'rétrograde la position de la valeur inférieure dans le tableau TMP2
            VT1 = TMP1(I): TMP1(I) = TMP1(J): TMP1(J) = VT1 'rétrograde la position de la valeur associée dans le tableau TMP1
        End If 'fin de la condition
    Next J 'prochaine valeur de la boucle 2
Next I 'prochaine valeur de la boucle 1
O.Range("S6").Resize(D.Count, 1) = Application.Transpose(TMP1) 'renvoie la liste dans l'ordre dans la cellule S6
End Sub

11/08/2014, 17h13
pilou10

1 pièce(s) jointe(s)

merci a tout le monde je vais essaye tous ça!!

Citation:

Envoyé par Mr Poulpe

Bonjour,

Essaie ça :
{=INDEX(A1:A5;EQUIV(MAX(NB.SI(A1:A5;A1:A5));NB.SI(A1:A5;A1:A5);0);1)}
A valider en formule matricielle (CTRL + SHIFT + ENTREE), remplace le A1:A5 par la plage de valeurs en question,

Cordialement,

Mr Poulpe

ta formule ne fonctionne pas il me sort que les un!

j'aimerai évité du code VBA

voila ce que je desire obtenir
Pièce jointe 153435
11/08/2014, 17h40
Thautheme

Bonjour le fil, bonjour le forum,

En remplaçant S6 par Q21 dans la ligne 28, c'est exactement ce que donne le code proposé... Mais si tu n'en veux pas, qu'y puis-je ?
11/08/2014, 19h06
pilou10

merci thautheme c'est vrai ça fonctionne et est-ce-que je peut metre ton code en tant que fonction pour m'en servir en formule?
parce que j'aimerai que sa ce fasse en temp réel sans que je click sur un bouton pour mettre a jour la feuille c'est peut être trop te demander
merci encore a+

Bonsoir le fil, bonsoir le forum,

Haaa Pilou ! Je me suis cassé les dents sur la fonction. J'arrive bien à afficher la liste des valeurs mais je ne sais comment la renvoyer sur plusieurs lignes... Je n'obtiens que la première valeur la plus utilisée... D'ailleurs, si les éminences de ce forum ont une solution (avec mon code) pour le transformer en Fonction je suis preneur...

En désespoir de cause je te propose une autre solution avec les deux événementielles Change et Double-Clic ci-dessous. Tu les copies dans le composant VBA de l'onglet concerné (Feuil1(Feuil1) par exemple). Ensuite tu sélectionnes la plage de travail et tu double-cliques sur la première cellule qui va contenir le résultat. Par exemple tu sélection Q6:Q19 et tu double-cliques sur Q21...
Le code (en trois partie) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
Private PL As Range 'déclare la variable PL (PLage)
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'si le nombre de cellules sélectionnées est supérieur à 1, définit la plage PL
If Target.Cells.Count > 1 Then Set PL = Selection
End Sub
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim D As Object 'déclare la variable D (Dictionnaire)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim TMP1 As Variant 'déclare la variable TMP1 (tableau TeMPoraire 1)
Dim TMP2 As Variant 'déclare la variable TMP2 (tableau TeMPoraire 2)
Dim VT1 As Integer 'déclare la variable VT1 (Valeur Temporaire 1)
Dim VT2 As Integer 'déclare la variable VT2 (Valeur Temporaire 2)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)
 
If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure
Cancel = True 'annuole le mode [Édition] lié au double-clic
Set D = CreateObject("Scripting.Dictionary") 'définit la dictionnaire D
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    D(CEL.Value) = D(CEL.Value) + 1 'alimente le dictionnaire
Next CEL 'prochaine cellule de la boucle
TMP1 = D.KEYS 'récupère les valeur uniques du dictionnaire (sans doublon) dans le tableau temporaire TMP1
TMP2 = D.ITEMS 'récupère le nombre de chaque valeur unique dans le tableau temporaire TMP2
'tri décroissant
For I = 0 To UBound(TMP2) 'boucle 1 sur toutes les valeurs du tableau TMP2
    For J = 0 To UBound(TMP2) 'boucle 1 sur toutes les valeurs du tableau TMP2
        If TMP2(I) > TMP2(J) Then 'condition : si la valeur de la boucle 1 est supérieure à la valeur de la boucle 2
            VT2 = TMP2(I): TMP2(I) = TMP2(J): TMP2(J) = VT2 'rétrograde la position de la valeur inférieure dans le tableau TMP2
            VT1 = TMP1(I): TMP1(I) = TMP1(J): TMP1(J) = VT1 'rétrograde la position de la valeur associée dans le tableau TMP1
        End If 'fin de la condition
    Next J 'prochaine valeur de la boucle 2
Next I 'prochaine valeur de la boucle 1
Target.Resize(D.Count, 1) = Application.Transpose(TMP1) 'renvoie la liste dans l'ordre dans la cellule double-cliquée
End Sub

Désolé de ne pas avoir pu te donner satisfaction...

12/08/2014, 06h44
pilou10

thautheme
ce n'est pas grave va je vais adopter ta macro c'est sympas de ta part
je suis quand même satisfait du résulta bonne programmation et a bientot