Microsoft 365 Est-il possible d'utiliser les fonctions TRIER ou TRIERPAR avec VBA ?

danielco · Jeudi à 17:01

Bonjour,

La question est toute entière dans le titre. Est-il possible d'utiliser les fonctions TRIER ou TRIERPAR avec VBA ?

Merci d'avance.

Daniel

Saboh12617 · Hier à 08:53

Bonjour à tous,

Attention ChatGPT hallucine, ces fonctions sont bien présentes via WorksheetFunction. Voir ci-joint un petit exemple :
NB : Il faut fournir le 3e argument pour SortBy (direction de tri) qui n'est pas optionnel comme dans la fonction.

VB:

Public Sub ExTri()
  ' generation des index de tri dans la feuille (statique)
  With Sheet1.Range("A2")
    Range(.Cells, .End(xlDown)).Clear
    .Formula2 = "=RANDARRAY(20,1,0,100,TRUE)"
    .SpillingToRange.Value = .SpillingToRange.Value
  End With
 
  Dim myData As Variant
  myData = Sheet1.Range("A2:B21").Value
 
  Dim colIdx As Variant
  ' utilisation de application.index car worksheetfunction.index leve erreur
  colIdx = Application.Index(myData, , 1)
 
  Dim colNames As Variant...

sylvanu · Hier à 09:53

Saboh12617 à dit:
Non, c'est différent. On peut très bien utiliser les fonctions "formules" Excel TRIER (WorksheetFunction.Sort != Range.Sort)

A mon grand dépit, ceci est vrai uniquement sur les versions XL2019+ et 365. Versions qui supportent les "Tableaux Dynamiques".
Pour les versions plus anciennes seuls les algos VBA comme celle de Patrick sont utilisables.

Saboh12617 · Hier à 09:56

sylvanu à dit:
A mon grand dépit, ceci est vrai uniquement sur les versions XL2019+ et 365. Versions qui supportent les "Tableaux Dynamiques".
Pour les versions plus anciennes seuls les algos VBA comme celle de Patrick sont utilisables.

Oui nous sommes bien d'accord. Tout dépend du public visé. J'écrivais 2021+ justement. Sinon bien entendu les fonctionnalités n'existent pas encore.

Mais bon en vba on oublie souvent les "fonctions" Excel de base justement et je trouvais la question intéressante. BsAlv est un grand utilisateur de ces techniques et souvent je suis surpris du peu de lignes nécessaires à une résolution via les appels de fonctions au lieu de les "coder soi-meme".

job75 · Hier à 09:58

Bonjour le forum,

Saboh12617 à dit:
Attention ChatGPT hallucine, ces fonctions sont bien présentes via WorksheetFunction.

Bizarre quand même, nouvelle réponse de ChatGPT sur WorksheetFunction.Sort et WorksheetFunction.SortBy :

Dans Excel 2021, les fonctions WorksheetFunction.Sort et WorksheetFunction.SortBy existent comme fonctions de feuille (formules dynamiques), mais elles ne sont PAS disponibles via WorksheetFunction en VBA. C’est une limitation importante.

A+

Saboh12617 · Hier à 10:03

job75 à dit:
Bonjour le forum,

Bizarre quand même, nouvelle réponse de ChatGPT sur WorksheetFunction.Sort et WorksheetFunction.SortBy :

A+

Si vous avez Excel 2021 ou plus récent, je vous invite à tester plutôt que de suivre aveuglément un outil qui ne peut pas tester justement. Etant donné que la documentation officielle de Microsoft sur WorksheetFunction.Sort n'existe meme pas (ou en tout cas est introuvable) on peut comprendre que ChatGPT soit perdu.
Pour rappel : https://help.openai.com/fr-fr/articles/8313428-does-chatgpt-tell-the-truth

sylvanu · Hier à 10:10

job75 à dit:
Bizarre quand même, nouvelle réponse de ChatGPT sur WorksheetFunction.Sort et WorksheetFunction.SortBy

Règle d'or : Ne jamais se fier à une IA.
D'autant que d'autres IA formule d'autres réponses, à l'instar de Gemini :

En vba excel est il possible d'utiliser WorksheetFunction.Sort pour trier un array ?

Réponse :
Oui, c'est tout à fait possible ! Depuis Excel 2019 et Microsoft 365, la fonction de feuille de calcul SORT (ou TRIER en français) a été introduite. Vous pouvez l'appeler en VBA via l'objet WorksheetFunction.
C'est d'ailleurs une excellente astuce pour trier des tableaux (arrays) rapidement sans avoir à coder soi-même un algorithme complexe comme un QuickSort ou un Bubble Sort.

bsalv · Hier à 10:31

le sortby en VBA, on l'écrit comment ?
voir PJ, 3ième essai ne fonctionne pas correctement

Saboh12617 · Hier à 10:38

bsalv à dit:
le sortby en VBA, on l'écrit comment ?
voir PJ, 3ième essai ne fonctionne pas correctement

Salut Bart, pas compris ton approche avec des SORTBY imbriqués... ? Si tu veux trier sur des colonnes consécutives, pas besoin d'imbriquer :
Ex. En A1 tu as l'array :
A B 1
A A 2
B A 3
B A 4
B C 5
A D 6
A B 7

Tu peux la trier avec

Code:

=SORTBY(A1:C7;A1:A7;1;B1:B7;1;C1:C7;1)

Qui renvoit
A A 2
A B 1
A B 7
A D 6
B A 3
B A 4
B C 5

bsalv · Hier à 11:44

merci Saboh12617,
alors ce sera ceci

VB:

        .Offset(, 12).Value = WorksheetFunction.SortBy(Arr, Application.Index(Arr, , 1), 1, Application.Index(Arr, , 2), -1, Application.Index(Arr, , 3), 1) 'key1, key2, key3

Dranreb · Hier à 11:53

Bonjour.
Exemple avec ma Sub IndexerParFusions pour classer en ordre décroissant sur la 1ère colonne, puis, en cas d'égalité, croissant sur les deux autres :

VB:

Option Explicit
Sub Test()
   Dim TIdx() As Long, TDon(), TRésu(), L&, C&
   ReDim TDon(1 To 20, 1 To 3)
   For L = 1 To 20: For C = 1 To 3: TDon(L, C) = Int(10 * Rnd): Next C, L
   IndexerParFusions TIdx, TDon, -1, 2, 3
   ReDim TRésu(1 To 20, 1 To 3)
   For L = 1 To 20: For C = 1 To 3: TRésu(L, C) = TDon(TIdx(L), C): Next C, L
   [B2:D21].Value = TDon
   [F2:H21].Value = TRésu
   End Sub

danielco · Hier à 14:06

Dranreb à dit:
Bonjour.
Exemple avec ma Sub IndexerParFusions pour classer en ordre décroissant sur la 1ère colonne, puis, en cas d'égalité, croissant sur les deux autres :

VB:

Option Explicit Sub Test() Dim TIdx() As Long, TDon(), TRésu(), L&, C& ReDim TDon(1 To 20, 1 To 3) For L = 1 To 20: For C = 1 To 3: TDon(L, C) = Int(10 * Rnd): Next C, L IndexerParFusions TIdx, TDon, -1, 2, 3 ReDim TRésu(1 To 20, 1 To 3) For L = 1 To 20: For C = 1 To 3: TRésu(L, C) = TDon(TIdx(L), C): Next C, L [B2:D21].Value = TDon [F2:H21].Value = TRésu End Sub

OK, je vais l'essayer ce week-end.
Daniel

Microsoft 365 Est-il possible d'utiliser les fonctions TRIER ou TRIERPAR avec VBA ?

danielco

XLDnaute Barbatruc

Saboh12617

sylvanu

XLDnaute Barbatruc

Saboh12617

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Saboh12617

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

bsalv

XLDnaute Occasionnel

Pièces jointes

Saboh12617

XLDnaute Nouveau

bsalv

XLDnaute Occasionnel

Pièces jointes

Dranreb

XLDnaute Barbatruc

Pièces jointes

danielco

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Est-il possible d'utiliser les fonctions TRIER ou TRIERPAR avec VBA ?

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Nouveau

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency