Macro selectionnement champs ilimite
Résolu
jaymeslaguerre
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
jaymeslaguerre Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
jaymeslaguerre Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro selectionnement champs ilimite
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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
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
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