XL 2010 Aide sur fichier "conversion date"

[paita]

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

 

[sylvanu]

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"

 

[paita]

J'avais bien fait cela mais cela mon fichier comprend énormément de lignes et avec une macro beaucoup plus facile d'où ma demande
Merci à vous

 

[patricktoulon]

J'avais bien fait cela mais cela mon fichier comprend énormément de lignes et avec une macro beaucoup plus facile d'où ma demande
Merci à vous

Bonjour
je vois pas trop le problème avec une formule si il y a beaucoup de ligne
en lettre
=TEXTE(A6;"mmmm")
en numéro
=mois(A6)

etendre la formule vers le bas

 

[paita]

Bonjour
je vois pas trop le problème avec une formule si il y a beaucoup de ligne
en lettre
=TEXTE(A6;"mmmm")
en numéro
=mois(A6)

etendre la formule vers le bas

Mais oui je le fais actuellement mais comment faire pour que le résultat se trouve en B dans ma macro ? merci beaucoup

 

[sylvanu]

Bonjour Paita, Patricktoulon,
Essayez avec :

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.

 

[paita]

Bonjour Paita, Patricktoulon,
Essayez avec :

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