Macro croissant

[foufana]

Bonjour à tous,

J'ai un souci au niveau d'une macro assez simple qui permet de faire un tri croissant sur une colonne de données. Ma macro est la suivante :

Sub CroissantBanca()

Rows("9:9").Select
Range("N11").Select
Range("A10:N258").Sort Key1:=Range("N9"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Le pb est que lorsque je rajoutes une ligne, autrement dit j'obtiens 259 lignes au lieu de 258 et que j'execute la macro; elle ne prend pas en compte la nouvelle donnée. Comment peut-on modifier cette macro pour qu'elle tri de façon croissante de la cellule A10 à la dernière valeur de la colonne?

Merci à tous pour votre aide!

 

[foufana]

Re : Macro croissant

Personne ne peut m'aider la dessus svp?

 

[_Thierry]

Re : Macro croissant

bonjour Foufana, le Forum

Humm 11 minutes tu es impatient, ce n'est pas une qualité en programmation... ni dans les forums de partage de connaissance d'ailleurs...

Essaies comme ceci

Sub CroissantBanca()
Dim MyDynamicRange As Range
 
Set MyDynamicRange = Range(Range("A10"), Range("N65536").End(xlUp))
 
MyDynamicRange.Sort Key1:=Range("N9"), Order1:=xlAscending, Header:=xlYes
 
 
End Sub
 
Bonne journée
 
[INDENT][B][I][COLOR=darkorchid]@+Thierry[/COLOR][/I][/B]

[/INDENT]

 

[Compte Supprimé 979]

Re : Macro croissant

Bonjour Foufana 😉

Sur ce forum tu peux trouver la réponse à ta question, à savoir trouver la dernière ligne d'un tableau

Sub CroissantBanca()
  Dim DerLig As Long
  DerLig = Range("A" & Rows.Count).End(xlUp).Row
  Range("A10:N" & DerLig).Sort Key1:=Range("N9"), Order1:=xlAscending, Header:=xlGuess, _
                    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Attention à l'option : DataOption1:=xlSortNormal
peut provoquer un bug si utilisation sur Office 2000

A+

 

[foufana]

Re : Macro croissant

Merci beaucoup les gars! vous assurez ! A plus