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

[Invité]

Bonjour

A voir

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

[shadown08]

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 !

[Marc-L]

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, …

[Invité]

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 :

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

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