Trier par rapport a la date courante vba
hshs
-
thev Messages postés 1986 Date d'inscription Statut Membre Dernière intervention -
thev Messages postés 1986 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
est ce qu'il y aurait quelqun qui sait comment on peut trier un range en fonction d'une année qui doit etre l annee courante c a d si je trie aujourdhui ca sera trié en fonction de 2016 et en 2017 ca sera trié en fonction de 2017..?
Merci
est ce qu'il y aurait quelqun qui sait comment on peut trier un range en fonction d'une année qui doit etre l annee courante c a d si je trie aujourdhui ca sera trié en fonction de 2016 et en 2017 ca sera trié en fonction de 2017..?
Merci
A voir également:
- Trier par rapport a la date courante vba
- Excel trier par ordre croissant chiffre - Guide
- Plan rapport de stage - Guide
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
- Logiciel pour trier les photos automatiquement - Guide
- Publipostage date inversée ✓ - Forum Word
5 réponses
Bonjour,
Ce que j'essaye de faire c'est de trier mon tableau selon les valeurs des pays de l'annee courante cad il doit selectiner l'annee 2016 et trier les valeurs des pays par ordre descendant
2014 2015 2016 2017
FR 0 5 22 1
AT 0 6 3 0
AU 0 0 14 0
BE 0 4 3 0
BG 0 5 0 0
BY 0 0 0 0
CA 0 0 1 0
CH 0 0 10 0
CY 0 0 0 0
CZ 1 11 30 0
DE 0 12 0 0
DK 0 0 20 0
EE 0 2 1 0
EL 0 3 18 0
ES 0 8 13 0
EU 0 0 14 0
J ai fait ce code mais ca marche pas, Est ce que vous pourrez m'aider?
f (CurCell.Value = Year(Now())) = True Then
Range("D327:D375").Select
ActiveWorkbook.Worksheets("Ratios").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ratios").Sort.SortFields.Add Key:=Range( _
"D328:D375"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Ratios").Sort
.SetRange Range("D327:D375")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Ce que j'essaye de faire c'est de trier mon tableau selon les valeurs des pays de l'annee courante cad il doit selectiner l'annee 2016 et trier les valeurs des pays par ordre descendant
2014 2015 2016 2017
FR 0 5 22 1
AT 0 6 3 0
AU 0 0 14 0
BE 0 4 3 0
BG 0 5 0 0
BY 0 0 0 0
CA 0 0 1 0
CH 0 0 10 0
CY 0 0 0 0
CZ 1 11 30 0
DE 0 12 0 0
DK 0 0 20 0
EE 0 2 1 0
EL 0 3 18 0
ES 0 8 13 0
EU 0 0 14 0
J ai fait ce code mais ca marche pas, Est ce que vous pourrez m'aider?
f (CurCell.Value = Year(Now())) = True Then
Range("D327:D375").Select
ActiveWorkbook.Worksheets("Ratios").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Ratios").Sort.SortFields.Add Key:=Range( _
"D328:D375"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Ratios").Sort
.SetRange Range("D327:D375")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Bonjour,
Essayer ce code (en supposant que les années se trouvent au début de la plage considérée) :
Essayer ce code (en supposant que les années se trouvent au début de la plage considérée) :
Sub tri()
With ActiveWorkbook.Worksheets("Ratios").Range("D327:D375")
Set cellule_année = .Find(Year(Date))
.Sort key1:=cellule_année, order1:=xlAscending, Header:=xlYes
End With
End Sub
ca n a pas marché ca trie pas
en plus je veux savoir comment faire pour que le programme selectionne la date courante lui meme et qu il selectionne le range a trier et non pas lui donner la wone comme ce que j qi fait D327:D375
en plus je veux savoir comment faire pour que le programme selectionne la date courante lui meme et qu il selectionne le range a trier et non pas lui donner la wone comme ce que j qi fait D327:D375
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je crois comprendre que les années ne se trouvent pas à la ligne 327.
De plus, je pense qu'il faut sélectionner la plage A327:D375 et non D327:D375.
ci-dessous nouveau code
De plus, je pense qu'il faut sélectionner la plage A327:D375 et non D327:D375.
ci-dessous nouveau code
Sub tri()
' recherche de la cellule contenant l'année en cours dans la plage de la feuille utilisée
Set cellule_année = ActiveWorkbook.Worksheets("Ratios").UsedRange.Find(Year(Date))
'tri de la plage A327:D375 avec pour clé la première cellule se trouvant dans la colonne de l'année
With ActiveWorkbook.Worksheets("Ratios").Range("A327:D375")
.Cells.Sort key1:=.Cells(1, cellule_année.Column), order1:=xlAscending, Header:=xlNo
End With
End Sub
--