Code VBA recherche dépendant de 2 dates dans tableau

Bonjour à tous,

J'ai un tableau de 3 colonnes :

Date de début, date de fin et taux de remise.

Dans un autre onglet, je saisis une date en A1 et je souhaiterai qu'en A2 s'affiche le taux de remise correspondant (à aller chercher dans la tableau de l'autre onglet).

Je sais le faire sans code VBA mais j'ai besoin de la coder sous VBA et je ne vois pas comment faire ?

Merci à tous pour votre aide.

Je joins mon fichier d'exemple pour une meilleure compréhension.Pièce jointe 222025

Bonjour

Formule à mettre en B2

Code:

---

=RECHERCHEV(A2;Tableau!A2:C7;3;VRAI)

---

Bonour,

Merci mais comme indiqué je sais le faire sans VBA, ma question porte uniquement sur le VBA car le fichier final n'est pas si simpliste.

Merci quand même.

Re,

Place ce code dans la feuille résultats et lance avec un bouton ou autre

Code:

---

1 2	F = "=VLOOKUP(RC[-1],Tableau!RC[-1]:R[5]C[1],3,TRUE)" Range("B2").Formula = F

---

Citation:

---

Envoyé par mimimathy

Code:

---

1 2	F = "=VLOOKUP(RC[-1],Tableau!RC[-1]:R[5]C[1],3,TRUE)" Range("B2").Formula = F

---

---

Bonjour,

Après plusieurs essais je n'arrive pas à m'en sortir avec ce code :-(

Mon problème est que la date qui sert de recherche n'est pas nécessairement dans le tableau où on effectue la recherche.

Par exemple, si je reprend mon cas d'étude j'ai une date de référence au 01/08/2015, et je souhaite donc que la macro détecte que cette date appartient à la période du 01/04/2014 au 29/02/2016 pour me renvoyer le taux associé à cette période : 15%.

Peut être ai-je mal écrit la macro :

Code:

---

1 2 3 4 5 6 7

Sub Macro1()   Dim date_ref as Date date_ref = Sheets("Résultats").Range("A2") taux_remise = Application.WorksheetFunction.VLookup(date_ref, Sheets("Tableau").Range("A2:C8"), 3, False)   End Sub

---

Merci pour votre aide.

voir avec ça (pour éviter d'avoir la dernière cellule du tableau vide ajouter =aujourd'hui) :

Code:

---

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

Sub calcul_Remise() Dim Tablo Dim TauxRech Dim i As Long Dim DatRech As Date DatRech = Sheets("Résultats").Range("A2").Value Tablo = Sheets("Tableau").Range("A1", "C" & Sheets("Tableau").Range("C" & Rows.Count).End(xlUp).Row) For i = LBound(Tablo, 1) To UBound(Tablo, 1) If DatRech >= Tablo(i, 1) And DatRech <= Tablo(i, 2) Then TauxRech = Tablo(i, 3) End If Next i Sheets("Résultats").Range("B2") = TauxRech End Sub

---

Bonjour

A voir

http://www.cjoint.com/c/FJsjKRH22b7

Merci ça fonctionne.

Par contre ça ralenti énormément la macro. Mon fichier fait des centaines de lignes et le calcul du taux est nécessaire à chaque ligne.

Y a t-il un moyen de gagner en rapidité sur le calcul ?

En tout cas merci c'est déjà super !

Bonjour,

sans boucle c'est bien plus rapide !
Il suffit juste d'appliquer en VBA la même formule que l'on peut directement entrer dans une cellule …

Ecrire une formule dans Excel à l'aide d'une procédure VBA

Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

Re, Bonjour,

Cela revient à mettre comme sur mon post #5 avec une recopie jusqu'en ligne 65000 et une gestion des erreurs

Code à remplacer entre le sub et le end sub

Code:

---

1 2 3 4 5

Dim f As String Range("b2:b65000").ClearContents f = "=IFERROR(VLOOKUP(RC[-1],Tableau!RC[-1]:R[5]C[1],3,TRUE),"""")" Range("B2").Formula = f Range("B2").AutoFill Destination:=Range("B2:B65000"), Type:=xlFillDefault

---