Discussion :

[alex830001]

Bonjour,

En VBA, je cherche à insérer une colonne et à insérer une formule recherchev dans cette colonne de la 2 eme ligne à la derniere ligne du tableau.

J'ai déja ce code qui fonctionne dans un autre fichier, j'ai voulu le réutiliser et il m'affiche dans les cellules: "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)" sans calculer le résultat.

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
derli = Columns(1).Find("*", , , , , xlPrevious).Row
 
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)"
    Selection.AutoFill Destination:=Range(Cells(2, 3), Cells(derli,3)),Type:=xlFillDefault

Merci pour votre aide...

[oOVaveOo]

Essaye de mettre

Code :

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

1
2
3
4
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)"
 
calculate

[alex830001]

Il ne se passe rien de plus... ce que je ne comprends pas c'est que je fais la même manip pour un autre fichier et cela as toujours fonctionné.

En fait il devrait m'écrire dans la cellule:

=RECHERCHEV(D1,TABLES2!A:B,2,0)

Or la il me reécrit textuellement le code VBA:

=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)

[Godzestla]

Bonsoir,

pour solutionner ceci, encode manuellement dans ta cellule la formule que tu veux puis démarre l'enregistreur de macro, puis fais <F2> sur ta cellule puis <Enter>.
Arrête l'enregistreur de macro et regarde ce qu'il a généré. Tu as ta solution.

[tirex28]

Bonsoir,

Assure toi que ta cellule est au format standard et non au format texte:

Code :

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

1
2
3
4
With ActiveCell
    .NumberFormat = "General"
    .FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)"
End With

Cordialement,

Tirex28/

[alex830001]

Bonsoir,

Assure toi que ta cellule est au format standard et non au format texte:

Code :

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

1
2
3
4
With ActiveCell
    .NumberFormat = "General"
    .FormulaR1C1 = "=VLOOKUP(RC[1],TABLE2!C[-2]:C[-1],2,0)"
End With

Cordialement,

Tirex28/

La réponse est ici! Cela fonctionne maintenant. Merci beaucoup pour votre aide.