Bonjour à tous,

Après de multiple recherches sur le forum, je n'arrive toujours pas à faire fonctionner cette fonction.

J'ai une feuille "feuil1" que je copie à l'aide d'une macro dans le même classeur et que je nomme "copie". (cela fonctionne)

Sur ces feuilles figurent 3 colonnes : fruit; date et mois.
Sur le tableau de la feuille "copie" je souhaiterai écrire le nom d'un fruit tout en bas du tableau et qu'il recherche les informations "date" et "moi" le concernant dans la "feuil1".

Pour cela, il suffit d'utiliser la fonction rechercheV soit Vlookup en VBA et la fonction formula pour que les cellules B8 et C8 ont cette formules inscrites.

Exemple : Si j'écris "peche" sur la cellule A8 de la feuille "copie", la cellule B8 doit m'indiquer "01/02/2012" et la cellule C8 "janvier".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Bouton1_Clic()
 
 
    Sheets("feuil1").Select
    Sheets("feuil1").Copy after:=Sheets("feuil1")
    Sheets("feuil1 (2)").Select
    Sheets("feuil1 (2)").Name = "copie"
 
    Application.EnableEvents = False ' => désactive les événements
 
    Set cellule = Range("B8")
    formule = Application.WorksheetFunction.VLookup(Sheets("copie").Range("A8").Value, Sheets("feuil1").Range("A2:C7"), 2, False) 'erreur sur cette ligne
    cellule.Formula = formule
 
End Sub
Merci pour vos réponses.

Cordialement.