Combobox-Calendrier

Résolu

Usgpa -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention - 28 janv. 2010 à 15:56

Bonjour,

Existerait-il une formule pour qu'une combobox ait comme rowsource le calendrier ?

Afficher la suite

A voir également:

Combo box in excel 2010
Mon calendrier - Télécharger - Santé & Bien-être
Logiciel gratuit conversion calendrier républicain - Télécharger - Études & Formations
Calendrier partagé google - Guide
Synchroniser calendrier outlook et gmail - Guide
Logiciel calendrier personnalisé gratuit - Télécharger - Organisation

31 réponses

Réponse 1 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

quand tu as ta boîte à outils, clique droit et clic sur "contrôles supplémentaires"

coche la case "microsoft Date and Time Picker control 6.0"
et valide avec ok

L'outil DTPicker apparaît alors dans ta boîte à outils

C'est un calendrier complet. En cliquant dessus tu accèdes au mois en cours mais tu peux naviguer d'un mois sur l'autre. Vraiment pratique

Réponse 2 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Bon grâce à pijaku j'ai réussi à te faire ta macro (et par la même occasion je l'utilise aussi sur un autre outil)

Voilà ton code

Private Sub CommandButton1_Click()

If TextBox1.TextLength = 6 Then
Dim jour As String, annee As String
Dim datedujour As String, mois As String
jour = Left(TextBox1, 2)
mois = Mid(TextBox1, 3, 2)
annee = Right(TextBox1, 2)
datedujour = jour & "/" & mois & "/" & annee
[a1] = CDate(datedujour)
Unload UserForm1

Else: MsgBox ("Veuillez rentrer la date au format jjmmaa")
End If

End Sub

Usgpa

Merci a toi et à Pijaku !!!

Juste une petite question, sachant que la donnée en question sera copié via la textbox vers la cellule (Feuil2.Range("F" & i).Value), je remplace a1 par ce qui est entre parenthèse ?

J'ai tenté : Private Sub CommandButton1_Click()

If TextBox43.TextLength = 6 Then
Dim jour As String, annee As String
Dim datedujour As String, mois As String
jour = Left(TextBox43, 2)
mois = Mid(TextBox43, 2)
annee = Right(TextBox43, 2)
datedujour = jour & "/" & mois & "/" & annee

Else: MsgBox ("Veuillez rentrer la date au format jjmmaa")
Exit Sub
End If
If TextBox4.TextLength = 6 Then
jour = Left(TextBox4, 2)
mois = Mid(TextBox4, 3, 2)
annee = Right(TextBox4, 2)
datedujour = jour & "/" & mois & "/" & annee

Else: MsgBox ("Veuillez rentrer la date au format jjmmaa")
Exit Sub
End If
Dim i As Integer
i = 1
While Feuil2.Range("A" & i) <> ""
i = i + 1
Wend

Feuil2.Range("A" & i).Value = UserForm2.TextBox1
Feuil2.Range("B" & i).Value = CDate(datedujour)
Feuil2.Range("B" & i).Value = UserForm2.TextBox4
Feuil2.Range("C" & i).Value = UserForm2.TextBox69
Feuil2.Range("D" & i).Value = UserForm2.TextBox70
Feuil2.Range("F" & i).Value = CDate(datedujour)
Feuil2.Range("F" & i).Value = UserForm2.TextBox43

Echec... si vous avez une idée ...

Réponse 3 / 31

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Pas de chance...
Retentons :
Dites moi d'abord... Dans votre classeur vous avez bien une feuille nommé Feuil2?

Dim i As Integer
If TextBox43.TextLength <> 6 Then
MsgBox ("Veuillez rentrer la date au format jjmmaa") 
Exit Sub 
End If 
If TextBox4.TextLength <> 6 Then 
MsgBox ("Veuillez rentrer la date au format jjmmaa") 
Exit Sub 
End If 
With Sheets("Feuil2")
i = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Range("A" & i).Value = UserForm2.TextBox1 
.Range("B" & i).Value = CDate(Format(UserForm2.TextBox4 , "@@/@@/@@"))
.Range("C" & i).Value = UserForm2.TextBox69 
.Range("D" & i).Value = UserForm2.TextBox70 
.Range("F" & i).Value = CDate(Format(UserForm2.TextBox43 , "@@/@@/@@"))
End With

Réponse 4 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Tu peux mettre un DtPicker. C'est beaucoup plus pratique (petit calendrier qui s'affiche sous forme de combobox et qui affiche le mois en cours quand on clique dessus)

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 31

Usgpa

Comment programme ton ce Dt picker ? Permet-il seulement de séléectionenr une date du mois en cours ?

Réponse 6 / 31

Usgpa

Merci, malheureusement au travail, mon excel est trop vieux, je pense. Il n'est pas dans les autres programmes.

Réponse 7 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

ça n'est pas sur excel mais sur visual basic.

Quand tu as ta boîte à outil où tu sélectionnes tes combobox, fais la manip que je t'ai dite.

Perso je suis sur 2003

Réponse 8 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Ou alors sur excel,

affichage, barre d'outils, boites à outils contrôle, autres contrôles , microsoft date and time picker (a dessiner où tu désires

Réponse 9 / 31

Usgpa

J'avais bien compris dans ton premier message où le chercher mais malheureusement il n'apparait pas dans la liste des "contrôles supplémentaires". Ni sur Vba ni sur Excel (97 je pense)...

Réponse 10 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

ah mince!
et contrôle calendrier?

Réponse 11 / 31

Usgpa

Non plus... bon c'est pas grave je vais essayer de me débrouiller autrement ! Merci tout de même de l'astuce dont je me servirai quand je serai sur un logiciel plus récent. Merci !

Réponse 12 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Le souci avec une combobox, c'est qu'elle te déroule une liste. Et dans le cas d'un calendrier avec un début et une fin non définis, ta liste va être immense

Réponse 13 / 31

Usgpa

Penses-tu par exemple, qu'il serait possible de préformater une textbox afin de ne faire saisir que les chiffres entre les "/". L'utilisiteur ne peut rentrer que 6 chiffres avant et après les slash qui séparent, les jours des mois et les mois des années du type JJ/mm/aa

Réponse 14 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

tu veux dire que l'utilisateur tape par exemple 280110 dans sa textbox
et cela affiche 28/01/10 dans la case de ton choix?

Réponse 15 / 31

Usgpa

En fait j'imaginais avoir les "/" déjà dans la textbox mais ta proposition me conviendrais très bien.

Réponse 16 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Ben attends je regarde mais pas sûr que je réussisse

Réponse 17 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

Bon je n'arrive pas à sélectionner un endroit du texte pour y insérer les "/". J'ai déjà réussi à faire en sorte que l'utilisateur soit obligé de taper au moins 6 caractères (280110).

Private Sub CommandButton1_Click()
If TextBox1.TextLength > 6 Then MsgBox ("Veuillez rentrer une date au format jjmmaa")
If TextBox1.TextLength < 6 Then MsgBox ("Veuillez rentrer une date au format jjmmaa")

End Sub

J'essaie d'insérer mes / mais je ne sais pas si jy arriverai

Réponse 18 / 31

Usgpa

Ne t'inquiètes pas Farfadet, je pense que cela suffira si tu sais comment le faire copier dans une cellule avec les "/"., je n'aurais pas besoin de les avoir dans la textbox mais je ne sais pas si c'est faisable.

Réponse 19 / 31

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour à vous,
Je ne connais pas les tenant et les aboutissants de cette demande de calendrier mais sous google, en tapant excel calendrier, vous pourrez trouver votre bonheur.
En exemple, trouvé ici : https://apprendreexcel.com/
Ce magnifique objet :
https://www.cjoint.com/?bCn3PwLsL2

A vous lire

Réponse 20 / 31

Farfadet88 Messages postés 6295 Date d'inscription Statut Membre Dernière intervention 1 370

essaie ceci

If TextBox43.TextLength = 6 Then
Dim jour As String, annee As String
Dim datedujour As String, mois As String
jour = Left(TextBox43, 2)
mois = Mid(TextBox43, 2)
annee = Right(TextBox43, 2)
datedujour = jour & "/" & mois & "/" & annee

Else: MsgBox ("Veuillez rentrer la date au format jjmmaa")
Exit Sub
End If

If TextBox4.TextLength = 6 Then
Dim jour As String, annee As String
Dim aujourdhui As String, mois As String
jour = Left(TextBox4, 2)
mois = Mid(TextBox4, 3, 2)
annee = Right(TextBox4, 2)
aujourdhui= jour & "/" & mois & "/" & annee

Else: MsgBox ("Veuillez rentrer la date au format jjmmaa")
Exit Sub
End If
Dim i As Integer
i = 1
While Feuil2.Range("A" & i) <> ""
i = i + 1
Wend

Feuil2.Range("A" & i).Value = UserForm2.TextBox1
Feuil2.Range("B" & i).Value = CDate(datedujour)
Feuil2.Range("B" & i).Value = UserForm2.TextBox4
Feuil2.Range("C" & i).Value = UserForm2.TextBox69
Feuil2.Range("D" & i).Value = UserForm2.TextBox70
Feuil2.Range("F" & i).Value = CDate(aujourdhui)
Feuil2.Range("F" & i).Value = UserForm2.TextBox43

Votre réponse