Combobox et date

[softof]

Bonjour à tous

J'ai un soucis avec deux combobox. La seconde dépendante de la première.
Dans la première, je met a jour des dates.
Dans la seconde, selon la date choisie, elle doit se completer des vols équivalents à cette date.
Je bute sur la compatibilité de valeurs avec les dates.

Merci de votre aide
Softof

 

[Bebere]

Re : Combobox et date

bonjour Softof
le code qui suit devrait résoudre ton problème

Private Sub Search_Product_Change()
Dim Rng As Range, I As Long, L As Long, NbL As Long

Set Rng = Sheets("ProgramVol").Range("A1:A" & Sheets("ProgramVol").Range("A65536").End(xlUp).Row)

L = Application.Match(CDbl(CDate(Me.Search_Product)), Rng, 0)

Me.Search_Country.Clear

NbL = Application.CountIf([DB_Products], "=" & CDbl(CDate(Me.Search_Product)))

For I = L To L + NbL - 1
Me.Search_Country.AddItem [DB_Country].Cells(I, 1).Value
Next I
End Sub

à bientôt

 

[softof]

Re : Combobox et date

Génial!
Ca marche
merci beaucoup
softof

 

[softof]

Re : Combobox et date

Bonjour,

J'ai a nouveau un soucis !
En ayant modifier la VBA, pour rechercher par rapport aux dates, j'ai une erreur d'incompatibilité de type.
De plus, comment faire pour récupérer la destination de mon vol dans la textbox3 selon le numéro choisi.

Merci

 

[softof]

Re : Combobox et date SVP HELP ME

Merci de m'aider, j e m'en sors pas !!
Trop faible mes connaissances en VBA
Merci a tous

 

[Bebere]

Re : Combobox et date

bonjour Softof
déclare les variables,exécute le code pas à pas(touche fonction F8)
tu verras que d est en erreur
à bientôt

 

[softof]

Re : Combobox et date

Oui, j'ai vu que d est en erreur mais pourquoi ??
Et comment dois je récupérer mes données DEST?
merci