Problème fonction VLookup

Version imprimable

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:

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.

Bonjour,

J'ai renseigné la cellule A8 dans le code :

Code:

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 = ActiveSheet.Range("B8")
    ActiveSheet.Range("A8") = "peche"
    cellule.Formula = "=VLookup(""" & Sheets("copie").Range("A8").Value & """, Feuil1!A2:C7, 2, False)" 'erreur sur cette ligne
    Application.EnableEvents = True ' => active les événements
End Sub

Et en nettoyant un peu le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_Clic()
 
 
    Sheets("feuil1").Copy after:=Sheets("feuil1")
    Sheets("feuil1 (2)").Name = "copie"
 
    Application.EnableEvents = False ' => désactive les événements
    With Sheets("copie")
        Set cellule = .Range("B8")
        .Range("A8") = "peche"
        cellule.Formula = "=VLookup(""" & .Range("A8").Value & """, Feuil1!A2:C7, 2, False)"
    End With
    Application.EnableEvents = True ' => active les événements
End Sub

Je vais y arriver... Plus simplement :

Code:

cellule.Formula = "=VLookup(A8, Feuil1!A2:C7, 2, False)"

Merci beaucoup cela fonctionne,

Toutefois à la place de mettre des valeurs fixe tel que "cellule" et "A8", j'aimerai lui dire de mettre les formules à la fin de la dernière cellule du tableau plus 6 cellules en dessous. J'ai réussi à créer le code mais il me bloque quelque part ==> Explication ci-dessous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
 
    With Sheets("copie")
         m = Cells(Rows.Count, "B").End(xlUp).Row + 1
         p = Cells(Rows.Count, "B").End(xlUp).Row + 6
        '.Range(.Cells(m, 2), .Cells(p, 2)).Formula = "=VLookup(A8, Feuil1!A2:C7, 2, False)" 'ce code fonctionne avec A8
        .Range(.Cells(m, 2), .Cells(p, 2)).Formula = "=VLookup(.Range(.Cells(m, 1)), PLANNING!A4:B507, 2, False)" 'ce code ne fonctionne pas lorsque on remplace une cellule fixe (A8)
End With
End Sub

Merci pour ta réponse
Cordialement

1. Il faut que tu fasses une boucle sur les cellules, sinon, tu mets la même formule dans toutes les cellules (ou alors mettre une formule au format R1C1).
2. Tu ne peux pas mettre une référence à une cellule ou une variable entre guillemets :
Code:

1 2 3 4 5 6 With Sheets("copie") m = Cells(Rows.Count, "B").End(xlUp).Row + 1 For i = m To m + 5 .Cells(i, 2).Formula = "=VLookup(" & .Cells(i, 1).Address & ", PLANNING!A4:B507, 2, False)" Next i End With

22/02/2012, 15h36
manu900

C'est exactement sa, mille merci.

Juste une dernière chose, comment fais tu pour pas qu'on voye les "N/A

Encore merci pour tout.

Cordialement.

Utilise :

Code:

1
2
3
4
        For i = m To m + 5
            .Cells(i, 2).Formula = "=if(" & .Cells(i, 1).Address & "="""","""",VLookup(" & _
                .Cells(i, 1).Address & ", PLANNING!A4:B507, 2, False))"
        Next i

23/02/2012, 09h20
manu900

Merci pour tout Daniel, cela fonctionne parfaitement.

Bonne journée.

Cordialement.