VBA : Comment obtenir le mois et l’année à partir de la date

Vous pouvez utiliser la propriété NumberFormat dans VBA pour obtenir le mois et l’année à partir d’une date.

Voici une manière courante d’utiliser cette propriété dans la pratique :

Sub GetMonthYear()

Dim i As Integer

For i = 2 To 11
    Range("C" & i).Value = DateValue(Range("A" & i))
    Range("C" & i).NumberFormat = "mm/yyyy"
Next i

End Sub

Cette macro particulière recherche le mois et l’année pour chaque date dans la plage A2:A11 et affiche ces valeurs dans les cellules correspondantes dans la plage C2:C11 .

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : ajouter des jours à ce jour dans VBA

Supposons que nous ayons l’ensemble de données suivant dans Excel qui contient des informations sur les ventes réalisées par une entreprise à différentes dates :

Supposons que nous souhaitions obtenir le mois et l’année pour chaque cellule de la colonne date.

Nous pouvons créer la macro suivante pour ce faire :

Sub GetMonthYear()

Dim i As Integer

For i = 2 To 11
    Range("C" & i).Value = DateValue(Range("A" & i))
    Range("C" & i).NumberFormat = "mm/yyyy"
Next i

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

Notez que la colonne C contient le mois et l’année de chaque date correspondante dans la colonne A.

Notez que nous avons utilisé la propriété NumberFormat pour formater les dates avec deux chiffres pour les mois et quatre chiffres pour les années.

Nous pourrions choisir d’afficher ces valeurs dans un format différent si nous le souhaitons.

Par exemple, nous pourrions utiliser la syntaxe suivante pour afficher le mois avec un seul chiffre (si le mois ne contient qu’un seul chiffre) et l’année avec deux chiffres :

Sub GetMonthYear()

Dim i As Integer

For i = 2 To 11
    Range("C" & i).Value = DateValue(Range("A" & i))
    Range("C" & i).NumberFormat = "m/yy"
Next i

End Sub

Lorsque nous exécutons cette macro, nous recevons le résultat suivant :

N’hésitez pas à jouer avec les différentes options de formatage pour afficher les valeurs du mois et de l’année comme vous le souhaitez.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

Comment comparer les dates dans VBA
Comment convertir une chaîne en date dans VBA
Comment calculer les jours entre deux dates en VBA