tri sur les lignes

**maestro1303** · 28/09/2007, 20h39

bonjour à tous,

Dans une feuille de plusieurs milliers de lignes, j'ai 4(c1,C2,C3 et c4) colonnes avec des chiffres et je veux rajouter 4 colonnes à droite ayant respectivement la mention:
C1,C2,C3,C4 si c1<c2<C3<c4
C4,C2,C3,C1 si c4<c2<C3<c1
C2,C1,C3,C4 si c2<c1<C3<c4
C1,C2,C3,C4 si c1<c2<C3<c4
C3,C1,C2,C4 si c3<c1<C2<c4
C1,C4,C3,C2 si c1<c4<C3<c2
etc...
Merci du code en VBA-E

Merci infiniment

**Plateforme3** · 28/09/2007, 22h12

Bonsoir
Tu peux essayer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim I as Integer
For I = 1 To X
   If cells(C1,I) < cells(C2,I) and cells(C2,I) < Cells(C3,I) and ...  Then
        Cells(C5,I)=Cells(C1,I)
        Cells(C6,I)=Cells(C2,I)
        ......
   ElseIf Cells(C4,I)<Cells(C1,I) and ... then
       ...
   ElseIf
 
 
   End If
Next

Un peu long à écrire mais ça marche
Ca fait que 24 possibilités... (si je me rappelle bien mes cours stat..)
Slts

**Mytå_Qc** · 29/09/2007, 02h45

Salut le forum

Tu veux trier du plus petit au plus grand ?

Car la question n'est pas très claire

Mytå_Qc

**alsimbad** · 29/09/2007, 08h00

salut
en supposant que tes chiffres soient en colonne ABCDdans la 5 colonne tu utilise la formule

Code :

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

1
2
 
=RANG(A1;A1:D1;-1)

que tu incremente vers la droite sur 4 colonne en faisant attention aux valeurs abolue et relative puis vers le bas. ça te donnera l'ordre. pour ce qui est de réinscrire le chiffre c'est une autre affaire. mais tu ne précise pas si tu veux faire ça en vba ou en excel

**Oh!Tofocus** · 29/09/2007, 08h15

une solution en VBA

Code :

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

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
 
For L = 1 To 10
 
'efface les cellules cibles
'necessaire si plusieur tri répétés avec des valeurs doublon
'pour être sur que les cellues vides soit bien vides .....
Range(Cells(L, 5), Cells(L, 8)).Select
Selection.ClearContents
 
'debut du classement
A = Cells(L, 1)
B = Cells(L, 2)
C = Cells(L, 3)
D = Cells(L, 4)
 
Cells(L, 5 + ((A > B) + (A > C) + (A > D)) * -1) = A
Cells(L, 5 + ((B > A) + (B > C) + (B > D)) * -1) = B
Cells(L, 5 + ((C > A) + (C > B) + (C > D)) * -1) = C
Cells(L, 5 + ((D > A) + (D > B) + (D > C)) * -1) = D
 
' suprime les cellules vides générées si 2 valeurs sont identiques
For r = 6 To 8
If Cells(L, r) = "" Then Cells(L, r) = Cells(L, r - 1)
Next r
 
Next L

il y a surement plus simple mais je trouve la routine sympa

A+

**Oh!Tofocus** · 29/09/2007, 08h53

Envoyé par alsimbad

mais tu ne précise pas si tu veux faire ça en vba ou en excel

Envoyé par maestro1303 ( premier message)

Merci du code en VBA-E

Le réveil est difficile ce matin

ou peut être ne t'es tu pas couché

**alsimbad** · 29/09/2007, 09h48

Citation:
Envoyé par maestro1303 ( premier message)
Merci du code en VBA-E

Le réveil est difficile ce matin

effectivement j'avais mal lu. sorry

**patbou** · 29/09/2007, 11h11

bonjour,
voici un exemple de tri sur la 1ere ligne de la feuille
a toi d adapter le reste pour la feuille entiere

c est un tri ascendant

Code :

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

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
 
Option Base 1 'ne pas oublier pour le tableau  sinon 
Option Explicit
Sub tri()
Dim fl As Worksheet
Dim val_cel(4)
Dim val_temp
Dim i As Integer, j As Integer, inner As Integer, outer As Integer
Set fl = Worksheets(1)
For i = 1 To 4
    val_cel(i) = fl.Cells(1, i).Value
Next i
    For outer = 1 To 4  'boucle exterieur
        For inner = 1 To 3 'boucle interieur
            If val_cel(inner) > val_cel(inner + 1) Then
                val_temp = val_cel(inner)
                val_cel(inner) = val_cel(inner + 1)
                val_cel(inner + 1) = val_temp
            End If
         Next inner
    Next outer
For j = 1 To 4
fl.Cells(1, 4 + j) = val_cel(j)
Next j
End Sub

**alsimbad** · 29/09/2007, 21h55

hé ben voila maestro la solution que je t'ai trouvé: faire un tri, ligne par ligne de tes données.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cel As Range
Dim i As Integer
Sub Macro2()
Set cel = Range("A1:D1")
i = 1
Do
  cel.Select
  cel.Sort Key1:=Cells(i, 1), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortNormal
    Set cel = cel.Offset(1, 0)
    i = i + 1
Loop Until (cel.Row = Range("A65536").End(xlUp).Row + 1)
End Sub

a tester a donner le résultat car c'est un peu un travail commun comme tu peux le voir là
dis moi si ça te vas
bonne soirée

**maestro1303** · 30/09/2007, 16h29

Merci beaucoup à tout le groupe

Je me suis absenté pendant deux jours, et vous avez quand même fait preuve de génorisité.

Je suis parti rapidement dans le codage de 4 fonctions en VBA.

Merci de tous ces codes que je vais tester calmement avant de vous faire le retour. Merci infiniment!

Je vous envoie tout de même le code de ces fonctions, si vous pouvez les optimiser, car je sais qu'elles ne doivent pas du tout être optimisées. Merci:

Code :

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
 
Public Function ch1(x As String, y As String, z As String, t As String) As String
Select Case Application.WorksheetFunction.Min(Val(x), Val(y), Val(z), Val(t))
Case Val(x)
ch = "Courgette"
Case Val(y)
ch = "Carotte"
Case Val(z)
ch = "Poivron"
Case Val(t)
ch = "Pommette"
End Select
ch1 = ch
End Function
 
Public Function ch2(x As String, y As String, z As String, t As String) As String
Select Case Application.WorksheetFunction.Min(Val(x), Val(y), Val(z), Val(t))
    Case Val(x)
                If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(y) Then
                        ch = "Carotte"
                End If
               If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(z) Then
                        ch = "Poivron"
               End If
               If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(t) Then
                        ch = "Pommette"
                End If
 
    Case Val(y)
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(x) Then
                        ch = "Courgette"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(z) Then
                        ch = "Poivron"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(t) Then
                        ch = "Pommette"
                End If
 
    Case Val(z)
               If Application.WorksheetFunction.Min(Val(x), Val(y), Val(t)) = Val(x) Then
                        ch = "Courgette"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(y), Val(t)) = Val(y) Then
                        ch = "Carotte"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(y), Val(t)) = Val(t) Then
                        ch = "Pommette"
                End If
 
    Case Val(t)
               If Application.WorksheetFunction.Min(Val(x), Val(y), Val(z)) = Val(x) Then
                        ch = "Courgette"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(y), Val(z)) = Val(y) Then
                        ch = "Carotte"
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(y), Val(z)) = Val(z) Then
                        ch = "Poivron"
                End If
 
 
End Select
ch2 = ch
End Function
 
Public Function ch3(x As String, y As String, z As String, t As String) As String
Select Case Application.WorksheetFunction.Min(Val(x), Val(y), Val(z), Val(t))
  Case Val(x)
                 If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(y) Then
                        If Val(z) < Val(t) Then
                            ch = "Poivron"
                        Else
                           ch = "Pommette"
                        End If
                  End If
                  If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(z) Then
                        If Val(y) < Val(t) Then
                            ch = "Carotte"
                        Else
                           ch = "Pommette"
                        End If
                  End If
                  If Application.WorksheetFunction.Min(Val(y), Val(z), Val(t)) = Val(t) Then
                        If Val(y) < Val(z) Then
                            ch = "Carotte"
                        Else
                           ch = "Poivron"
                        End If
                  End If
 
  Case Val(y)
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(x) Then
                        If Val(z) < Val(t) Then
                            ch = "Poivron"
                        Else
                           ch = "Pommette"
                        End If
                End If
                  If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(z) Then
                        If Val(x) < Val(t) Then
                            ch = "Courgette"
                        Else
                           ch = "Pommette"
                        End If
                  End If
                  If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(t) Then
                        If Val(x) < Val(z) Then
                            ch = "Courgette"
                        Else
                           ch = "Poivron"
                        End If
                  End If
 
 
Case Val(z)
                If Application.WorksheetFunction.Min(Val(y), Val(x), Val(t)) = Val(y) Then
                        If Val(x) < Val(t) Then
                            ch = "Courgette"
                        Else
                           ch = "Pommette"
                        End If
                End If
                If Application.WorksheetFunction.Min(Val(y), Val(x), Val(t)) = Val(x) Then
                        If Val(y) < Val(t) Then
                            ch = "Carotte"
                        Else
                           ch = "Pommette"
                        End If
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(t)) = Val(t) Then
                        If Val(y) < Val(x) Then
                            ch = "Carotte"
                        Else
                           ch = "Courgette"
                        End If
                End If
Case Val(t)
                If Application.WorksheetFunction.Min(Val(y), Val(x), Val(z)) = Val(y) Then
                        If Val(x) < Val(z) Then
                            ch = "Courgette"
                        Else
                           ch = "Poivron"
                        End If
                End If
                If Application.WorksheetFunction.Min(Val(y), Val(x), Val(z)) = Val(x) Then
                        If Val(y) < Val(z) Then
                            ch = "Carotte"
                        Else
                           ch = "Poivron"
                        End If
                End If
                If Application.WorksheetFunction.Min(Val(x), Val(z), Val(z)) = Val(z) Then
                        If Val(y) < Val(x) Then
                            ch = "Carotte"
                        Else
                           ch = "Courgette"
                        End If
                End If
 
End Select
ch3 = ch
End Function
 
Public Function ch4(x As String, y As String, z As String, t As String) As String
Select Case Application.WorksheetFunction.Max(Val(x), Val(y), Val(z), Val(t))
Case Val(x)
ch = "Courgette"
Case Val(y)
ch = "Carotte"
Case Val(z)
ch = "Poivron"
Case Val(t)
ch = "Pommette"
End Select
ch4 = ch
End Function

Merci beaucoup

**maestro1303** · 01/10/2007, 12h45

Bonjour,

Au secours, il y a un bug dans les fonctions que j'ai écrites dans le message précédent. Quelqqu'un peut m'aider à voir ce qui ne cloche pas.

Merci

**patbou** · 01/10/2007, 13h19

bonjour,

au final tu veux faire un tri sur chaque ligne?

**Oh!Tofocus** · 01/10/2007, 15h19

Je ne comprends pas bien....
au debut tu parle de nombres

Envoyé par maestro1303

j'ai 4(c1,C2,C3 et c4) colonnes avec des chiffres

et maintenant tu nous parles de soupe de courgette

???

**maestro1303** · 01/10/2007, 19h00

J'aime bien ton humour,

Tu as tout à fait raison ça commence par des chiffres et des nombres pour finir dans la soupe de courgette

Au fait on compare les nombre puis la fonction renvoie l'un des quatre string:
-courgette
-carotte
-pommette
-poivron

Exemple
p21345---ProduitTarkot -----0.011---0.0012----0.0001---2.5

La première colonne contient le code du produit, la deuxième son libellé

la 4è, 5è 6è et 7è contiennet les prix.

On voit bien que le nombre à la 6è colonne est le plus petit alors on écrit "courgette

Merci

**alsimbad** · 01/10/2007, 19h29

effectivement, on comprend mieux le probleme.
mais alors, si tu a 4 colonnes avec les prix du produit, cela suppose qu'elle ont un libélé, et donc que tu ne peux pas les trier. je suppose aussi que dans la colonne 8, tu veux écrire le nom du produit le moins cher. es ce que c'est bien ça ? comme ça on cherche dans la bonne direction

**alsimbad** · 01/10/2007, 19h41

et donc, je reviens vers toi pour te proposer ceci
je suppose ton tableau en ligne 1 les libélés
en ligne 2 les données

Envoyé par maestro

p21345---ProduitTarkot -----0.011---0.0012----0.0001---2.5
La première colonne contient le code du produit, la deuxième son libellé
ou est la 3eme colone? la 4è, 5è 6è et 7è contiennet les prix

donc en 8eme colonne soit en H2 tu place

Code :

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

=INDEX($D$1:$G$1;;EQUIV(MIN(D2:G2);D2:G2;0))

que tu tire gentiement vers le bas
qoi que t'en pense ?

**maestro1303** · 01/10/2007, 20h22

Merci encore de me donner une idée:

Code Pdt|Libellé Produit |prix1 |prix2 |prix3 |prix4 |
P0001 | Lib1 |0.01 |0.2 |10 |0.080 |
P0002 | Lib2 |0.07 |0.6 |15 |0.800 |
P0003 | Lib3 |0.03 |0.3 |10 |0.500 |
P0004 | Lib4 |0.04 |0.8 |0.11 |0.100 |
P0009 | Lib9 |0.09 |0.1 |11 |0.123 |

-Pour La ligne 1 le moins cher est 0.08 suivi de 0.01 puis 0.2 puis 1 donc le classement demandé est c4,c1,c2,c3

-Pour La ligne 2 le moins cher est 0.07 suivi de 0.6 puis 0.8 puis 15 donc le classement demandé est c1,c2,c4,c3.

-Pour La ligne 3 le moins cher est 0.03 suivi de 0.3 puis 0.5 puis 10 donc le classement demandé est c1,c2,c4,c3.

-Pour La ligne 4 le moins cher est 0.04 suivi de 0.1 puis 0.11 puis 0.8 donc le classement demandé est c1,c4,c3,c2.

ETC....

Merci

**alsimbad** · 02/10/2007, 05h53

j'abandone maestro. met tes idées dans l'ordre. tu veux un tri ou tu ne veux pas de tri ? tu veux sortir le moins cher et incrire le nom ou c'est autre chose ?
1 on est pas là pour te donner des idées mais pour te donner un coup de main a mettre les tiennes noir sur blanc.
2 imagine toi qu'on est suffisament grand pour comprendre ce qu'es un classement du plus petit au plus grand
3 0.080 est superieur 0.01
4 quand on te donne des pistes, dis nous ce que tu as essayé, ce qui marche ou pas, ce qui correspond ou pas, ne change pas de façon a chaque fois.
bonne journée

**maestro1303** · 02/10/2007, 10h37

Merci bien alsimbad,

c'est bien celà: je veux le moins cher, mais ce n'est pas tout: je veux aussi le "2ème moins cher" puis le "3ème moins cher" et en fin le "4ème moins cher".
J'ai reglé le problème et je vous dirais comment.
Indépendamment de tout ça, je veux bien tirer profit de la formule que tu m'as envoyée

Code :

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

=INDEX($D$1:$G$1;;EQUIV(MIN(D2:G2);D2:G2;0))

Serait elle bien correcte: car elle ne me donne rien.
Revenons à la solution. Le code que j'ai envoyé plus haut bogue, et tout ce qui lui manque c'est de déclarer x, y, z et t en double et d'enlever les val(...).
Mais ce résultat je l'ai découvert par hasard.

J'ai choisi d'écrire ces fionctions pour qu'elle restent le plus indépendantes possible des données de la feuille Excel, c'est pourquoi je passe par les val pour convertir, mais visiblement ça bogue: je croyais bien faire

Exemple elle ne classe pas bien les 4 suivants:

0.044200000000 0.065600000000 3.000000000000 0.070723000000

Ils sont classés comme ça:

0.044200000000 0.070723000000 0.065600000000 3.000000000000

Avec les double directement ce bogue disparait (ainsi que tous les autres bogues), quelqu'1 peut me dire pourquoi? Merci beaucoup Alsimbad, merci à tous.

**Oh!Tofocus** · 02/10/2007, 10h41

Roger Roger
Je décroche je rentre à la base.

Je suis d'accord avec toi alsimbad une question à la foi c'est plus simple et moins confus.

Remets un peu d'ordre dans tes objectifs et ensuite reviens vers nous maestro1303

A+

tri sur les lignes

Macros et VBA Excel

Discussions similaires

Partager

Partager