Calendrier dans cellule (avec format personnalisé)...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais une modif sur ce calendrier dans cellule. La modif concerne le format date lors de la validation. J'aimerais un format personnalisé...

voir fichier

Merci pour le temps que vous voudrez bien me consacrer.

Bien à vous.
Christian

 

[Paritec]

Re : Calendrier dans cellule (avec format personnalisé)...

Bonjour Christian0258 le forum
oui c'est bien ce que ton fichier fait de mettre la date au format "dddd dd mmmm yyyy"
alors c'est quoi ta demande? rajouter date de livraison avant la date?
a te relire
a+
papou🙂

 

[JCGL]

Re : Calendrier dans cellule (avec format personnalisé)...

Bonjour à tous,
Salut Christian,
Salut Papou,

Tu veux le format "Date de livraison :" jjjj jj mmmm aaaa pour toutes les cellules dates ?

A++
A + à tous

 

[Christian0258]

Re : Calendrier dans cellule (avec format personnalisé)...

Salut, Paritec, JCGL,

Oui, mettre "Datede livraison" avant la date, soit le format "Date de livraison :" jjjj jj mmmm aaaa

à vous lire,
merci pour votre aide.

Christian

 

[JCGL]

Re : Calendrier dans cellule (avec format personnalisé)...

Bonjour à tous,

Peux-tu essayer :

Private Sub bruno_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 8 Or Y > 8 Then bruno.BackColor = &H0&: Exit Sub
fait 'va a macro "fait"
bruno.BackColor = &HFF0000
mmaa = CDate("01 " & UserForm1.Label50)
If bruno.ForeColor = 12632256 And Right(bruno.Name, Len(bruno.Name) - 5) > 20 Then
mmaa = mmaa + 33
End If
If bruno.ForeColor = 12632256 And Right(bruno.Name, Len(bruno.Name) - 5) < 20 Then
mmaa = mmaa - 20
End If
ActiveCell.Value = CDate(bruno.Caption & " " & Month(mmaa) & " " & Year(mmaa))
ActiveCell.NumberFormat = """Date de livraison :"" dddd dd mmmm yyyy"
UserForm1.Hide
End Sub

A++
A + à tous

 

[Victor21]

Re : Calendrier dans cellule (avec format personnalisé)...

Bonjour Christian0258, Papou, Jean-Claude.🙂

Si j'ai bien compris, dans le module Feuil1, Worksheet_SelectionChange, rajoute le format désiré :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.NumberFormat = "m/d/yyyy" Or _
Target.NumberFormat = "mm/dd/yyyy" Or _
Target.NumberFormat = """Date de livraison:"" dddd dd mmmm yyyy" Or _
Target.NumberFormat = "dddd dd mmmm yyyy" Then
'If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
X = ActiveCell.Value
UserForm1.Label50.Caption = IIf(X <> "", Format(X, "mmmm yyyy"), Format(Date, "mmmm yyyy"))
fait
End If
End Sub

 

[Christian0258]

Re : Calendrier dans cellule (avec format personnalisé)...

Re, le forum,

Merci Jean Claude et Patrick pour votre boulot.

ça fonctionne mais une seule fois...en effet si je valide la date le format est bon...mais je ne peux plus
modifier la cellule...le calendrier n'est plus appelé...

pouvez-vous me dire.

bien à vous,
Christian

 

[Victor21]

Re : Calendrier dans cellule (avec format personnalisé)...

Re,

Fonctionne chez moi en ajoutant un espace dans le format ajouté dans la macro entre "livraison" et "les deux points". L'affichage du calendrier ne se fait que si le format de la cellule cliquée est strictement identique à l'un des formats testés dans la macro.

 

[Christian0258]

Re : Calendrier dans cellule (avec format personnalisé)...

Re, le forum, Patrick,

Ok bien reçu, modif effectuée, ça fonctionne parfaitement.

Un grand merci à vous...

Bien amicalement,
Christian