Je cherche à faire le tri d'un tableau contenant des valeurs numériques.
(100 lignes par 15 colonnes)
Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans
case vide).
Je souhaite que chaque colonne soit triée de manière décroissante,
indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les
valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14
Sheets("pieces").Range("A6").Offset(1, vCol).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par
colonne,
Merci d'avance
Sub TriIndependant() Range("a6").Select For cpt = 1 To 15 Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Sort Key1:¬tiveCell, Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveCell.Offset(, 1).Select Next End Sub
Camille
"Changuy" a écrit dans le message de news: %
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numériques. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
JC
Bonjour
Sub TriIndependant()
Range("a6").Select
For cpt = 1 To 15
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Sort Key1:¬tiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveCell.Offset(, 1).Select
Next
End Sub
Camille
"Changuy" <j.changarnier@wanadoo.fr> a écrit dans le message de news:
%233SNXF0iIHA.3740@TK2MSFTNGP03.phx.gbl...
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numériques.
(100 lignes par 15 colonnes)
Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans
case vide).
Je souhaite que chaque colonne soit triée de manière décroissante,
indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les
valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14
Sheets("pieces").Range("A6").Offset(1, vCol).Select
Selection.Sort Key1:¬tiveCell, Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom
Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par
colonne,
Merci d'avance
Sub TriIndependant() Range("a6").Select For cpt = 1 To 15 Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Sort Key1:¬tiveCell, Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal ActiveCell.Offset(, 1).Select Next End Sub
Camille
"Changuy" a écrit dans le message de news: %
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numériques. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
Je cherche à faire le tri d'un tableau contenant des valeurs numérique s. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation: =xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
On 21 mar, 11:50, "Changuy" <j.changarn...@wanadoo.fr> wrote:
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numérique s.
(100 lignes par 15 colonnes)
Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans
case vide).
Je souhaite que chaque colonne soit triée de manière décroissante,
indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les
valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14
Sheets("pieces").Range("A6").Offset(1, vCol).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlDescending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation: =xlTopToBottom
Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par
colonne,
Merci d'avance
Je cherche à faire le tri d'un tableau contenant des valeurs numérique s. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sans case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientation: =xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescendin g, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientatio n:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
On 21 mar, 11:50, "Changuy" <j.changarn...@wanadoo.fr> wrote:
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues.
(100 lignes par 15 colonnes)
Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns
case vide).
Je souhaite que chaque colonne soit triée de manière décroissante,
indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les
valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14
Sheets("pieces").Range("A6").Offset(1, vCol).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlDescendin g,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientatio n:=xlTopToBottom
Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par
colonne,
Merci d'avance
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescendin g, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientatio n:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
JC- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JB
For c = 1 To 15 Range(Cells(6, c), Cells(1000, c)).Sort Key1:Îlls(6, c), Order1:=xlAscending, Header:=xlGuess Next c
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescendin g, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientatio n:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance
JC- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
For c = 1 To 15
Range(Cells(6, c), Cells(1000, c)).Sort Key1:=Cells(6, c),
Order1:=xlAscending, Header:=xlGuess
Next c
JB
On 21 mar, 12:12, JB <boisgont...@hotmail.com> wrote:
On 21 mar, 11:50, "Changuy" <j.changarn...@wanadoo.fr> wrote:
Bonjour à tous,
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues.
(100 lignes par 15 colonnes)
Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns
case vide).
Je souhaite que chaque colonne soit triée de manière décroissante,
indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les
valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14
Sheets("pieces").Range("A6").Offset(1, vCol).Select
Selection.Sort Key1:=ActiveCell, Order1:=xlDescendin g,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientatio n:=xlTopToBottom
Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par
colonne,
Merci d'avance
Je cherche à faire le tri d'un tableau contenant des valeurs numériq ues. (100 lignes par 15 colonnes) Chaque colonne contient entre 0 et 100 valeurs en partant du haut (et sa ns case vide).
Je souhaite que chaque colonne soit triée de manière décroissante, indépendamant les unes des autres.
Le code ci dessous ne fonctionne pas correctement, car il mélange les valeurs des colonnes déjà triées:
Sub Tri_Tableau()
Dim vCol As Integer
For vCol = 1 To 14 Sheets("pieces").Range("A6").Offset(1, vCol).Select Selection.Sort Key1:¬tiveCell, Order1:=xlDescendin g, Header:=xlGuess, _ OrderCustom:=1, MatchCase:úlse, Orientatio n:=xlTopToBottom Next vCol
End Sub
Quelqu'un peut-il m'aider pour résoudre ce petit problème de tri par colonne, Merci d'avance