XL 2010 Aide sur fichier "conversion date"

paita · 5 Mai 2021

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 · 5 Mai 2021

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 · 5 Mai 2021

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 · 5 Mai 2021

paita à dit:
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 · 5 Mai 2021

patricktoulon à dit:
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 · 5 Mai 2021

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.

paita · 6 Mai 2021

sylvanu à dit:
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

XL 2010 Aide sur fichier "conversion date"

paita

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

paita

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

paita

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

paita

XLDnaute Nouveau

Discussions similaires