Vba Format Date Anglais/Français

Résolu/Fermé

Vba
Anglais

Varin - 7 avril 2016 à 18:28
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 8 avril 2016 à 15:26

Bonjour,

Je souhaite afficher une boite de saisie de date sous la forme "jj/mm/aaaa".

Lorsque l'utilisateur saisit la date sous la forme indiquée, cette date s'affiche dans le fichier sous la forme "mm/jj/aaaa"

-----------------------------------------------------------------------------------------
ActiveCell.FormulaR1C1 = InputBox("Saisir la Date sous la forme jj/mm/aaaa")
Selection.NumberFormat = "dd/mm/yyyy"
-----------------------------------------------------------------------------------------

Auriez vous une idée pour m'aider, je vous remercie d'avance.

A voir également:

Format date vba
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Format apfs - Guide
Format de menace perver - Forum Vos droits sur internet
Jm date - Forum Consommation & Internet

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 avril 2016 à 13:03

Bonjour,

Essaie ceci :

Sub test()
Dim maDate As Date, strDate As String
    strDate = InputBox("Saisir la Date sous la forme jj/mm/aaaa")
    maDate = CDate(strDate)
    ActiveCell.Value2 = maDate
End Sub

Réponse 2 / 4

Varin
8 avril 2016 à 15:09

Bonjour,

Merci, c'est impeccable !

Plus simplement

Sub Date()
Dim Date As Date
Date= InputBox("Saisir la Date sous la forme jj/mm/aaaa")
ActiveCell.Value = Date
End Sub

Cordialement

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 avril 2016 à 15:26

Plus simplement, oui.
Mais je voulais juste, par mon code, te montrer qu'une InputBox renvoie un String :

Dim strDate As String
    strDate = InputBox("Saisir la Date sous la forme jj/mm/aaaa")

Et que l'on peut convertir un String représentant une date, en Date :

maDate = CDate(strDate)

Voilà.
A++

Discussions similaires

conversion date aaaammjj en jj/mm/aaaa

Publipostage date en anglais : comment l'inverser ?

VBA Excel : Format de date

Problème publipostage date de naissance

Date anglais vers français

Date au format anglais vers français

Discussions similaires

Newsletters