Macro selectionnement champs ilimite
Résolu/Fermé
jaymeslaguerre
Messages postés
13
Date d'inscription
dimanche 28 juillet 2013
Statut
Membre
Dernière intervention
8 octobre 2013
-
2 août 2013 à 15:09
jaymeslaguerre Messages postés 13 Date d'inscription dimanche 28 juillet 2013 Statut Membre Dernière intervention 8 octobre 2013 - 2 août 2013 à 18:51
jaymeslaguerre Messages postés 13 Date d'inscription dimanche 28 juillet 2013 Statut Membre Dernière intervention 8 octobre 2013 - 2 août 2013 à 18:51
A voir également:
- Macro selectionnement champs ilimite
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
- Macro souris ✓ - Forum Windows
4 réponses
melanie1324
Messages postés
1505
Date d'inscription
vendredi 25 mai 2007
Statut
Membre
Dernière intervention
31 janvier 2018
154
2 août 2013 à 15:54
2 août 2013 à 15:54
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
jaymeslaguerre
Messages postés
13
Date d'inscription
dimanche 28 juillet 2013
Statut
Membre
Dernière intervention
8 octobre 2013
2 août 2013 à 17:13
2 août 2013 à 17:13
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
Bonjour
Compte Ligne
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Modifier Range
Range("A1:L" & Nlig)
A+
Maurice
Compte Ligne
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Modifier Range
Range("A1:L" & Nlig)
A+
Maurice
jaymeslaguerre
Messages postés
13
Date d'inscription
dimanche 28 juillet 2013
Statut
Membre
Dernière intervention
8 octobre 2013
2 août 2013 à 18:51
2 août 2013 à 18:51
Merci beaucoup Foo,
Ça a marché très bien !!!!
---
Jaymes
A+
Ça a marché très bien !!!!
---
Jaymes
A+
