Combobox-Calendrier Résolu

Question

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

Farfadet88 · Accepted Answer

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

Farfadet88 · Answer

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)

Usgpa · Answer

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

Usgpa · Answer

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

Farfadet88 · Answer

ç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

Farfadet88 · Answer

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

Usgpa · Answer

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)...

Farfadet88 · Answer

ah mince!
et contrôle calendrier?

Usgpa · Answer

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  !

Farfadet88 · Answer

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

Usgpa · Answer

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

Farfadet88 · Answer

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?

Usgpa · Answer

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

Farfadet88 · Answer

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

Farfadet88 · Answer

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

Usgpa · Answer

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.

Farfadet88 · Answer

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

pijaku · Answer

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

Farfadet88 · Answer

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

Usgpa · Answer

Feuil2.Range("B" & i).Value = CDate(datedujour) 
 est surligné. 

erreur "13" Incompatibilité de type !

Farfadet88 · Answer

et en mettant Feuil2.Range("B" & i).Value = CDate(datedujour) avant le Else:    ?

Usgpa · Answer

Pareil apparament ...

Farfadet88 · Answer

argh. Je ne vois pas où se trouve le souci

Usgpa · Answer

c'est bon ! J'ai compris d'ou viens l'erreur ! J'avais  effacé une partie de ton code "mois = Mid(TextBox43, 2) " était au départ "mois = Mid(TextBox43,3, 2)"...

L'erreur a disparu malheureusement, il me copie la donnée en jjmmaa et non jj/mm/aa

Farfadet88 · Answer

remet comme c'était avant.

Avec datedujour= jour & "/" & mois & "/" & annee

Usgpa · Answer

En vain... un casse-tête ...

Usgpa · Answer

Cela vient surement du fichier excel en fait, je ne sais pas comment mais je pense qu'il bloque l'apparition des / . Quand j'appuie sur le message d'erreur et que je fais modifier dans la formule, meme si je ne fais rien, il me converti directement 010101 en 01/01/2001...

pijaku · Answer

Re-
Essayez ceci :

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 
i = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Feuil2").Range("A" & i).Value = UserForm2.TextBox1 
Sheets("Feuil2").Range("B" & i).Value = CDate(Format(UserForm2.TextBox4 , "@@/@@/@@"))
Sheets("Feuil2").Range("C" & i).Value = UserForm2.TextBox69 
Sheets("Feuil2").Range("D" & i).Value = UserForm2.TextBox70 
Sheets("Feuil2").Range("F" & i).Value = CDate(Format(UserForm2.TextBox43 , "@@/@@/@@"))

l'erreur venait de :

Feuil2.Range("B" & i).Value = CDate(datedujour)
Feuil2.Range("B" & i).Value = UserForm2.TextBox4

Forcément B & i = UserForm2.TextBox4 soit 280110

pijaku · Answer

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

Usgpa · Answer

Oui j'ai une feuil2 nommé "Archive Cessions".

Usgpa · Answer

Ce dernier code marche lorsqu'on tape with sheets("Archive cessions") Bien joué !!! Merci à vous Pijaku ainsi qu'à Farfadet !!!

Combobox-Calendrier

31 réponses

Votre réponse

Discussions similaires

Newsletters