Comment utiliser la fonction DateValue dans VBA (avec exemple)

Vous pouvez utiliser la fonction DateValue dans VBA pour renvoyer la valeur de date à partir d’une chaîne donnée.

Voici une manière courante d’utiliser cette fonction dans la pratique :

Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range("B" & i) = DateValue(Range("A" & i))
Next i
    
End Sub

Cette macro particulière extraira la valeur de date des dates et heures dans la plage A2:A7 et renverra cette valeur de date dans la plage correspondante de B2:B7 .

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

Exemple : comment utiliser la fonction DateValue dans VBA

Supposons que nous ayons la colonne de dates/heures suivante dans Excel :

Supposons que nous souhaitions extraire la date de chaque datetime dans la colonne A et l’afficher dans la colonne B.

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

Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range("B" & i) = DateValue(Range("A" & i))
Next i
    
End Sub

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

La colonne B affiche la valeur de date pour chaque datetime dans la colonne A.

Par exemple:

• La fonction DateValue renvoie le 1/01/2023 à partir du 01/01/2023 à 10:15:34
• La fonction DateValue renvoie le 03/01/2023 à partir du 03/01/2023 à 12:34:18 PM
• La fonction DateValue renvoie le 05/01/2023 à partir du 05/01/2023 à 8:23:00

Et ainsi de suite.

Remarque : Vous pouvez trouver la documentation complète de la fonction DateValue dans VBA ici .

Ressources additionnelles

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

VBA : comment comparer les dates
VBA : Comment obtenir le nom du mois à partir de la date
VBA : Nombre supérieur à la date