Comment entrer une date avec VBA sous Excel

Fermé
Signaler
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008
-
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008
-
Bonjour, tout le monde.

Je suis toujours en train de réaliser mon petit outil pour éditer un planning de façon automatique.

Pour entrer les date de début et les dates de fin du travaux j'utilisai jusqu'à maintenant le controle MonthView pour pouvoir récupérer ces dates avec la fonction :

Range("B3").Value = MonthView1.Value

Je vien de me rendre compte que ce contrôle ne marché pas sur tout les PC.

Je voulais donc savoir si il était possible d'enregistrer mon document Excel avec ce controle.

Sinon j'avais penser à un système simple de textbox, où l'utilisateur devra utiliser la syntaxe suivante:

jj/mm/aaaa

Le problème c'est que Excel est développer par des américains et lui il comprend mm/jj/aaaa ce qui est plutot contraignant.

Merci pour toutes vos remarques et réponses

Cordialement

Grobibi34

3 réponses

Messages postés
259
Date d'inscription
mercredi 2 janvier 2008
Statut
Membre
Dernière intervention
30 novembre 2017
77
Bonjour,

Je souhaite rentrer également une date en vba dans un fichier Excel dans un msgbox

Merci pour votre aide
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
333
bonjour
j'utilise le contrôle supplémentaire "Contrôle Calendrier 10.0" que je place dans un UserForm nommé "Grille_Calendrier" avec un bouton "OK" et un "Quitter"

Voici le code à placer dans le UserForm :
Private Sub OK_Click()
If Grille_Calendrier.Calendar1.Day = 0 Then
Beep
Exit Sub
End If
Me.Hide
End Sub

Private Sub Quitter_Click()
Grille_Calendrier.Calendar1.Day = 0
Me.Hide
End Sub

Private Sub UserForm_Activate()
'Initialisation à la date du jour
Grille_Calendrier.Calendar1.Day = Day(Date)
Grille_Calendrier.Calendar1.Month = Month(Date)
Grille_Calendrier.Calendar1.Year = Year(Date)
Grille_Calendrier.Caption = "Choisissez une date et appuyez sur OK "
End Sub

Voici le code à placer dans un module:
Sub test_calendrier()
Grille_Calendrier.Show
Jour = Grille_Calendrier.Calendar1.Day
Mois = Grille_Calendrier.Calendar1.Month
An = Grille_Calendrier.Calendar1.Year
Unload Grille_Calendrier

'MsgBox ("Vous avez choisi le : " & Jour & "/" & Mois & "/" & An)
If Jour <> 0 Then
Cells(11, 7).Value = CDate(Jour & "/" & Mois & "/" & An)
Else
Cells(11, 7).Value = ""
End If
Beep
End Sub
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008
30
Oui merci Lepierre j'arrive à faire marché ta fonction, sur mon PC mais elle ne s'adapte pas non plus à toutes les machines comme ma fonction MonthView...

Donc pour moi se n'est pas la meilleur solution, je ne vois que une façon de procéder, une textbox... mais j'ai toujours le meme problème excel inverse le jour et le mois.

Merci encore pour ta participation Lepierre

Cordialement

Grobibi34
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
333 >
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008

j'avais récupéré je ne sais ou un fichier nommé MPDatePicker.xls (réalisé par Michel Pierron) qui utilise un calendrier réalisé de toute pièce dans un UserForm.
Comment t'envoyer ce fichier ?
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008
30 >
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012

Avec https://www.cjoint.com/ si ton document fais moin de 500ko sinon je te ferai parvenir mon adresse perso
Messages postés
249
Date d'inscription
samedi 8 mars 2008
Statut
Membre
Dernière intervention
2 août 2012
333 >
Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008

Messages postés
83
Date d'inscription
lundi 3 mars 2008
Statut
Membre
Dernière intervention
29 mai 2008
30
Wouhaou, alors là c'est du VBA de haut vol...

Je suis pas sur d'avoir les compétences requises pour me servir de sa... je vais essayer de l'adapter à mon document.

Merci LePierre pour tes réponses et pour le temps que tu me consacres.

Cordialement

grobibi34