Discussion :

[Siramane]

Bonjour tout le monde,

Je cherche à remplir ma combobox date_rdv en fonction d'un intervalle de date. (voir formulaire en image)

Les dates de rendez-vous se trouvent dans la colonne K de ma feuille "Demande".


Si ce que je cherche à faire fonctionne, en fonction de la recherche faite ci-dessous en image, ma combobox date_rdv devrait contenir qu'une seule date (22-01-20219).

Quelqu'un peux m'aider avec un code svp?

[Thautheme]

Bonjour Siramane, bonjour le forum,

Visiblement il y a des formats de date différent dans ton Userform et ça complique les choses. Une capture d'écran c'est bien mails le code c'est beaucoup mieux. Et le fichier encore mieux, même si je suis conscient que c'est contraire à la politique de ce forum.

[MarcelG]

Bonjour,

Processus en 2 étapes
- Vider la combobox de ses items
- Pour chaque valeur de date dans la feuille (colonne K), si la date est comprise dans les bornes alors l'additionner dans les items de la combobox

Ces méthodes sont décrites dans le tutoriel de Silkyroad au sujet des contrôles d'un formulaire.

[patricktoulon]

bonjour
exemple de remplissage de ta combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
macombobox.clear
With Sheets("machinbidule").Range("K1", Cells(Rows.Count, "K").End(xlUp)) 'adapter le sheets
For Each cell In .Cells
If cell.Value > CLng(CDate(titi.Text)) And cell < CLng(CDate(toto.Text)) Then macombobox.AddItem cell.Value 
Next
End With

remplacer machinbidule par le nom du sheets ou se trouve les données
'remplacer "macombobox" par le nom de la tienne
remplacer "titi" par le nom de ton textbox date min
remplacer "toto" par le nom de ton textbox date max

[Jean-Philippe André]

Bonjour,

je pense qu'avant de proposer un code alambiqué et sources ô combien évidentes de plantage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CLng(CDate(toto.Text))

il serait bon de connaître la réponse de Siramane à la question posée par Thautheme que je complèterait en indiquant :
"quel est le format de tes cellules dans la colonne K ? "

[patricktoulon]

bonjour jean-philippe André

testé avec date au format(yyyy-mm-dd") dans le T1 et T2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
CLng(CDate(Format(toto.Text, "dd/mm/yyyy")))
CLng(CDate(Format(titi.Text, "dd/mm/yyyy")))

bien que je suis d'accords je comprends pas la raison du format initial dans les textboxs

a noter qu'avec clng(datevalue(...) on obtient le bon numero de serie de date aussi meme avec le format aaaammjj

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CLng(DateValue(toto.Text))'avec  un  format(yyyy-mm-dd) dans le textbox

pour les cells le format est bien interprété comme une date par vba (testé) donc de ce coté la pas de soucis

et apres test de cdate simplement la date est tres bien interprétée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CDate((toto.Text))

pour clng c'est parce que pour les dates dans une boucle ou autofilter j'utilise toujours la valeur numerique de la date

pour la securité des test isdate si il faut mais ca c'est au demandeur de faire en fonction de sa conception

je ne vois donc pas ce qui te gene
en gros tu m'a fait galloper pour rien
je precise que j'ai testé dans un userform avant de repondre

[Jean-Philippe André]

Encore une fois tu prends des exemples minables.

Valide ton code entièrement avec 04-05-2019 par exemple

[patricktoulon]

re
je vois pas ou tu veux en venir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox CDate(TextBox1)

voir les deux formats ensemble

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "textbox1 = " & CDate(TextBox1) & vbCrLf & "textbox2 = " & CDate(TextBox2)

[Siramane]

Bonjour tout le monde,

Merci pour vos réponses et votre aide.

Ci-joint mon fichier si quelqu'un peut m'aider. C'est ce formulaire :




Je vais essayer!


Merci encore!

[Siramane]

Jean-Philippe André,

Le format des cellules des dates dans ma feuille excel est un format texte.
J'avais des soucis de format quand on apporte des modifications à la base de données via les formulaires de saisie. Il intervertissait le mois et je jour a chaque modification de la base de données. J'ai donc mis le format TEXTE.


patricktoulon,

J'ai essayé ton code mais il ne trouve toujours rien, surement un problème de format.

[patricktoulon]

re
alors j'ai ouvert ton fichier
puré caustaut ta classe pour le faux calendrier
bon j'ai virer ton remplissage dans le initialyse
et j'ai repris le click de ton bouton "rechercher"
testé ca fonctionne
j'ai vu que tu a changé le format de tes textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub rechercher_Click()
    Dim I&
    TextBox1 = datFirstDay
    TextBox2 = datLastDay
    nombre_de_RDV.Value = date_rdv.ListCount
    date_rdv.Enabled = True
    rechercher.Enabled = False
    date_rdv.Clear
    Range("AN1").Value = TextBox1.Value
    Range("AO1").Value = TextBox2.Value
    'remplisage
    With Sheets("DEMANDES")
        For I = 2 To .Cells(Rows.Count, "K").End(xlUp).Row
            If CLng(CDate(.Cells(I, "K").Text)) > CLng(CDate(datFirstDay)) And CLng(CDate(.Cells(I, "K").Text)) < CLng(CDate(datLastDay)) Then date_rdv.AddItem .Cells(I, "K").Value
        Next I
    End With
End Sub

vire bien tout ce qui concerne dat-rdv dans le initialyse !!!!



ATTENTION TES FLECHE DU CALENDRIER NE METTENT PAS A JOUR TES COMBO MOIS ET ANNEE!!!!!!!!!!!!!

ne t'en sert pas ou corrige ca sinon tu est perdu entre ce qui est visuel et ce qui est

[Thautheme]

Bonsoir le fil, bonsoir le forum,

Code étrange pour moi et mes petites capacités... Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub rechercher_Click()
Dim D As Worksheet 'déclare la variable D (onglet DEMANDES)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim DD As Long 'déclare la variable DD (Date de Début)
Dim DF As Long 'déclare la variable DF (Date de Fin)
Dim I As Long 'déclare la variable I (Incrément)
Dim DR As Long 'déclare la variable DR (Date Recherchée)
 
date_rdv.Clear 'vide la combobox date_rdv
Set D = Worksheets("DEMANDES") 'définit l'onglet D
TV = D.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
TextBox1 = datFirstDay
TextBox2 = datLastDay
DD = DateSerial(Year(TextBox1.Value), Month(TextBox1.Value), Day(TextBox1.Value)) 'définit la date de départ DD
DF = DateSerial(Year(TextBox2.Value), Month(TextBox2.Value), Day(TextBox2.Value)) 'définit la date de fin DF
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeur TV (en partant de la seconde)
    DR = DateSerial(Year(TV(I, 11)), Month(TV(I, 11)), Day(TV(I, 11))) 'définit la date recherchée DR
    'si DR est dans la fourchette <DD,DF> ajoute DR à la comboBox date_rdv
    If DR >= DD And DR <= DF Then date_rdv.AddItem Format(CDate(DR), "dd-mm-yyyy")
Next I 'prochaine ligne de la boucle
nombre_de_RDV.Value = date_rdv.ListCount 'renvoie le nombre d'éléments de la Combobox date_rdv
date_rdv.Enabled = True
rechercher.Enabled = False
Range("AN1").Value = TextBox1.Value 'pas sûr que ce soit nécessaire
Range("AO1").Value = TextBox2.Value 'pas sûr que ce soit nécessaire
End Sub

[Édition]
Salut Patrick, nos posts se sont croisés...

[patricktoulon]

bonsoir THautheme
oui sa classe faux calendrier est une vrai usine a gaz j'avais deja vu ce code au premier abords c'est pas simple

[Siramane]

patricktoulon ,

Merci beaucoup. Ton code fonctionne parfaitement.
Mais j'ai un souci mtn avec mon bouton "afficher info" qui n'affiche plus la bonne ligne :

[Siramane]

Thautheme ,

Merci beaucoup. Ton code fonctionne parfaitement également.

Vous êtes trop douer les gars!
Mais j'ai un souci maintenant avec mon bouton "afficher info" qui n'affiche plus la bonne ligne :

[patricktoulon]

refleci siramane
comment veux tu que ca fonctionne ca n'a d'ailleurs jamais fonctionner véritablement sauf pour le cas ou tout les date sont prises

analysons la chose(la ligne en rouge)
quand ta liste se remplis avec uniquement le dates valides il est normal que les indexs de ligne de ta combo ne correspondent pas avec les lignes du sheet etant donné que des lignes vont etre probablement éliminées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub afficher_rdv_Click()

    Sheets("DEMANDES").Select
    If Not date_rdv.Value = "" Then
        Dim no_ligne As Integer
        no_ligne = date_rdv.ListIndex + 2

        TextBox3.Value = Cells(no_ligne, 3).Value
        TextBox4.Value = Cells(no_ligne, 23).Value
        TextBox5.Value = Cells(no_ligne, 10).Value
        TextBox6.Value = Cells(no_ligne, 12).Value
        TextBox7.Value = Cells(no_ligne, 13).Value
        date_rdv.Enabled = False
        afficher_rdv.Enabled = False
    Else
    End If

End Sub

tu a donc 2 choix qui s'offre a toi

1. soit tu ajoute une colonne caché dans ta comboet tu lui met les index (variable I l'ors du remplissage)et tu te sert de textcolumn pour choper la bonne ligne lors du click sur info
2. faire un find sur la colonne "k" avec le value de date_rdv lors du click sur info

le 2d etant pas tres sur dans le sens ou tu peux avoir x rdv le meme jour

conclusion j'opterais pour la solution 1 qui elle est on ne peut plus sure !!!

[Arkham46]

Bonjour,

On ne gère pas des dates au format texte pour corriger un "soucis".
Du coup maintenant les soucis vont s'enchaîner.

[Siramane]

patricktoulon ,

Merci beaucoup. Désolé si je ne réfléchis pas assez.
Je suis débutant en VBA, et se sont de petit projet que j'essai de mener en plus de ma fonction.

Merci encore pour ton aide.

Je vais exploiter tes pistes tantôt!

[patricktoulon]

re
ton fichier tel avec juste la modif (2 colonne pour date_rdv)
le bouton info prend la ligne correspondante comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

no_ligne = date_rdv.List(date_rdv.ListIndex, 1)

ton fichier en piece jointe je regarde pas ta construction calendrier un vrai boulet ce truc

et il y a beaucoup de code inutile qui pourrait etre simplifié pour les evenements

[Siramane]

Arkham46,

Merci beaucoup pour ta réponse.



Comment je peux régler ce problème de date?
Lorsque je met un format date dans mes cellules, après modification de la base de donnée via un formulaire, les dates de la ligne qui à subi la modification tombe dans les pommes. Le mois devient le jour et vice versa.

Je vais vérifier tout cela et essayer de bien faire les choses car je veux vraiment éviter les soucis!