Combobox et date

B

Bebere

XLDnaute Barbatruc

• 28 Avril 2009

• #2

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

 

Vote positif 0 Vote négatif

S

softof

Guest

• 28 Avril 2009

• #3

Re : Combobox et date

Génial!
Ca marche
merci beaucoup
softof

 

Vote positif 0 Vote négatif

S

softof

Guest

• 29 Avril 2009

• #4

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

 

Pièces jointes

• classeurvol.xlsm

  25.8 KB · Affichages: 55
• classeurvol.xlsm

  25.8 KB · Affichages: 67
• classeurvol.xlsm

  25.8 KB · Affichages: 67

Vote positif 0 Vote négatif

S

softof

Guest

• 29 Avril 2009

• #5

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 29 Avril 2009

• #6

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

 

Pièces jointes

• classeurvol(1).xlsm

  25.9 KB · Affichages: 39

Vote positif 0 Vote négatif

S

softof

Guest

• 29 Avril 2009

• #7

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

 

Vote positif 0 Vote négatif