Selection date du jour

G

Guest

Guest

• 4 Octobre 2013

• #2

Re : Selection date du jour

Bonjour,

Dans le module de ton UserForm 'Calendrier':

Code:

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Octobre 2013

• #3

Re : Selection date du jour

Bonjour,

Merci pour le code 🙂

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

a+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Octobre 2013

• #4

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Octobre 2013

• #5

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 4 Octobre 2013

• #6

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+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Octobre 2013

• #7

Re : Selection date du jour

Bonjour,

A toi de voir:

Code:

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 5 Octobre 2013

• #8

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

Je me trompe?

a+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Octobre 2013

• #9

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+

 

Vote positif 0 Vote négatif

R

RONIBO

XLDnaute Impliqué

• 5 Octobre 2013

• #10

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+

 

Vote positif 0 Vote négatif