Trouver l'index colonne du min dans une variable tableau

Version imprimable

Voir 40 message(s) de cette discussion en une page

re
je n'ai pas reussi a retranscrire sur le shhets l'object sortedlist avec range resize

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim T, AL As Object, i
  v = Array(3, 5, 3, 1, 2, 5)
  T = Array("toto", "henry", "paul", "anna", "serge", "cedric")
 
Set AL = CreateObject("System.Collections.Sortedlist")
  For i = LBound(T) To UBound(T)
    If Not AL.contains(T(i)) Then AL.Add T(i), v(i)
  Next i
 Range("A1").Resize(1, AL.Count) = AL'il manque des arguments ici keys et items ne fonctionne pas
 
End Sub

Teste comme cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub test() Dim T, T2, AL As Object, i v = Array(3, 5, 3, 1, 2, 5) T = Array("toto", "henry", "paul", "anna", "serge", "cedric") Set AL = CreateObject("System.Collections.Sortedlist") For i = LBound(T) To UBound(T) If Not AL.contains(T(i)) Then AL.Add T(i), v(i) Next i ReDim T2(0 To AL.Count, 1 To 2) For i = 0 To AL.Count - 1 T2(i, 1) = AL.GetKey(i) T2(i, 2) = AL.GetByIndex(i) Next Range("A1").Resize(UBound(T2), 2) = T2 End Sub
Une question : je vois que les 2 Arrays comportent des doublons dans cet exemple : est-ce le cas dans la réalité ou non (je pensais que la ligne des étiquettes ou "clé" n'avait pas de doublon puisque correspondant aux numéros de colonne) ?
A+

16/10/2015, 21h26
patricktoulon

re

re
et oui une 2 eme boucle pour remplir un tableau

un range resize sur AL n'est pas possible comme un dictionnaire avec dico.keys ou items???

je pense que non je n'ai trouvé aucun exemple sans boucle sur Al.count

Re,

Je rentre du boulot, j'ai pas tout suivi.
Dans ton cas, on peut gérer les doublons dans Sortedlist en utilisant un subterfuge :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Index_Colonne()
Dim i As Long, tablo1, tablo2()
    tablo1 = Array(30, 12, 49, 56, 12, 89, 53)
    With CreateObject("System.Collections.Sortedlist")
        For i = 0 To UBound(tablo1)
            tablo1(i) = tablo1(i) & Format(i, "000")
            If Not .Contains(tablo1(i)) Then .Add tablo1(i), i
        Next
        ReDim tablo2(1 To .Count, 1 To 2)
        For i = 0 To .Count - 1
            tablo2(i + 1, 1) = Left(.GetKey(i), Len(.GetKey(i)) - 3) 'les clés
            tablo2(i + 1, 2) = .GetByIndex(i) 'les valeurs
        Next
    End With
    Sheets("Feuil1").Cells(1).Resize(UBound(tablo2, 1), 2).Value = tablo2
End Sub

sinon vois ceci :
http://plasserre.developpez.com/cour...ge=langage-vb3
klin89

16/10/2015, 23h47
patricktoulon

re

re

les deux derniers exemples sont parfaitement fonctionnels mais il y a toujour cette 2 eme boucle qui me gene

on peut vraiment pas le faire avec un transpose sur le sheets?????
17/10/2015, 00h02
patricktoulon

re

je crois que j'ai un autre subterfuge

pour quoi ne pas add (t(i),v(i)),v(i)

esxemple j'ai ligne 2 35 et en ligne 1 5 on met 35,5 dans la cle et la valeur 5

on peut le faire car la ligne du dessus va de 1 a autant de colonne que la ligne du dessous mais dans le desordre il n'y a pas de doublon dans la ligne 1 ca c'est sur

donc si j'ai dans ma ligne 2 35 , 25 , 61 , 35
et en ligne 1 j'ai 3 5 2 4

dans ma sortedlist j'aurais 25,5 35,3 35,4 61,2
5 3 4 2

donc les deux 35 ne sont plus des doublons
une petite operationd avec "round"

mais reste le probleme du range resize avec transpose cart la 2 eme boucle est rédibitoire pour moi ca va a l'encontre de cette exercice
17/10/2015, 10h25
Invité

Salut,

Citation:

quand au fait que ces objects ont été deja cités dans des discutions c'est tellement enfoui dans les post que meme quand je tape

1° "System.Collections.Sortedlist

2°"System.Collections.arraylist

3°"System.Collections.stack

4"System.Collections.Queue

et bien Google ne me propose meme pas une page de DVP

Un exemple ici de l'utilisation d'un ArrayList au travers de l'interface IComparer : Utilisation de l'interface IComparer

Bonjour à tous

Je me suis perdu dans toutes les différentes questions/réponses, je ne sais plus trop où l'on en est dans la demande. Je me permets de faire une proposition si Patrick autorise la création d'un tableau provisoire. Désolé si je suis à côté de la plaque.

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
38
39
40
'Option Explicit
Sub tri_tableau_par_index_00()    '  demande Patricktoulon
Dim a As Integer, i As Integer, N As Integer
Dim mavar As Integer, Var As Integer, maplage As Range
Dim montab As Variant
Dim tablo2   ' tableau provisoire
Dim tablo3() ' montab trie
 
' récupération des valeurs dans le tableau
' 7,3,2,6,5,1,4,8
' 45,37,49,21,85,49,51,24
montab = Range("B21:I22").Value
 
' tableau provisoire
tablo2 = Array(45, 37, 49, 21, 85, 49, 51, 24)
' ou
'tablo2 = Array(Range("B22"), Range("C22"), Range("D22"), Range("E22"), Range("F22"), Range("G22"), Range("H22"), Range("I22"))
' ou .....
 
N = UBound(tablo2)
ReDim Preserve tablo3(2, N)
 
For i = 0 To N
    ' ces 2 lignes sont pour vérifier ces 2 variables en pas à pas
    mavar = Application.WorksheetFunction.Large(tablo2, i + 1)
    Var = Application.Match(Application.WorksheetFunction.Large(tablo2, i + 1), tablo2, 0) - 1
 
    tablo3(0, N - a) = montab(1, Var + 1)
    tablo3(1, N - a) = montab(2, Var + 1)
    tablo2(Var) = mavar + 1
    a = a + 1
Next
 
' pour vérifier le résultat
'  6   8   3   7   1   2   4   5
' 21  24  37  45  49  49  51  85
Set maplage = Range("B25:I26")
maplage.Value = tablo3()
 
End Sub

Cordialement
Eric

17/10/2015, 19h19
Marc-L

Citation:

Envoyé par patricktoulon

mais sur une variable tableau car ma source est issue d'une table html est n'est donc pas dans un sheets

Mon p'tit Patrick,

pour obtenir une variable tableau de l'ordre de chaque valeur d'une variable tableau unidimensionnelle classée dans un ordre croissant,
je confirme la résolution sans boucle et en quatre lignes de code (pour plus de clarté sinon trois sont suffisantes !) en me référant
au grand Jacques Boisgontier !

Si c'est toujours d'actualité, je me ferais un plaisir de le démontrer …

_____________________________________________________________________________________________________
La connaissance, c'est comme la confiture, moins on en a plus on l'étale !

Bonjour edelweisseric et MarcL

oui la question reste d'actualité meme si résolu

donc oui sans aller voir le grand jacques le maitre inconstestable en la matiere
la solution en 3 lignes pour classer un array par ordre croissant ou decroissant en mettant non pas la valeur mais leur index
la solution en 3 lignes pour classer un array par ordre croissant ou decroissant en mettant la valeur

solution retenu pour leur simplicité

'trier un array numerique dans l'ordre décroissant
Code:

1 2 3 4 5 6 7 8 9 Sub tri3() Dim tablo(), temp() tablo = Array(45, 37, 49, 21, 85, 49, 51, 24) ReDim temp(LBound(tablo) To UBound(tablo)) For i = 0 To UBound(tablo) temp(i) = Application.WorksheetFunction.Large(tablo, i + 1) Next Debug.Print Join(temp) End Sub
'trier un array numerique dans l'ordre croissant
Code:

1 2 3 4 5 6 7 8 9 Sub tri4() Dim tablo(), temp() tablo = Array(45, 37, 49, 21, 85, 49, 51, 24) ReDim temp(LBound(tablo) To UBound(tablo)) For i = 0 To UBound(tablo) temp(i) = Application.WorksheetFunction.Small(tablo, i + 1) Next Debug.Print Join(temp) End Sub
'trier un array numerique dans l'ordre croissant en transcrivant dans un tablo leur index
Code:

1 2 3 4 5 6 7 8 9 10 Sub tri4bis() Dim tablo(), temp() tablo = Array(45, 37, 49, 21, 85, 49, 51, 24) ReDim temp(LBound(tablo) To UBound(tablo)) For i = LBound(tablo) To UBound(tablo) temp(i) = Application.Match(Application.Min(tablo), tablo, 0) - 1 tablo(temp(i)) = "" Next Debug.Print "Temp: " & Join(temp) End Sub
'Trier un array (numerique ou string)dans l'ordre croissant en gardant les doublons avec "System.Collections.ArrayList"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub TriArrayList() Dim T, AL As Object, c, i& ' T = Array(3, 5, 3, 1, 2, 5, 4, 8, 9, 1) 'ou T = Array("toto", "henry", "paul", "anna", "serge", "cedric") Set AL = CreateObject("System.Collections.ArrayList") For i = LBound(T) To UBound(T) AL.Add T(i) Next i AL.Sort 'on trie Debug.Print Join(AL.toarray()) Range("A1").Resize(1, AL.Count) = (AL.toarray()) Set AL = Nothing End Sub
mais ensuite l'exercice c'est porté sur le tri d'une variables tableau a 2 lignes sur X colonne
pour ce point je n'ai pas encore retenu de proposition j'analyse encore

edelweisseric je vais examiner ta proposition mais deja on est bon dans le sens ou on a 1 seule boucle
bon les deux variable pas a pas en ce qui me concerne je n'en ai pas besoins ce genre de manip je metrise ca peut aller on pourra donc reduire le code

MarcL ai je répondu a ta question?

je dois quand meme ajouter que ma version préférée c'est la 2 eme version de Mercatog (bien tordue comme je les aimes);)
ca n'enleve rien a la participation des autres c'est juste mon caractere fouineur qui parle
un petit exemple de simplification sur les précèdents cités
je ne redim meme pas temp=tablo et c'est tout
Code:

1 2 3 4 5 6 7 8 Sub tri3() Dim tablo(), temp tablo = Array(45, 37, 49, 21, 85, 49, 51, 24): temp = tablo For i = 0 To UBound(tablo) temp(i) = Application.WorksheetFunction.Large(tablo, i + 1) Next Debug.Print Join(temp) End Sub
;)

Pour une digestion allégée, décomposons en p'tites étapes …

Partons d'une matrice dont le premier indice est le 1 en conservant une boucle :
Code:

1 2 3 4 5 6 7 8 Sub Demo000() TS = [{30,12,49,56,37,89,53}] TR = Evaluate("TRANSPOSE(SMALL({" & Join(TS, ",") & "},ROW(1:" & UBound(TS) & ")))") For N& = 1 To UBound(TS) TR(N) = Application.Match(TR(N), TS, 0) Next Debug.Print Join(TR) End Sub
La ligne n°2 est l'écriture d'une matrice dans Excel entre accolades.
Elle est encadrée par des crochets, c'est la notation courte de la puissante fonction VBA Evaluate.
On retrouve cette fonction en ligne suivante et on peut en déduire qu'elle est matricielle !
La fonction PETITE.VALEUR (SMALL dans la version native d'Excel) effectue un tri croissant …

A partir de la même matrice mais sans boucle :
Code:

1 2 3 4 5 6 7 Sub Demo00() TS = [{30,12,49,56,37,89,53}] S$ = "{" & Join$(TS, ",") & "}" R$ = Join$(Evaluate("TRANSPOSE(SMALL(" & S & ",ROW(1:" & UBound(TS) & ")))"), ",") TR = Evaluate("TRANSPOSE(TRANSPOSE(MATCH({" & R & "}," & S & ",0)))") Debug.Print Join(TR) End Sub
Avec une matrice dont le premier indice est le 0 :
Code:

1 2 3 4 5 6 7 Sub Demo0() TS = Array(30, 12, 49, 56, 37, 89, 53) S$ = "{" & Join$(TS, ",") & "}" R$ = Join$(Evaluate("TRANSPOSE(SMALL(" & S & ",ROW(1:" & UBound(TS) + 1 & ")))"), ",") TR = Evaluate("TRANSPOSE(TRANSPOSE(MATCH({" & R & "}," & S & ",0)-1))") Debug.Print Join(TR) End Sub
Déduisons donc une fonction pour ces deux types de matrice (0 ou 1)
et avec un tri croissant ou décroissant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function Indices(VT, Optional DECR As Boolean) L% = LBound(VT) = 0 S$ = "{" & Join$(VT, ",") & "}" R$ = Join$(Evaluate("TRANSPOSE(" & IIf(DECR, "LARGE", "SMALL") & "(" & S & ",ROW(1:" & UBound(VT) - L & ")))"), ",") Indices = Evaluate("TRANSPOSE(TRANSPOSE(MATCH({" & R & "}," & S & ",0)+" & L & "))") End Function Sub Demo1() TS = Array(30, 12, 49, 56, 37, 89, 53) Debug.Print vbLf & Join(Indices(TS)) Debug.Print Join(Indices(TS, True)) Debug.Print Join(Indices([{30,12,49,56,37,89,53}])) End Sub
On peut aussi en déduire une fonction pour juste trier la matrice d'origine :
Code:

1 2 3 4 5 6 7 8 9 Function TriMat(VT, Optional DECR As Boolean) TriMat = Evaluate("TRANSPOSE(" & IIf(DECR, "LARGE", "SMALL") & "({" & Join(VT, ",") & "},ROW(1:" & UBound(VT) - (LBound(VT) = 0) & ")))") End Function Sub tri3R() tablo = Array(45, 37, 49, 21, 85, 49, 51, 24) tempR = TriMat(tablo, True) Debug.Print Join(tempR) End Sub
Comme le premier indice d'une colonne ou d'une ligne dans Excel est le 1,
la matrice résultat a aussi son premier indice à 1 même si celle source commence à 0.

Pour retourner une matrice commençant à 0, conserver une boucle :
Code:

1 2 3 4 5 6 7 8 Sub tri3() tablo = Array(45, 37, 49, 21, 85, 49, 51, 24) tempR = tablo For i = 0 To UBound(tempR) tempR(i) = Application.Large(tablo, i + 1) Next Debug.Print Join(tempR) End Sub
_____________________________________________________________________________________________________
Pour apprendre quelque chose aux gens, il faut mélanger ce qu’ils connaissent avec ce qu’ils ignorent. (Pablo Picasso)

18/10/2015, 11h09
patricktoulon

re

Bonjour MarcL

j'ai envie de te dire " C EST MAINTENANT QUE T ARRIVE TOI !!!!!!!!!!" :ptdr::ptdr::ptdr:

j'ai pas les mots la :calim2:

respect monsieur
18/10/2015, 11h23
Marc-L

Bonjour et merci Patrick !

Désolé mais j'étais un peu occupé dans la semaine et étant comme toi plus un développeur VBA Excel,

il me faut être au calme et un peu de temps pour développer en Excel VBA ! :ptdr:

_____________________________________________________________________________________________________
C’est ce que nous pensons déjà connaître qui nous empêche souvent d’apprendre. (Claude Bernard)
18/10/2015, 11h35
patricktoulon

re

re
disons que toi tu t'es penché beaucoup plus tot que moi sur ces fonctions
je suis reté longtemps avec mes reflexes VB,VBS in HTA

donc si je comprends bien tu inject l'array en string pour le reconvertir en array
cela est un sujet qui m'interesse
j'ai souvent a récupérer des chiffre dans le web et par requete mais comme la requette renvoie du string j'ai souvent été obligé de split et integration dans variable tableau

avec des accollades c'est fait tout seul si j'ai bien compris ??

si j'ai bien compris aussi une de tes deux exemples renvoie les indexs

serait il possible de grouper les deux ?
18/10/2015, 11h58
Marc-L

Oui, dans une feuille de calculs, une matrice s'écrit entre accolades avec un séparateur entre les éléments …
Dans la version française d'Excel, le point-virgule sépare les éléments. (En fait selon la configuration régionale de Windows.)

Exemple d'une formule dans la cellule A1 : =PETITE.VALEUR({30;12;49;56;37;89;53};COLONNE())
à recopier à droite jusqu'en G1 …
Évidemment en VBA restant nativement en anglais, la virgule reprend ses droits !

Car le point-virgule en VBA sert à changer de ligne, exemple : TS = [{30,12,49,56,37,89,53;2,1,5,3,7,4,6}] …

TS étant une variable tableau de deux lignes sur sept colonnes. (1 to 2, 1 to 7)

Et pour qu'une expression Excel soit comprise en VBA, il faut l'évaluer via la puissante fonction Evaluate,
ici dans son écriture réduite entre crochets …

Pour grouper les deux, indique moi ce que tu as en source et ce que tu désires comme résultat …

1 pièce(s) jointe(s)

re

bon ben.. voila je savais bien que j'allais quand meme te prendre en defaut :ptdr::ptdr::ptdr:

tres bien mais... non!!!!non!!!!

et les doublons alors hein !!!!!

ha..!!... tu l'avais pas vu venir celle la hein!....

tu a peut etre besoins d'un peu plus de calme .....:mouarf:
Code:

1 2 3 4 5 6 7 8 9 Sub Demo00() TS = [{30,12,49,56,37,49,89,53}] S$ = "{" & Join$(TS, ",") & "}" r$ = Join$(Evaluate("TRANSPOSE(SMALL(" & S & ",ROW(1:" & UBound(TS) & ")))"), ",") TR = Evaluate("TRANSPOSE(TRANSPOSE(MATCH({" & r & "}," & S & ",0)))") Debug.Print Join(TR) Debug.Print r End Sub
résultat
'2 1 5 3 3 8 4 7
'12,30,37,49,49,53,56,89

la question des doublons est primordiale mais en aucun cas je veux les supprimer

la base de mon travail est 2 array
1° les indices
2° les points obtenus

pan!!!!!:ptdr:

visuellement ca donne ca
Pièce jointe 190457

18/10/2015, 12h12
Marc-L

Oui c'est vrai dans le post initial il n'était pas question de doublon …

En fait, les fonctions d'Excel EQUIV comme RANG classent en ex-æquo.

Donc à éviter effectivement dans ton cas … Mais bon, tu peux déjà conserver la fonction TriMat !
18/10/2015, 12h24
patricktoulon

re

re
ben c'est pas grave
je garde quand meme ca peut servir
notament le string to array avec "[{}]" ca ca va me simplifier la vie tu peut pas imaginer :)

donc si j'ai bien compris dis moi si je me trompe

tablo="[{" & "1,2,3,4,5,6,7,8,9" & "}]" est un array ?

Citation:

Mais bon, tu peux déjà conserver la fonction TriMat !

absolument !!!!

quitte a aller chercher les indexs avec math/ large(X) apres sur l'array des indices et voila mes points et indices en une seule boucle
18/10/2015, 12h33
Marc-L

Non, là c'est une chaîne car la notation courte ne s'applique pas aux calculs et concaténations !

Pour créer la matrice : tablo = Evaluate("{" & "1,2,3,4,5,6,7,8,9" & "}") comme dans ma fonction Indices …

On a posté en même temps, as-tu vu mon post #56 ?
18/10/2015, 12h41
patricktoulon

re

re
Nikel !!!

je suis en train de penser
puisque meme en string on peut créer un tablo de X lignes avec ";"
on peut se servri de trimat et en obtenir le 'array trier en string avec join

et ensuite boucler sur l'array en ajoutant ";" array2 (match/large(X))

et ainsi de de 2 array construire un tablo multidimentionel

non?

Voir 40 message(s) de cette discussion en une page