Discussion :

[Pompaero]

Bonsoir le forum

je cherche de l'aide sur ce forum que je trouve génial.

j'ai créer (à l'aide de modèle) sur un userform un calendrier.

Sur la feuil1 j'ai :
en A1 la date choisie à l'aide de mon calendrier qui s'affiche trés bien (ex: lundi 05 mai 2013)
en A2 =A1+7
en A3 je souhaite avoir le N° semaine.

Voiçi mon souci:
La cellule A2 m'affiche #VALEUR! sachant que j'ai mis la cellule en date personnalisé jjjj jj mmmm aaaa.

Voilà les codes du calendrier sur mon UserForm.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Calendar1_click()
MsgBox"La date est elle correcte ?", vbYesNo, "Date"
Unload Me
ActiveCell.Value=Format(calendar1.Value, "dddd dd mmmm yyyy")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Privat Sub UserForm Initialize
Calendar1.Value=Date
End Sub

Merci de votre aide.

[mercatog]

Déplace la ligne 3 après la ligne 4 du premier code

[Pompaero]

Bonsoir mercatog

Merci d'avoir répondu aussi rapidemment,
J'ai effectué ton conseil mais cela ne change rien au résultat , tjr #VALEUR! qui s'affiche.
Cordialement

[mercatog]

Essaies comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Calendar1_click()
 
If MsgBox("La date est elle correcte ?", vbYesNo, "Date") = vbYes Then
    With ActiveCell
        .Value = Me.Calendar1.Value
        .NumberFormat = "dddd dd mmmm yyyy"
    End With
End If
Unload Me
End Sub

[Pompaero]

Bonjour mercatog

Super ta solution ça marche imper bien !!

Merci pour tout et à bientot la dessus.

Ps: par hazard aurai tu vu mon autre demande un peu plus bas dans les msg concernant un lien entre 2 tableaux, j'aurai besoin d'aide?

Cordialement