Comment entrer une date avec VBA sous Excel

Question

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

madjon6 · Answer

Bonjour,

Je souhaite rentrer également une date en vba dans un fichier Excel dans un msgbox

Merci pour votre aide

LePierre · Answer

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

Grobibi34 · Answer

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

Comment entrer une date avec VBA sous Excel

3 réponses

Discussions similaires

Newsletters