XL 2010 Jour et N° du jour suivant date

[Ternoise]

Bonjour à tous
Dans TextBox1 j'ai une date.
J'aimerais récupérer dans TextBox2, le jour correspondant (Lundi, Merdi, etc...) et dans TextBox3 le N° du jour (1er, 2ème, 3ème, 4ème, 5ème) jour du mois

Ex : Le 25/12/2019 c'est un mercredi (TextBox2) et le 4ème (TextBox3) du mois

Joyeux Noël !

David

 

[danielco]

Bonjour,

Pour TextBox2 :

Me.TextBox2.Text = Format(Me.TextBox1.Text, "dddd")

Pas compris pour TextBox3 ?

Cordialement.

Daniel

 

[Ternoise]

Bonjour Daniel

Merci de ta réponse.

Le TextBox3 doit recevoir (1er, 2ème, 3ème, 4ème, 5ème) qui correspond au N° du jour du mois

Exemple : Aujourd'hui c'est le "4ème" mardi du mois donc TextBox3 doit recevoir "4ème"

 

[Ternoise]

Private Sub UserForm_Initialize()

TextBox1.Text = UCase(Format(Now, "dddd dd mmmm yyyy"))
 
Me.TextBox2.Text = Format(Me.TextBox1.Text, "dddd")

 'TextBox3.Text =
 
 End Sub

Je dois mal m'y prendre !

 

[M12]

Bonjour à tous,

Une fonction à adapter pour tes Textboxs
Fonctionne sur une feuille

Function NB_Mercredi(Date_Début As Range, Date_Fin As Range) As Long
    n = 0
    For i = Date_Début.Value To Date_Fin.Value
        If Application.WorksheetFunction.Weekday(i) = 4 Then
            n = n + 1
        End If
    Next
    NB_Mercredi = n
End Function

 

[Ternoise]

Bonjour M12

Peut-on éviter une fonction car j'ai des autres TextBoxs dans mon formulaire ?

 

[Dranreb]

Bonsoir.
Je dirais :

Dim D As Date, S As Long
D = Date
S = (Day(D) - 1) \ 7 + 1
TextBox2.Text = Format(D, "dddd")
TextBox3.Text = S & IIf(S = 1, "er", "ème")

 

[Ternoise]

Bonjour
Merci c'est bien ce qui est recherché.
Par contre TextBox2 et TextBox3 sont lié à la date dans TextBox1 qui est alimenté par un retour d'un calendrier.

Donc à chaque changement de TextBox1, TextBox2 et TextBox3 doivent changer

Merci de votre aide

 

[Dranreb]

Bonjour.
Alors prenez la date de Texbox1. Mais il ne faut jamais saisir le nom du jour de la semaine dans les textes à retransformer en dates. Alors pour ne pas induire en erreur les gens sur ce qu'il faut saisir, ne l'y mettez pas non plus à l’initialisation de l'UserForm.
Moi je mettrais plutôt un Label juste en dessous de la TextBox1, nommé par exemple LabInfoDate, et :

Private Sub TextBox1_Change()
   Dim D As Date, S As Long
   On Error Resume Next
   D = CDate(TextBox1.Text)
   If Err Then LabInfoDate.Caption = "Date non valide": Exit Sub
   On Erreur GoTo 0
   S = (Day(D) - 1) \ 7 + 1
   LabInfoDate.Caption = S & IIf(S = 1, "er ", "ème ") & Format(D, "dddd ""de"" mmmm yyyy")
   End Sub

 

[Ternoise]

Re

Je dois m'y perdre entre les formats de date/texte

Je joins le fichier simplifié !

A l'ouverture le TextBox donne la date du jour

Si on double Clic dans ce Textbox, ouverture d'un calendrier et mise à jour des Textbox

L'idée c'était de mettre également à jour les combo en même temps

Merci de cette aide précieuse

 

[Dranreb]

Non mais mettez donc des dates normales partout, jj/mm/aa, y compris dans la base, et utilisez mon complément pour mettre la base à jour, et mon calendrier.

ComboBox liées et contrôles associés

Définit deux types d'objets à évènements: ComboBoxLiées prenant en charge les ComboBox pour la saisie des données d'identification de la ligne à créer, puis, ultérieurement, à consulter voire modifier, et ControlsAssociés prenant en charge les...

www.excel-downloads.com

Et mettez la base sous forme de tableau.

Je ne vais certainement pas intervenir sur tout ce bricolage.

 

[Dranreb]

Apparemment ce sont plutôt des informations s'appliquant pour n'importe quel mois de n'importe quelle année.
Si ça ne dérange pas d'avoir les noms de jours par ordre alphabétique dans les listes, et non dans l'ordre de la semaine, les modifications minimales consisteraient simplement à ne plus inscrire nulle part le jour de la semaine dans la TextBox13 (Que j'appellerais TBxDateJour ou quelque chose comme ça. Il fait aussi partie des conditions qui ne me donnent pas envie d'intervenir dans votre classeur le fait que les contrôles n'ont pas de nom mnémonique commençant par une majuscule précédé d'un trigramme composé le plus souvent des 1ère et dernière majuscules du nom de type de contrôle et de sa dernière lettre). Sans ce nom de jour, le texte est reconvertible en date.

 

[Ternoise]

Je suis perdu ! Voici un fichier version Ultra Lite pour recommencer à 0 !

Oui en fait, c'est plutôt un filtrage de valeur "Texte" mais basé sur une vrai date (TextBox13)


"" ... le fait que les contrôles n'ont pas de nom mnémonique ""
C'est un fichier trouvé sur internet que je n'ose pas encore trop modifier mais que j'essai d'adapter à mon projet !

"" ...Et mettez la base sous forme de tableau ""
???

"" ...mettez donc des dates normales partout, jj/mm/aa, y compris dans la base,""
Il me faut la visualisation de ce format " Jeudi 26 décembre 2019" et voir le nom du jour ("Jeudi") et le N° du jour dans le mois ("4ème")

Merci de votre patiente !

 

[Dranreb]

Ne donnez jamais à une variable locale le nom d'un contrôle.

 

[Dranreb]

Il me faut la visualisation de ce format " Jeudi 26 décembre 2019"

Bien compris, mais dans la TBxJour, c'est non, vous ne l'aurez pas, un point c'est tout.
Mais puisque vous avez pris la peine d'installer un de mes calendriers, je vous retourne votre classeur avec les instructions qui l'utilisent