Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Séparer le mois,la semaine,le joour d'une date

  • Initiateur de la discussion Initiateur de la discussion jcf6464
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jcf6464

XLDnaute Impliqué
Bonjour au forum,

J'ai beau chercher sur le net peut être pas au bon endroit!!!

je cherche des ou une formules pour séparer d'une date le,

- mois (texte) dans une textbox1 = (Reg_Mois),

-le semaine en (chiffre) dans une autre textbox2 =(Reg_Semaine),

-le jour en (texte) dans une autre textbox3 =(Reg_Jour),

en VBA dans 3 textbox séparés,

merci pour l'aide que vous apporter,

jcf6464
 

Pièces jointes

Re : Séparer le mois,la semaine,le joour d'une date

Bonjour à tous,

Peux-tu essayer ceci :

Code:
Private Sub Init_Club()
    Dim LeMax As Integer
    '  Réinitialise le formulaire pour la saisie suivante
    'LeMax = Application.WorksheetFunction.Max(WsBase.Range("A:A"))
    Me.Dossard = LeMax + 1
    Me.CertifMédical = ""
    Me.nom = ""
    Me.Prénom = ""
    Me.Adresse = ""
    Me.Ville = ""
    Me.CP = ""
    Me.Telephone = ""
    Me.Mail = ""
    Me.Licence = ""
    Me.Sexe = ""
    Me.Date_naissance = ""
    Me.Part_Anneenaiss = ""
    Me.Catégorie = ""
    Me.Club = ""
    Me.Comité = ""
    Me.LicenceD = ""
    Me.MontDécouverte = ""
    Me.F_inscription = ""
    Me.Frais = ""
    Me.Total = ""
    Me.Acompte = ""
    Me.Reste = ""
    Me.Chèque = ""
    Me.Observation = ""
    Me.Part_Code = ""
    Me.Reg_Date = Date
    Reg_Mois = Month(Date)
    Reg_Jour = Day(Date)
    Reg_Semaine = WorksheetFunction.WeekNum(Date, 2)


    Me.Reg_Date.SetFocus
End Sub

A+ à tous
 
Re : Séparer le mois,la semaine,le joour d'une date

Bonjour et bon appétit,

J'ai trouver par hasard avant de voir vos réponse ,récupérer le fichier de néné06 , qui est génial le fichier et l'homme..

cela fonctionne bien

merci tous pour votre travail

jcf6464
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…