Selection date du jour

[RONIBO]

Bonjour,

L'utilise un Contrôles Microsoft pour afficher un calendrier dans une cellule (en jaune).

J'aime beaucoup se calendrier car très pratique,

J'aimerais lui ajouter un petit truck.

Je souhaite afficher la date du jour automatiquement dans la cellule concerné lorsque j'ouvre le fichier (un peu comme "=aujourdhui()"

Je veux intégrer ceci dans mon modèle de facture.

Il faut faire juste attention car lorsque j'ouvre une facture déjà établie, il faut pas que ça me mette la date du jour mais la date à la laquelle j'ai établie la facture (sélectionné une date depuis usf).

C'est pour cela que je veux pas utiliser la formule "=aujourdhui()"

Ci joint un exemple (attention à bien vérifier que les contrôle sont bien installés) 🙂

Merci d'avance

a+

 

[Guest]

Re : Selection date du jour

Bonjour,

Dans le module de ton UserForm 'Calendrier':

Private Sub UserForm_Initialize()
    If IsDate(ActiveCell) Then
        Calendrier.MonthView1.Value = ActiveCell.Value
    Else
        Calendrier.MonthView1.Value = Date
    End If
End Sub

Bien sûr cela remplace les lignes existantes dans UserForm_Initialize

A+

 

[RONIBO]

Re : Selection date du jour

Bonjour,

Merci pour le code 🙂

Par contre j'ai pas bien compris ou le mettre 🙁

a+

 

[RONIBO]

Re : Selection date du jour

Peut être ici :

Private Sub MonthView1_DateClick(ByVal JourChoisi As Date)
On Error Resume Next
ActiveCell = JourChoisi
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell) Then
Calendrier.MonthView1.Value = ActiveCell.Value
Else
Calendrier.MonthView1.Value = Date
End If
End Sub

 

[RONIBO]

Re : Selection date du jour

Re,

Je viens de faire des tests mais ne se passe, c'est peut être moi qui se trompe ?

a+

 

[RONIBO]

Re : Selection date du jour

Re,
Désolé d'enchainer,

Je viens d'avoir une idée

Au démarrage du fichier si cellule vide mettre la date du jour, sinon laisser la date saisie auparavant

Qu'est tu en pense?
a+

 

[Guest]

Re : Selection date du jour

Bonjour,

A toi de voir:

Private Sub Workbook_Open()
    If Sheets("Feuil1").Range("F11") = "" Then Sheets("Feuil1").Range("F11") = Date
End Sub

Pour corriger la façon précédente, passe le classeur avec les lignes que codes, là où tu les as mises.

A+

 

[RONIBO]

Re : Selection date du jour

Bonjour Hasco,

Ca ne marche pas,

Regarde s'que j'ai fais :

J'ai mis sa dans ThisWorkBook :

Private Sub Workbook_Open()
If Sheets("Feuil1").Range("F11") = "" Then Sheets("Feuil1").Range("F11") = Date
End Sub

Puis dans l'USF (Calendrier) j'ai mis :

Private Sub MonthView1_DateClick(ByVal JourChoisi As Date)
On Error Resume Next
ActiveCell = JourChoisi
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell) Then
Calendrier.MonthView1.Value = ActiveCell.Value
Else
Calendrier.MonthView1.Value = Date
End If
End Sub

Je me trompe?

a+

 

[Guest]

Re : Selection date du jour

Re,

Tu ne te trompes pas.

Ci-joint le fichier modifié mais attention, comme je n'ai pas la même version du MonthView que toi, tu risque d'avoir un bug à l'ouverture du userForm. Repositionne ton monthview et laisse les lignes de codes comme elles sont.

Regarde les modifications de la macro 'Calendrier'. Une autre manière de faire.

A+

 

[RONIBO]

Re : Selection date du jour

Re,

Avec ton fichier sa fonctionne très bien 🙂

Je vais voir s'qui bloque chez moi, Je reviens vers toi si j'ai besoin,

Merci Hasco pour ton aide 😉

A+