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 date et combobox

Format date et combobox

11 réponses
Avatar
Lionel B
Bonsoir
j'essaie de bricoler un calendrier avec des éléments récupérés par ci par
là ;-)
je souhaite envoyer dans la cellule active au format date les éléments des 3
combobox
Mais évidement, cela ne fonctionne pas
Merci de votre aide
LB

Private Sub CommandButton1_Click()
ActiveCell = Format(ComboBox1 & ComboBox2 & ComboBox3, "dd/mm/yy")
End Sub


Private Sub UserForm_Initialize()
'le jour
For Mavar = 1 To 31
ComboBox1.AddItem Mavar
Next
ComboBox1.Text = Day(Date) 'affichage du jour

'le mois
For x = 1 To 12
ComboBox2.AddItem (Format(DateSerial(0, x, 1), "mmmm"))
Next
ComboBox2.Text = Format(Date, "mmmm") 'affichage du mois en cours en lettres

'l'année
For Mavar = 2000 To 2020
ComboBox3.AddItem Mavar
Next
ComboBox3.Text = Year(Date) 'affichage de l'année

End Sub
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
1 2
Avatar
Lionel B
Bonjour Lsteph
Je répondais à AnonymousA
pour le contrôle calendar
Sinon, je suis allé sur le site, et j'ai trouvé exactement ce que je cherché
Encore merci


"LSteph" a écrit dans le message de news:
eW$
re,
calfr2 fonctionne fort bien sous 97.
http://frederic.sigonneau.free.fr/calendriers

Amicalement
lSteph

"Lionel B" a écrit dans le message de news:

Merci beaucoup à tous
le problème est que j'ai Excel 97 donc point de calendar sur le userform
Je teste.


"ClémentMarcotte" a écrit dans le message
de news:
activecell.value = dateserial(combo de l'année.value ,combo du
mois.value,
combo du jour.value)

Formater la cellule en date


"Lionel B" a écrit dans le message de
news:
Bonsoir
j'essaie de bricoler un calendrier avec des éléments récupérés par ci
par
là ;-)
je souhaite envoyer dans la cellule active au format date les éléments
des
3

combobox
Mais évidement, cela ne fonctionne pas
Merci de votre aide
LB

Private Sub CommandButton1_Click()
ActiveCell = Format(ComboBox1 & ComboBox2 & ComboBox3, "dd/mm/yy")
End Sub


Private Sub UserForm_Initialize()
'le jour
For Mavar = 1 To 31
ComboBox1.AddItem Mavar
Next
ComboBox1.Text = Day(Date) 'affichage du jour

'le mois
For x = 1 To 12
ComboBox2.AddItem (Format(DateSerial(0, x, 1), "mmmm"))
Next
ComboBox2.Text = Format(Date, "mmmm") 'affichage du mois en cours en
lettres


'l'année
For Mavar = 2000 To 2020
ComboBox3.AddItem Mavar
Next
ComboBox3.Text = Year(Date) 'affichage de l'année

End Sub
















1 2