Discussion :

[NamName]

Bonjour le forum,

J'ai pas mal tourné sur les différents forums, mais pas moyen de trouver une solution a mon problème .

J'ai dans ma colonne A une devise, dans la colonne B un taux, dans la colonne C la date à laquelle le taux a été rentré.
Je cherche à créer un Userform, dans lequel:
* Dans la combobox1 --> il y a liste des taux (Ca pas de soucis)
* Dans La Textbox1 --> l'utilisateur saisit une date
* Dans la Textbox3 --> Affichage automatique du taux de la devise [Le taux doit être celui saisi le plus récemment, mais ne peut pas être postérieur à la date saisie]
* Dans la Textbox2 --> La date de saisie du Taux en question.

Comme les dates sont saisies dans par ordre croissant, j'étais partie sur quelque chose comme ça, mais comme vous pouvez le voir, je ne sais pas comment exprimer ma condition que le résultat trouvé ne peut etre postérieur à la date saisie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Textbox1_AfterUpdate()

Dim DateTaux As Date

DateTaux = Application.VLookup(ComboBox1, Range("A2:C10000"), 3, False)
If DateTaux > TextBox1.Value Then
     XXXXXXXX
Else
    TextBox2 = DateTaux
End If

End Sub

Voilà, si certains préfèrent travailler sur fichier, j'en joint un en Exemple.

Merci d'avance