Discussion :

[Gant2toilettes]

Bonjour à vous,
Je sollicite votre aide car j'aimerais trier les valeurs d'une certaine plage de cellules (toutes sur la meme ligne), mais ici la méthode sort ne trie pas les valeurs sur ma ligne ("A8:G8"), en revanche sort marche bien quand je l'applique à une plage qui se trouve être une colonne.
Auriez vous une solution à me proposer ^-^
Par ailleurs, existe t il un moyen de déconnecter mon objet "plage" de sa contrepartie sur excel : ie j'aimerais trier ma plage sans trier les cellules de mon exel
Je vous remercie

Mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim plage As Variant
Dim j As Integer
Set plage = Range("A8:G8")
plage.Sort Key1:=plage(1)
j = 0
For j = 1 To 7
 
Cells(j, 2) = plage(j)
 
Next j

[MarcelG]

Bonjour à toi, et bonjour au forum,

Marcel, le retour

Le plus basique.
Collage spécial valeurs et transpose (ligne vers colonne)
Tri
Collage spécial valeurs transpose (colonne vers ligne)

L'enregistreur - épuré - devrait te retourner un code satisfaisant

Reviens si nécessaire.

[MarcelG]

Salut,

Je m'en rappelle à l'instant.
En modulant la propriété "Orientation" de la méthode "Sort"

A ADAPTER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub essai_tri_2()
 
With Worksheets(1).Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2:F2"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A2:F2")
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
 
 End Sub

[Gant2toilettes]

Bonsoir Marcel et merci de votre réponse rapide. Existe t il un moyen de trier la plage sans avoir à toucher à l'excel ? Les données font partie d'un très grand tableau et rien ne doit changer, il s'agit donc de trier ça sans retoucher le fichier à aucun moment( je me sers du tri pour faire des calculs sur les valeurs inférieures pour info)
Bien à vous

[MarcelG]

Salut,

Tout d'abord, as-tu réussi à comprendre (je n'en doute pas) puis à adapter le 2nd code proposé?

Trier sans toucher Excel?

Dans ce cas, il te faudrait alimenter une variable Tableau des valeurs souhaitées puis trier l'Array ainsi obtenu.
Mais je ne comprends pas la finalité de ton raisonnement.
Peut-être un exemple via un fichier simplifié.

Je reprendrai demain.
Bonne soirée.

[Gant2toilettes]

Bonjour Marcel,
J'ai en effet plutôt opté pour un tableau dont les valeurs s'ajoutent si elles répondent à certains critères.
Nouvelle question sotte : je veux prendre le minimum de mon tableau ainsi créé . Ne sachant pas s'il existe une fonction pour trouver le min d'un tableau, je créé une fonction mintab. J'ai naivement écrit cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function mintab(a As Variant)
Dim j As Double
Dim min As Double
min = 1500
For Each j In a
    If j < min Then
        min = j
    End If
Next
 
End Function

Mon for j in a est très présomptueux ^^ en fait comment boucler sur les éléments d'un tableau Variant
Je vais tester for j=0 to UBound(a()) ^-^
Merci à vous

[MarcelG]

Bonjour,

Tu troueras tous les éléments de réponse - et plus encore - dans ce tutoriel incontournable

les tableaux par Silkyroad