Problème Modification Macro "Enregistrer"
Résolu/Fermé
Mavericku
Messages postés
5
Date d'inscription
mardi 21 juillet 2015
Statut
Membre
Dernière intervention
10 janvier 2017
-
21 juil. 2015 à 13:56
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 22 juil. 2015 à 03:53
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 - 22 juil. 2015 à 03:53
A voir également:
- Problème Modification Macro "Enregistrer"
- Enregistrer video youtube - Guide
- Enregistrer son ecran - Guide
- Audacity enregistrer son pc - Guide
- Macro logiciel - Télécharger - Organisation
- Enregistrer musique youtube - Guide
1 réponse
Frenchie83
Messages postés
2239
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
28 janvier 2023
335
22 juil. 2015 à 03:53
22 juil. 2015 à 03:53
Bonjour
Remplacez la première partie de votre macro
par
Appliquer la même méthode pour la suite
Cdlt
Remplacez la première partie de votre macro
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Worksheets("20-7-2015").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("20-7-2015").Sort.SortFields.Add Key:=Range( _
"C2:C388"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("20-7-2015").Sort
.SetRange Range("A1:F388")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
par
DerLig = [A100000].End(xlUp).Row
ActiveWorkbook.Worksheets("20-7-2015").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("20-7-2015").Sort.SortFields.Add Key:=Range( _
"C2:C" & DerLig), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("20-7-2015").Sort
.SetRange Range("A1:F" & DerLig)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Appliquer la même méthode pour la suite
Cdlt