conversion format date en mois

Version imprimable

03/05/2012, 13h27
thiapa

conversion format date en mois

Bonjour,

je suis débutant dans la programmation VBA excel donc je sollicite votre soutien.

Voici ma question:

j'ai des dates en formats "jj/mm/yyyy") et je voudrai que le code parcourt la colonne qui peut etre de longueur variable, et à chaque fois qu'il me converti la date trouvé en format "mois" = "janvier" par exemple ainsi de suite et me l'affiche

Merci d'avance!

Bonjour,

Tu peux utiliser la propriété NumberFormat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub Convertir()
Dim DerLig As Long
Dim Cel As Range
    With Worksheets("Feuil1") 'Nom de feuille à adapter
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        'Convertir les dates de la colonne A
        For Each Cel In .Range("A1:A" & DerLig)
            Cel.NumberFormat = "dd mmmm yyyy"
        Next
    End With
End Sub

Cordialement

Bonjour,

Si le but est d'afficher le mois à la place de la date, il serait plus simple de modifier le format de la colonne.

Pour le code (Faire une copie de ton fichier avant de lancer car la date sera remplacé par le nom du mois)
Code:

1 2 3 4 5 6 7 Dim i As Long With Sheets("Feuil1") For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("A" & i).Value <> "" Then .Range("A" & i).Value = MonthName(Month(.Range("A" & i).Value)) Next i End With

03/05/2012, 14h23
Didier Gonard
Bonjour,

tu ne dis pas is ta colonne ne contient que des dates ou non, si ce n'est pas le cas il faut la parcourir cellules par cellules comme indiqué précédemment, la fonction IsDate peut aider alors ;)

Si tu ne veux pas perdre la date originale détaillée, le plus simple est d'appliquer aux cellules voulues le format suivant :

Code:

cells(x,y).NumberFormat = "mmm"

Pour l'exploiter ensuite en VBA :
Code:

1 2 3 4 activecell.Value 'retournera 16/05/2012 par exemple 'et activecell.Text 'retournera mai 'pour la même cellule dans le format indiqué
Si ta colonne entière est en dates, il suffit d'appliquer le format à toute la colonne.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier
04/06/2012, 09h21
thiapa

Merci

Oui Merci beaucoup en effet
j'ai utilisé le clique droit format cellule date aprés avoir mis le mode enregistrement macro.
Super pour vos coup de pouces!