Utilisation de find avec userform

Bonjour à tous,

Je n'ai pas trouvé la réponse à ma question dans la FAQ alors je me tourne vers vous:

J'ai un userform avec listes déroulantes que j'utilise pour sélectionner une date de début et une date de fin. Je veux ensuite trouver dans quelle colonne se situent cette date début et cette date de fin donc j'ai essayé:

Code:

---

1 2 3

DateDebutP = FileP.Worksheets("Présence CDC 2017").Rows(5).Find(ListBox3.List(ListBox3.ListIndex) & "/" & ListBox4.List(ListBox4.ListIndex) & "/" & ListBox5.List(ListBox5.ListIndex)).Value

---

Mais ça me mets en message d'erreur "erreur 91, variable objet ou variable de bloc With non défini"
Et là j'avoue que je suis perdu. Je n'ai pas de bloc with et pour moi tout est défini correctement il me semble:

Code:

---

1 2 3 4

Dim FileP as Workbook, Dim DateDebutP as Long, set FileP = ActiveWorkbook

---

Voilà si quelqu'un a une idée je suis preneur!
Merci d'avance

Bonsoir
j'arrive pas à comprendre ta requête !!
Merci de développer un peux le but à atteindre

Bonsoir!

Désolé si ce n'est pas clair, je vais essayer d'expliciter un peu:

J'ai un user form avec 3 listbox: une pour le jour (01,02,03...31) une pour le mois (01,02,03...12) une pour l'année (2017,2018...2020)

Je veux ensuite trouver la date sélectionnée via cette userbox sur une ligne pleine de date.

Donc j'essaie Find(ListBox3.List(ListBox3.ListIndex) & "/" & ListBox4.List(ListBox4.ListIndex) & "/" & ListBox5.List(ListBox5.ListIndex))

C'est à dire la concaténation des valeurs de mes listbox avec les / pour avoir la date sous forme 01/01/2017

Et je veux mettre cette valeur (le numéro de la colonne correspondante) dans la variable DateDebutP
J'ai essayé avec et sans le ".value" à la fin de ma requête mais rien à faire j'ai le même message d'erreur :/


Voilà j'espère que c'est un peu plus clair!

Bonsoir

Citation:

---

J'ai un user form avec 3 listbox: une pour le jour (01,02,03...31) une pour le mois (01,02,03...12) une pour l'année (2017,2018...2020)

---

désolé mais je comprends pas pourquoi tout ce usine à gaz pour enregistrer une date ???
alors qu'un controle calendar ou un Time Picker fait aisément l'affaire ??!:calim2:

Citation:

---

Envoyé par BENNASR

Bonsoir

désolé mais je comprends pas pourquoi tout ce usine à gaz pour enregistrer une date ???
alors qu'un controle calendar ou un Time Picker fait aisément l'affaire ??!:calim2:

---

Oh pour une raison toute simple: je suis complètement en autodidacte sur VBA et depuis à peine 2 semaines, donc quand j'ai un problème j'essaie de le résoudre avec mes outils et mes connaissances même si c'est vrai que ça fait un peut usine à gaz xD

Dans la boîte à outil du userform je n'ai rien vu qui ressemble à un calendar, ce que j'ai trouvé de mieux c'est les listes déroulantes :/

Ceci dit ça ne change rien non? Si je trouvais un calendar je me retrouverais avec la même requête juste en remplaçant la concaténation par la valeur du calendar non?

non plus... tu trouveras un calendrier prête à utiliser...tu n'as qu'à choisir la date
cherche à télécharger DTPicker tu aura le bonheur
Moi aussi débutant et autodidacte ... et si tu veux tu peux :D

Bonjour.

La methode FIND n'est pas la plus simple pour un debutant. Et ce n'est pas la meilleure methode non plus.
Voici comment l'utiliser avec des dates.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click() FileP.Worksheets("Présence CDC 2017").Rows(5).NumberFormat = "m/d/yyyy" FileP.Worksheets("Présence CDC 2017").Rows(5).FormulaLocal = FileP.Worksheets("Présence CDC 2017").Rows(5).Value   what = CDate(ListBox3.List(ListBox3.ListIndex) & "/" & ListBox4.List(ListBox4.ListIndex) & "/" & ListBox5.List(ListBox5.ListIndex))   Set r = FileP.Worksheets("Présence CDC 2017").Rows(5).Find(what:=what, LookIn:=xlFormulas)   If r Is Nothing Then   Else   r.Select 'facultatif DateDebutP = r.Value colonne = r.Column End If End Sub

---

Wahou effectivement ça fait beaucoup de pré requis très variés!

En tout cas j'ai testé et après quelques ajustements ça fonctionne très bien donc merci beaucoup !