Discussion :

[thiapa]

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!

[gFZT82]

Bonjour,

Tu peux utiliser la propriété NumberFormat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour l'exploiter ensuite en VBA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[thiapa]

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!