Vba Format Date Anglais/Français

Résolu

Vba
Anglais

Varin -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 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.

Afficher la suite

A voir également:

Vba format date français
Lire le coran en français pdf - Télécharger - Histoire & Religion
Format epub - Guide
Format factory - Télécharger - Conversion & Codecs
Hp usb disk storage format tool - Télécharger - Stockage
Format apfs - Guide

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

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 Statut Modérateur Dernière intervention 2 761

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

SOMME SI COULEUR

NB.SI critère couleur

somme sous condition de couleur de cellule

remettre ces lettres dans le bon ordre

Cannot read property 'addEventListener' of null

application pour traduire la vidéo anglais à francais

Votre réponse

Discussions similaires