Discussion :

[shadown08]

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.Exemple pour VBA.xlsx

[Invité]

Bonjour

Formule à mettre en B2

Code :

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

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

[shadown08]

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.

[Invité]

Re,

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

Code :

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

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

[shadown08]

Code :

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

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 :

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

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.

[BENNASR]

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

Code :

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

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