Discussion :

[diiity]

Bonjour,

Je voudrais trié par ordre alphabétique plusieurs colonnes, c'est à dire que mes colonnes ont un nombre limité de ligne par exemple 15
Les colonne A a des noms et la colonne B des X(où des croix)

La colonne C a aussi des noms et la colonne D des X(où des croix)

Comme je suis limité à 15 lignes mon ordre alphabétique doit s'étendre comme ceci:

Col A ColB Col C Col D
Albert X Nadine X
Annie Serge
Christianne X Valentine X
Françoise X
Jériémie
etc

Je voudrais donc que la colonne C suivit de sa colonne D soit la suite alphabétique de la colonne A suivit elle même de sa colonne B.

Voir fichier joint

Comment puis je faire ce tri?

Diiity

Classeur1.xls

[SR.SFC]

bonjour,

Réponse 1 :
Sélectionne tes données
Données / Trier et filtrer / Trier ....
tu remplis le tableau (après avoir précisé que tu avais un entête) avec le nom de tes colonnes, que tu ordonnes par priorité de tri.
[Ok]

[diiity]

Merci pour ton aide, je suis sous excel 2003 et 2007, ça ne marche pas

[boisgontierjacques]

Bonjour,


Tri multi-zones

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
 
Sub TriMC2()
  Dim temp(), temp2()
  ReDim temp(Range("Nom").Count)
  ReDim temp2(Range("Nom").Count)
  lig = 0
  For i = 1 To Range("Nom").Areas.Count
    For j = 1 To Range("Nom").Areas(i).Count
      If Range("Nom").Areas(i)(j) <> "" Then
        lig = lig + 1
        temp(lig) = Range("Nom").Areas(i)(j)
        temp2(lig) = Range("Nbr").Areas(i)(j)
      End If
    Next j
  Next i
  Call Tri2(temp, temp2, 1, lig)
  lig = 0
  For i = 1 To Range("Nom").Areas.Count
    For j = 1 To Range("Nom").Areas(i).Count
      lig = lig + 1
      Range("Nom").Areas(i)(j) = temp(lig)
      Range("Nbr").Areas(i)(j) = temp2(lig)
    Next j
  Next i
End Sub

Boisgontier

[diiity]

Bonsoir et merci pour cette réponse.

Super, ça marche bien.

par contre si je veux faire la même manip avec d'autres colonne voire ajouter des colonnes que dois je modifier?

c'est bon, je crois avoir trouvé, c'est dans "insertion" "nom" "définir et de rajouter des colonnes séparé par un point virgule sans oublier les $.

diiity

[boisgontierjacques]

Pour nommer le champ NOM:

-Sélectionner A2:A10
-Appuyer sur Ctrl
-Sélectionner C2:C10

Frapper nom dans la zone nom et valider avec la touche Entrée

On peut le faire pour 2,3,... colonnes

Boisgontier

[SR.SFC]

bonjour,

Ton tri est horizontal, donc effectivement cela ne correspond pas à ta demande.
C'est cependant possible avec Excel mais ligne à ligne.
Le VBA repondra à ta demande avec tri des données de la ligne.

Bonne suite

[njhub]

Bonjour diiity,

En feuille2 du fichier joint,
coller à partir de la troisième ligne de la colonne A, la liste à trier,
coller à partir de la troisième ligne de la colonne B, les annotations à trier.
En A2 se calcule le nombre d'éléments à trier.
En B2 choisir un nombre de groupes de colonnes, inférieur à 6.
En C2 le nombre d'éléments dans le dernier groupe de colonnes.
En D2 le nombre de lignes dans les groupe de colonnes complètes.
En vert en colonne A, les éléments que j'ai rajoutés pour vérifier le bon fonctionnement.

[diiity]

Pour nommer le champ NOM:

-Sélectionner A2:A10
-Appuyer sur Ctrl
-Sélectionner C2:C10

Frapper nom dans la zone nom et valider avec la touche Entrée

On peut le faire pour 2,3,... colonnes

Boisgontier

Bonjour,

Et si je veux faire un tri simple, toujours sur plusieurs colonnes mais sans la colonne de droite avec les X, que dois je modifier dans la macro?

Diiity

[boisgontierjacques]

Bonjour,

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
 
Sub TriMC()
  Set Rng = Range("A2:A10,C2:C10")     ' à adapter
  Dim temp()
  ReDim temp(Rng.Count)
  lig = 0
  For i = 1 To Rng.Areas.Count
    For j = 1 To Rng.Areas(i).Count
      If Rng.Areas(i)(j) <> "" Then
        lig = lig + 1
        temp(lig) = Rng.Areas(i)(j)
      End If
    Next j
  Next i
  Call Tri(temp, 1, lig)
  lig = 0
  For i = 1 To Rng.Areas.Count
    For j = 1 To Rng.Areas(i).Count
      lig = lig + 1
      Rng.Areas(i)(j) = temp(lig)
    Next j
  Next i
End Sub

Pour 2 colonnes

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
 
Sub TriMC2()
  Set rng1 = Range("A2:A10,C2:C10")     ' à adapter
  Dim temp(), temp2()
  ReDim temp(rng1.Count)
  ReDim temp2(rng1.Count)
  lig = 0
  For i = 1 To rng1.Areas.Count
    For j = 1 To rng1.Areas(i).Count
      If rng1.Areas(i)(j) <> "" Then
        lig = lig + 1
        temp(lig) = rng1.Areas(i)(j)
        temp2(lig) = rng1.Areas(i)(j).Offset(, 1)
      End If
    Next j
  Next i
  Call Tri2(temp, temp2, 1, lig)
  lig = 0
  For i = 1 To rng1.Areas.Count
    For j = 1 To rng1.Areas(i).Count
      lig = lig + 1
      rng1.Areas(i)(j) = temp(lig)
      rng1.Areas(i)(j).Offset(, 1) = temp2(lig)
    Next j
  Next i
End Sub

Boisgontier

[diiity]

super et dans ce cas pas besoin de plage.

Et si je veux utiliser une plage, je sélectionne ma plage que je nomme par exemple "vélo" et à la place de:

Set Rng = Range("A2:A10,C2:C10")

je mets

Set Rng = Range("vélo")

diiity