Trier des lignes

[Hoareau]

Bonjour

Bonjour

La macro ci-dessous me permet de trier les lignes.

Je voudrais pouvoir trier les lignes par exemple :

- ligne 3 a 10 de la colonne b a la colonne g
- ligne 5 a 20 de la colonne a a la colonne f



merci


Sub Tri_lignes()

For i = 2 To 52
Rows(i).Select
Selection.Sort Key1:=Rows(i), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next i

End Sub

 

[Cousinhub]

Re : Trier des lignes

Bonjour,

euh, il n'y aurait pas une erreur dans ton énoncé?

- ligne 3 a 10 de la colonne b a la colonne g
- ligne 5 a 20 de la colonne a a la colonne f

les lignes 5 à 10 font partie des deux "zones" à trier....

A te relire

Bonne journée

 

[Hoareau]

Re : Trier des lignes

les exemples sont deux exemples différents, je veux juste trier de telle ligne à telle ligne et de telle colonne a telle colonne


mercu

 

[ROGER2327]

Re : Trier des lignes

Bonjour Hoareau

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub Tri_lignes()
   toto 3, 10, "B", "G"
   toto 5, 20, "A", "F"
End Sub

Private Sub toto(lig1 As Long, lign As Long, col1 As String, coln As String)
Dim i As Long
For i = lig1 To lign
   Range(col1 & i, coln & i).Sort Key1:=Range(col1 & i), Order1:=xlAscending, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
      DataOption1:=xlSortNormal
Next i
End Sub[/B][/COLOR]

ROGER2327
#2464

 

[Hoareau]

Re : Trier des lignes

Impecable merci

La deuxième ligne de toto n'était pas nécessaire, a moins que quelque chose m'ai echappé.

J'ai modifié la macro pour mieux situer les zones concernées, par contre je voudrais enlever les barres du milieu de chaque ligne. Je vais essayer plus tard.

Sub Tri_lignes()
toto 3, 10, "B", "G"
'toto 5, 20, "A", "F"
End Sub

Private Sub toto(lig1 As Long, lign As Long, col1 As String, coln As String)
Dim i As Long
For i = lig1 To lign
Range(col1 & i, coln & i).Sort Key1:=Range(col1 & i), Order1:=xlAscending, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal



With Range(col1 & i, coln & i).Font
.ColorIndex = 30
End With

With Range(col1 & i, coln & i).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.Weight = xlThin
End With

Next i

End Sub

 

[ROGER2327]

Re : Trier des lignes

Re...

(...) La deuxième ligne de toto n'était pas nécessaire, a moins que quelque chose m'ai echappé.

Au moment où j'écrivais la procédure, je n'avais pas encore vu le message #3.
Pour ce qui est de la mise en forme, difficile de se rendre compte sans voir le classeur. Mais ce que vous avez écrit semble convenable. Bonne continuation...
​

ROGER2327
#2467