Bonjour
J'ai cette proc (pas de moi bien sûr ;-))
je souhaite pouvoir envoyer cette date dans un textbox mais au format
MM/AA, mais conserver dans les combobox le format MMM/AAAA
Merci
Vincent
Private Sub UserForm_Initialize()
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois.AddItem (Format(mois, "mmm"))
Next
Cmb_mois.Text = Format(Date, "mmm") 'affichage du mois en cours en lettres
For I = 1995 To 2020
Cmb_année.AddItem I
Next
Cmb_année.Text = Year(Date) 'affichage de l'année
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour
je souhaite pouvoir envoyer cette date Quelle date ?
dans un textbox Quel textbox ?
Sinon, pour avancer ;-) Puique tu as déjà la méthode pour afficher un format de date spécifié, il suffit de l'adapter à ton besoin : Format(Date,"MM/AA") 'ici on fomate la date du jour
Cordialement Pascal
"Vincent" ézavu.com> a écrit dans le message de news:OdCpm4$
Bonjour J'ai cette proc (pas de moi bien sûr ;-)) je souhaite pouvoir envoyer cette date dans un textbox mais au format MM/AA, mais conserver dans les combobox le format MMM/AAAA Merci Vincent
Private Sub UserForm_Initialize() For n = 1 To 12 mois = "01/" & n & "/03" Cmb_mois.AddItem (Format(mois, "mmm")) Next Cmb_mois.Text = Format(Date, "mmm") 'affichage du mois en cours en lettres For I = 1995 To 2020 Cmb_année.AddItem I Next Cmb_année.Text = Year(Date) 'affichage de l'année
Bonjour
je souhaite pouvoir envoyer cette date
Quelle date ?
dans un textbox
Quel textbox ?
Sinon, pour avancer ;-)
Puique tu as déjà la méthode pour afficher un format de date spécifié, il
suffit de l'adapter à ton besoin :
Format(Date,"MM/AA") 'ici on fomate la date du jour
Cordialement
Pascal
"Vincent" <david.vincent@lézavu.com> a écrit dans le message de
news:OdCpm4$dEHA.3680@TK2MSFTNGP11.phx.gbl...
Bonjour
J'ai cette proc (pas de moi bien sûr ;-))
je souhaite pouvoir envoyer cette date dans un textbox mais au format
MM/AA, mais conserver dans les combobox le format MMM/AAAA
Merci
Vincent
Private Sub UserForm_Initialize()
For n = 1 To 12
mois = "01/" & n & "/03"
Cmb_mois.AddItem (Format(mois, "mmm"))
Next
Cmb_mois.Text = Format(Date, "mmm") 'affichage du mois en cours en lettres
For I = 1995 To 2020
Cmb_année.AddItem I
Next
Cmb_année.Text = Year(Date) 'affichage de l'année
je souhaite pouvoir envoyer cette date Quelle date ?
dans un textbox Quel textbox ?
Sinon, pour avancer ;-) Puique tu as déjà la méthode pour afficher un format de date spécifié, il suffit de l'adapter à ton besoin : Format(Date,"MM/AA") 'ici on fomate la date du jour
Cordialement Pascal
"Vincent" ézavu.com> a écrit dans le message de news:OdCpm4$
Bonjour J'ai cette proc (pas de moi bien sûr ;-)) je souhaite pouvoir envoyer cette date dans un textbox mais au format MM/AA, mais conserver dans les combobox le format MMM/AAAA Merci Vincent
Private Sub UserForm_Initialize() For n = 1 To 12 mois = "01/" & n & "/03" Cmb_mois.AddItem (Format(mois, "mmm")) Next Cmb_mois.Text = Format(Date, "mmm") 'affichage du mois en cours en lettres For I = 1995 To 2020 Cmb_année.AddItem I Next Cmb_année.Text = Year(Date) 'affichage de l'année
