Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Voici un début à adapter : Dim LeTabloVal() With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) .Sort Range("A1"), xlAscending For i = 1 To .Cells.Count ReDim Preserve LeTabloVal(.Cells.Count) LeTabloVal(i - 1) = .Cells(i, 1) Next i End With For a = LBound(LeTabloVal()) To UBound(LeTabloVal()) MsgBox LeTabloVal(a) Next a
Cordialement Pascal "Franck" a écrit dans le message de news: Bonjour, je cherche des pistes pour trier une colonne en Ascending et récuperer toutes les valeurs distinctes pour les stocker dans un array.
Si vous avez des suggestions, je suis preneur :)
Merci d'avance
Bonjour
Voici un début à adapter :
Dim LeTabloVal()
With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp))
.Sort Range("A1"), xlAscending
For i = 1 To .Cells.Count
ReDim Preserve LeTabloVal(.Cells.Count)
LeTabloVal(i - 1) = .Cells(i, 1)
Next i
End With
For a = LBound(LeTabloVal()) To UBound(LeTabloVal())
MsgBox LeTabloVal(a)
Next a
Cordialement
Pascal
"Franck" <wesley.saris@gmail.com> a écrit dans le message de
news:1111140435.325946.159750@o13g2000cwo.googlegroups.com...
Bonjour,
je cherche des pistes pour trier une colonne en Ascending et récuperer
toutes les valeurs distinctes pour les stocker dans un array.
Bonjour Voici un début à adapter : Dim LeTabloVal() With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) .Sort Range("A1"), xlAscending For i = 1 To .Cells.Count ReDim Preserve LeTabloVal(.Cells.Count) LeTabloVal(i - 1) = .Cells(i, 1) Next i End With For a = LBound(LeTabloVal()) To UBound(LeTabloVal()) MsgBox LeTabloVal(a) Next a
Cordialement Pascal "Franck" a écrit dans le message de news: Bonjour, je cherche des pistes pour trier une colonne en Ascending et récuperer toutes les valeurs distinctes pour les stocker dans un array.
Si vous avez des suggestions, je suis preneur :)
Merci d'avance
papou
Oups ! il faut modifier ça : ReDim Preserve LeTabloVal(.Cells.Count - 1) Sinon tu as une valeur vide en trop dans ton tableau. Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Voici un début à adapter : Dim LeTabloVal() With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) .Sort Range("A1"), xlAscending For i = 1 To .Cells.Count ReDim Preserve LeTabloVal(.Cells.Count) LeTabloVal(i - 1) = .Cells(i, 1) Next i End With For a = LBound(LeTabloVal()) To UBound(LeTabloVal()) MsgBox LeTabloVal(a) Next a
Cordialement Pascal "Franck" a écrit dans le message de news: Bonjour, je cherche des pistes pour trier une colonne en Ascending et récuperer toutes les valeurs distinctes pour les stocker dans un array.
Si vous avez des suggestions, je suis preneur :)
Merci d'avance
Oups !
il faut modifier ça :
ReDim Preserve LeTabloVal(.Cells.Count - 1)
Sinon tu as une valeur vide en trop dans ton tableau.
Cordialement
Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:Ovmk8H7KFHA.1476@TK2MSFTNGP09.phx.gbl...
Bonjour
Voici un début à adapter :
Dim LeTabloVal()
With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp))
.Sort Range("A1"), xlAscending
For i = 1 To .Cells.Count
ReDim Preserve LeTabloVal(.Cells.Count)
LeTabloVal(i - 1) = .Cells(i, 1)
Next i
End With
For a = LBound(LeTabloVal()) To UBound(LeTabloVal())
MsgBox LeTabloVal(a)
Next a
Cordialement
Pascal
"Franck" <wesley.saris@gmail.com> a écrit dans le message de
news:1111140435.325946.159750@o13g2000cwo.googlegroups.com...
Bonjour,
je cherche des pistes pour trier une colonne en Ascending et récuperer
toutes les valeurs distinctes pour les stocker dans un array.
Oups ! il faut modifier ça : ReDim Preserve LeTabloVal(.Cells.Count - 1) Sinon tu as une valeur vide en trop dans ton tableau. Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Bonjour Voici un début à adapter : Dim LeTabloVal() With Worksheets("Feuil1").Range("A1", Range("A65536").End(xlUp)) .Sort Range("A1"), xlAscending For i = 1 To .Cells.Count ReDim Preserve LeTabloVal(.Cells.Count) LeTabloVal(i - 1) = .Cells(i, 1) Next i End With For a = LBound(LeTabloVal()) To UBound(LeTabloVal()) MsgBox LeTabloVal(a) Next a
Cordialement Pascal "Franck" a écrit dans le message de news: Bonjour, je cherche des pistes pour trier une colonne en Ascending et récuperer toutes les valeurs distinctes pour les stocker dans un array.
Si vous avez des suggestions, je suis preneur :)
Merci d'avance
Franck
En fait, je ne voudrais pas toucher aux cellules, donc eviter le Selection.Sort.
En fait, je ne voudrais pas toucher aux cellules, donc eviter le
Selection.Sort.
En fait, je ne voudrais pas toucher aux cellules, donc eviter le Selection.Sort.
papou
Désolé mais je ne sais pas comment effectuer un tri de tableau. Tu peux essayer ce code de Frédéric (mais personnellement je ne parviens pas à obtenir le résultat attendu) http://frederic.sigonneau.free.fr/code/Tris/ShellSort2.txt Cordialement Pascal
"Franck" a écrit dans le message de news:
En fait, je ne voudrais pas toucher aux cellules, donc eviter le Selection.Sort.
Désolé mais je ne sais pas comment effectuer un tri de tableau.
Tu peux essayer ce code de Frédéric (mais personnellement je ne parviens pas
à obtenir le résultat attendu)
http://frederic.sigonneau.free.fr/code/Tris/ShellSort2.txt
Cordialement
Pascal
"Franck" <wesley.saris@gmail.com> a écrit dans le message de
news:1111148200.673383.135660@f14g2000cwb.googlegroups.com...
En fait, je ne voudrais pas toucher aux cellules, donc eviter le
Selection.Sort.
Désolé mais je ne sais pas comment effectuer un tri de tableau. Tu peux essayer ce code de Frédéric (mais personnellement je ne parviens pas à obtenir le résultat attendu) http://frederic.sigonneau.free.fr/code/Tris/ShellSort2.txt Cordialement Pascal
"Franck" a écrit dans le message de news:
En fait, je ne voudrais pas toucher aux cellules, donc eviter le Selection.Sort.
papou
(mais personnellement je ne parviens pas à obtenir le résultat attendu) En fait je rectifie, avec mes excuses à Frédéric, ça fonctionne
parfaitement. Cordialement Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Désolé mais je ne sais pas comment effectuer un tri de tableau. Tu peux essayer ce code de Frédéric (mais personnellement je ne parviens pas
à obtenir le résultat attendu) http://frederic.sigonneau.free.fr/code/Tris/ShellSort2.txt Cordialement Pascal
"Franck" a écrit dans le message de news:
En fait, je ne voudrais pas toucher aux cellules, donc eviter le Selection.Sort.
(mais personnellement je ne parviens pas
à obtenir le résultat attendu)
En fait je rectifie, avec mes excuses à Frédéric, ça fonctionne
parfaitement.
Cordialement
Pascal
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de
news:eGpuSe7KFHA.2796@tk2msftngp13.phx.gbl...
Désolé mais je ne sais pas comment effectuer un tri de tableau.
Tu peux essayer ce code de Frédéric (mais personnellement je ne parviens
pas
à obtenir le résultat attendu)
http://frederic.sigonneau.free.fr/code/Tris/ShellSort2.txt
Cordialement
Pascal
"Franck" <wesley.saris@gmail.com> a écrit dans le message de
news:1111148200.673383.135660@f14g2000cwb.googlegroups.com...
En fait, je ne voudrais pas toucher aux cellules, donc eviter le
Selection.Sort.
