Discussion :

[noobie]

Bonjour vous tous!


J'y connais pas grand chose en macro (l'informatique de la fac est très loin ) et j'ai eu beau lire pleins de programme je ne trouve pas ce que je recherche donc je vais vous expliquer ce qui m'énerve ce matin au bureau (en oubliant pas la version 2000 de excel qui m'explose les yeux...).

J'ai un tableau de 5 colonnes ( nom du cours d'eau - Localisation - Moyenne interannuelle des Débits- Moyenne Mensuelle- % du rapport entre les deux moyennes), ce que je souhaiterais faire c'est à partir du tri croissant de la colonne 5 (les %) créer un nouveau tableau plus bas qui soit en accord avec le tri.. je sais pas si vous comprenez bien :p

en gros ça donnerais ça

le tableau pas trié:
La Seugne Saint-Seurin-de-Palenne [La Lijardière] 9,45 7,337 78%
La Boutonne Saint-Séverin-sur-Boutonne [Moulin de Châtre] 7,41 8,847 119%
La Seudre Saint-André-de-Lidon 1,54 0,587 38%
Le Lay Mareuil sur Lay - Dissais (Vendée) 8,47 14,39 170%
La Vienne [Ingrandes] 160 145,92 91%

et le tableau trié :
Le Lay Mareuil sur Lay - Dissais (Vendée) 8,47 14,39 170%
La Boutonne Saint-Séverin-sur-Boutonne [Moulin de Châtre] 7,41 8,847 119%
La Vienne [Ingrandes] 160 145,92 91%
La Seugne Saint-Seurin-de-Palenne [La Lijardière] 9,45 7,337 78%
La Seudre Saint-André-de-Lidon 1,54 0,587 38%

en gros que la ligne soit trié en même temps que la cellule des % de ma colonne 5

Je vous remercie d'avance pour votre aide!!!

[Lucorah]

Tudevrais pouvoir réaliser cela en utilisant un filtre automatique (autofilter, voir dans l'aide excel) et en copiant les cellules restées visibles (il y a qqchose comme xlSpecialCellsTypeVisible qui te permet de faire ça) dans la plage désirée.

Désolé je ne peux pas faire plus, je suis limité.

[sabzzz]

bonjour noobie,

Code :

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

1
2
3
4
5
6
7
8
Sub Macro1()
derLigne = Range("A65536").End(xlUp).Row + 10
Range("A2:E" & derLigne).Copy Range("A" & derLigne)
Application.CutCopyMode = False
Range("A" & derLigne & ":E" & Range("A65536").End(xlUp).Row).Select
Selection.Sort Key1:=Range("E" & derLigne + 1), Order1:=xlDescending, Header:=xlGuess _
    , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub

[noobie]

Merci pour ton code

mais ça marche pas ^^"

voilà ce que ça me donne :
http://yfrog.com/4vessaismacro2j

et si tu pouvais juste un peu m'expliquer ton code je pourrais comprendre... enfin après ça c'est pas très grave mais bon, si tu as le temps j'aimerais bien comprendre

[sabzzz]

bonjour noobie,

cette macro transfert les valeurs et non les formules.

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()
'calcul le nombre de ligne de la plage
nbLigne = Range("A65536").End(xlUp).Row
'dertermine à quel ligne seront reporter les données
Ligne = Range("A65536").End(xlUp).Row + 10
'selectionne la nouvelle plage
Range("A" & Ligne & ":E" & Ligne + nbLigne - 2).Select
 
With Selection
'transfert les valeurs et les trie
  .Value = Range("A2:E" & nbLigne).Value
  .Sort Key1:=Range("E" & Ligne + 1), Order1:=xlDescending, Header:=xlGuess _
    , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
 
End Sub

[noobie]

Merci beaucoup pour ton aide!!

je comprends mieux maintenant enfin même si il y a des termes que je comprends pas

[sabzzz]

bonjour noobie,

quel sont les termes que tu ne comprend pas ? je vais les expliquer.

[yoyo3d]

Salut à tous,
excusez moi d'intervenir dans ce post, j'ai juste une question sur la réponse proposée:

On est pas obligé de definir les variables que l'on utilise???
genre:

Code :

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

dim nbligne as integer

[sabzzz]

bonjour yoyo3d,

On est pas obligé de definir les variables que l'on utilise???

c'est toujours mieux de déclarer les variables, mais c'est obligatoire seulement s'il y a l'instruction Option Explicit dans le haut du module.

extrait de l'aide:

Si l'instruction Option Explicit apparaît dans un module, vous devez déclarer explicitement toutes les variables à l'aide des instructions Dim, Private, Public, ReDim ou Static. Si vous tentez d'utiliser un nom de variable non déclarée, une erreur se produit à la compilation.

[yoyo3d]

ok merci pour cette info...