Macro selectionnement champs ilimite
Résolu
Bonjour,
Je voudrais que vous m'aidiez avec cette macro sur Excel,
Je veux sélectionner tous les champs et les filtrer en ordre croissant.
Les ligne en dessous marche bien, mais y a un problème dans cette ligne :" .SetRange Range("A1:L60000")"
La quantité de ligne est limitée a L600000, parfois ca peut être plus que ca, j'ai essaye avec : SetRange Range("Data") ca na pas marché, alors je sais qu'y a une façon de le faire illimité, mais j'ignore comment.
Pourriez-vous m'aider un peu avec s'il vous plait.
----------------------------------------------------------------------------------------------------------
Sheets("MTTRANS").Select
ActiveWindow.ScrollRow = 1
Cells.Select
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("MTTRANS").Sort
.SetRange Range("A1:L60000")
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci déjà
Jaymes
Je voudrais que vous m'aidiez avec cette macro sur Excel,
Je veux sélectionner tous les champs et les filtrer en ordre croissant.
Les ligne en dessous marche bien, mais y a un problème dans cette ligne :" .SetRange Range("A1:L60000")"
La quantité de ligne est limitée a L600000, parfois ca peut être plus que ca, j'ai essaye avec : SetRange Range("Data") ca na pas marché, alors je sais qu'y a une façon de le faire illimité, mais j'ignore comment.
Pourriez-vous m'aider un peu avec s'il vous plait.
----------------------------------------------------------------------------------------------------------
Sheets("MTTRANS").Select
ActiveWindow.ScrollRow = 1
Cells.Select
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("MTTRANS").Sort
.SetRange Range("A1:L60000")
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci déjà
Jaymes
4 réponses
-
Sheets("MTTRANS").Select
Cells.Select
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("MTTRANS").Sort.SortFields.Add Key:=Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
derligne = sheets("MTTRANS").Range("A1:L1").End(xlDown).Row
With ActiveWorkbook.Worksheets("MTTRANS").Sort
.SetRange Range(cells(1,1),cells(derligne,12))
.Header = xlYes
.MatchCase = True
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With -
Bonjour Melannie1324,
J'ai essayé le macro, ça na pas sélectionné la ou y a une ligne vide entre les ligne d'info.
Ce que j'aimerais, c'est de passer tout les lignes vide en dessous.
Voici comment se présentent les informations:
TRANS.REFERENCE BOOKING.DATE VALUE.DATE DEPT INPUTTER
TT1318203485 7/1/2013 7/1/2013 1000 18_L.JUSTINE
TT1318202377 7/1/2013 7/1/2013 6200 40_S.MONDESIR2
___
| TT1318202315 7/1/2013 7/1/2013 1000 64_L.MANIAL
| TT1318205147 7/1/2013 7/1/2013 1000 30_P.BIGOT
|
(Je veux passer cette ligne en dessous, qq soit la quantité, qq soit la ou il se trouve)
Merci encore.
Jaymes -
Bonjour
Compte Ligne
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Modifier Range
Range("A1:L" & Nlig)
A+
Maurice -
Merci beaucoup Foo,
Ça a marché très bien !!!!
---
Jaymes
A+
