Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format de la date dans textbox

Format de la date dans textbox

1 réponse
Avatar
Bruno ALEMANNO
Bonjour le groupe,

J'ai reçu de Papou la solution à mon pb de UserForm et je l'en remercie
le voici

Private Sub CbRecherche_Change()
Dim lig&
lig = Me.CbRecherche.ListIndex + 1
Me.TbAnniv.Value = Feuil1.Cells(lig, 10).Value
Me.TbAge.Value = Feuil1.Cells(lig, 11).Value + 1
End Sub

Ma question est
Comment donné à la valeur du TbAnniv le format ex 18 juin pour
18/06/61
et sans êtres trop exigent ex 18
juin "cette"année ce qui donnerait 18 juin 2005
Sachant que ce n'est pas sont année de naissance mais l'année actuelle.

--
Merci au groupe pour vos réponses
Amicalement
Bruno
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
MichDenis
Bonjour Bruno,


Me.TbAnniv.Value = Format(cdate(Feuil1.Cells(lig, 10).Value),"dd mmm")


Salutations!




"Bruno ALEMANNO" a écrit dans le message de news: %
Bonjour le groupe,

J'ai reçu de Papou la solution à mon pb de UserForm et je l'en remercie
le voici

Private Sub CbRecherche_Change()
Dim lig&
lig = Me.CbRecherche.ListIndex + 1
Me.TbAnniv.Value = Feuil1.Cells(lig, 10).Value
Me.TbAge.Value = Feuil1.Cells(lig, 11).Value + 1
End Sub

Ma question est
Comment donné à la valeur du TbAnniv le format ex 18 juin pour
18/06/61
et sans êtres trop exigent ex 18
juin "cette"année ce qui donnerait 18 juin 2005
Sachant que ce n'est pas sont année de naissance mais l'année actuelle.

--
Merci au groupe pour vos réponses
Amicalement
Bruno