XL 2010 Aide sur fichier "conversion date"

paita

XLDnaute Nouveau
Bonjour

J'ai besoin de votre aide, car depuis 2 jours j'essaie et je n'y arrive pas, il manque un "truc"
Je souhaite que la conversion en mois se trouve B et ne m'écrase pas la colonne A
Comment puis-je procéder ? et je peux trier par "ordre décroissant" la colonne B ? je vous joins mon fichier "essai"
Mille mercis pour votre aide
 

Pièces jointes

  • Base date.xlsm
    77.3 KB · Affichages: 9

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Paita,
Tout dépend de ce que vous voulez en faire, soit avoir le N° du mois réutilisable ailleurs, soit avoir l'affichage du mois.
Dans ce dernier cas en B6 faites simplement =A6 et mettez en format personnalisé "mmmm"
1620197038755.png
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Paita, Patricktoulon,
Essayez avec :
VB:
Sub Convertir_mois()
    Dim DerLig%
    DerLig = Worksheets("Base").Range("A" & Rows.Count).End(xlUp).Row
    With Worksheets("Base").Range("B6:B" & DerLig)
        .FormulaR1C1 = "=TEXT(RC[-1],""mmmm"")"
        .Value = .Value
    End With
    With Worksheets("Base").Range("A5:B" & DerLig)
        .Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With
End Sub
Par contre le tri par "ordre décroissant" s'effectue sur la colonne A et non B puisque B ne contient que des chaines de caractères.
 

Pièces jointes

  • Base date (1).xlsm
    27.4 KB · Affichages: 2

paita

XLDnaute Nouveau
Bonjour Paita, Patricktoulon,
Essayez avec :
VB:
Sub Convertir_mois()
    Dim DerLig%
    DerLig = Worksheets("Base").Range("A" & Rows.Count).End(xlUp).Row
    With Worksheets("Base").Range("B6:B" & DerLig)
        .FormulaR1C1 = "=TEXT(RC[-1],""mmmm"")"
        .Value = .Value
    End With
    With Worksheets("Base").Range("A5:B" & DerLig)
        .Sort Key1:=Range("A6"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    End With
End Sub
Par contre le tri par "ordre décroissant" s'effectue sur la colonne A et non B puisque B ne contient que des chaines de caractères.
Merci infiniment ; une très bonne journée à vous
 

Discussions similaires

Statistiques des forums

Discussions
315 123
Messages
2 116 457
Membres
112 752
dernier inscrit
PUARAI29