ordonner les données d'une feuille dans une macro

**meuah** · 21/05/2008, 11h38

Bonjour,

j'aimerais avoir de l'aide car j'importe des données d'un fichier, mais j'aimerais qu'elles soit triées selon une colonne précise, ou l'intitulé précis de la colonne, comme vous voulez.
je sais aussi que quand on fait un tri des données en Excel à partir d'une seule colonne alors qu'il y en a plusieurs, il demande si on veut étendre la sélection. POur moi, c'est oui. Bien sûr, je veux un ordre croissant (A->Z)
Si quelqu'un pouvait m'aider

Merci beaucoup

**Godzestla** · 21/05/2008, 11h49

Salut,

regarde dans la faq à http://excel.developpez.com/faq/index.php?page=Tri#Sort

**ouskel'n'or** · 21/05/2008, 11h53

Pour apprendre à faire ce que tu veux, essaie de prendre l'habitude d'enregistrer les macros en faisant. Après tu regardes le code et si tu ne comprends pas, tu consultes l'aide en ligne sur tel ou tel terme. Si tu ne comprends toujours pas, on sera là pour t'aider.
Ce n'est pas pour te décourager de venir sur le forum mais tu apprendras plus vite la syntaxe. Enfin, ceux qui avancent le plus vite font comme ça

Juste un conseil.
Pour ton pb, ne connaissant pas la syntaxe par coeur, si je te mets le code c'est que je l'aurai fait pour toi, et simplifié parce que l'enregistreur de macro met toujours plein de trucs inutiles.
Si tu veux mettre le code que tu obtiens, on t'aidera à faire ça.
A+

**meuah** · 21/05/2008, 11h55

merci

**meuah** · 21/05/2008, 12h38

bon, comme là je ne peux pas faire d'enregistrement de macro pour résoudre mon probème je viens ici

Dans ma macro, j'ouvre un fichier, j'en copie les données et je les colle dans mon classeur courant. j'appelle ensuite deux autres macros, mais au lieu de s'appliquer sur mon classeur courant, elle s'applique sur l'autre fichier ouvert!

Sinon, ce n'est pas drôle

Voici mon code

Code :

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

1
2
3
4
5
6
7
    Set wba = Workbooks.Open(chaine)
    Set wbb = ThisWorkbook
    Set wsb = wbb.Sheets.Add(Before:=Sheets(1))
    wba.Sheets(2).Range("A1:L5000").Copy
    wsb.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    Call Module9.Macro2
    Call Module7.SuppLignesGLF_Pdp

J'ai essayé de mettre des wbb, wsb pour que ça s'applique à la feuille courante ou au classeur courant, mais ça ne fonctionne pas

**Godzestla** · 21/05/2008, 12h49

Oops,

ton problème est marqué comme résolu.

Fais un nouveau en :
1) Donnant l contenu de tes 2 autres macros "Macro2" et
"SuppLignesGLF_Pdp"
2) Précisant de quoi il s'agit et à quel endroit

elle s'applique sur l'autre fichier ouvert! Sinon, ce n'est pas drôle

Pour info :
* il vaut mieux renommer tes macros en autrechose que Macro2
* Il n'est pas utile de préciser le Module avant le nom de la macro sauf si tu as des doublons
* Le call est aussi facultatif -> L'instruction peut être

Code :

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

1
2
 
SuppLignesGLF_Pdp

A+

**ouskel'n'or** · 21/05/2008, 12h56

Envoyé par meuah

j'appelle ensuite deux autres macros, mais au lieu de s'appliquer sur mon classeur courant, elle s'applique sur l'autre fichier ouvert

Normal si tes macros sont mal faites

Quand tu lances ces macro, passe-leur le classeur et/ou la feuille en paramètre. Et dans macro, utilise ce paramètre comme nom de classeur et/ou de feuille.
Prenons la feuille FL1 dans le classeur CL1

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
Sub macro1()
Dim CL1 as Workbook
Dim FL1 as worksheet
Dim CL2 as Workbook
Dim FL2 as worksheet
     Set CL1 = Workbooks("classeur1.xls")
     Set FL1 = CL1.Worksheets("feuil1")
     Set CL2 = Workbooks("classeur1.xls")
     Set FL2 = CL1.Worksheets("feuil1")
     FL1.range("A1:C10").copy FL2.range("C1")
     Macro2 FL2
end sub
 
Sub Macro2(FL2 as worksheet)
     Msgbox FL2.Range("C1").value
end sub