Insérer une formule dans une cellule

**sam_XIII** · 05/10/2007, 10h42

bonjour

je travaille avec office 2007

voici mon problème

je veux insérer une formule dans des cellules de ma page
le probleme est que à la place de m'afficher le resultat de ma formule, il m'affiche la formule

a la place d'avoir "1" dans ma cellule je me retrouve avec "=VLOOKUP(B4;sort;2;FALSE)"

j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Worksheets("WorkingData Staging").Range("C" & index) = "=VLOOKUP(B" & index & ";sort;2;FALSE)"
 
Worksheets("WorkingData Staging").Range("C" & index).Formula = "=VLOOKUP(B" & index & ";sort;2;FALSE)"
 
Worksheets("WorkingData Staging").Range("C" & index).Value = "=VLOOKUP(B" & index & ";sort;2;FALSE)"
 
Worksheets("WorkingData Staging").Range("C" & index).FormulaR1C1  = "=VLOOKUP(B" & index & ";sort;2;FALSE)"
 
 
Worksheets("WorkingData Staging").Range("C" & index).FormulaLocal= "=VLOOKUP(B" & index & ";sort;2;FALSE)"

et ca me fait toujours la même chose

quelqu'un peut il m'aider ?

**Drost** · 05/10/2007, 11h41

Yop'

Petite question bete mais as tu essayé avec l'enregistreur?

**sam_XIII** · 05/10/2007, 12h22

oui ca me donne

Code :

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

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],sort,2,FALSE)"

donc j'ai essayé d'appliquer a mon code comme ceci :

Code :

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

Worksheets("DataSource").Range("C" & index).FormulaR1C1 = "=VLOOKUP(RC[-1],sort,2,FALSE)"

mais ca me fait le meme probleme

ca m'affiche "=VLOOKUP(RC[-1],sort,2,FALSE)" dans ma cellule à la place de la valeur que j'attend

**Drost** · 05/10/2007, 12h43

As tu essayé comme ce ci?

Code :

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

1
2
3
Sheet("DataSource").select
Cells(index,3).select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],sort,2,FALSE)"

**Drost** · 05/10/2007, 12h44

Sinon ca peut aussi venir du format de ta cellule...

**sam_XIII** · 05/10/2007, 13h20

j'ai essayé ca fonctionne pas non plus

le format de la cellule j'ai essayé de changer de mettre "general" ou des autres mais ca change rien

**sam_XIII** · 05/10/2007, 15h26

du nouveau :

en fait quand je copie/colle des données dans ma feuille, les cellules sont modifiées et ne prennent plus les formules en compte

Si je veux appliquer la formule "=3+2" sur une page vierge ca marche j'obtien "5" dans ma cellule

par contre si je le fait dans une page où j'ai copie / collé mes données, cela me donne "=3+2"

une idée de la solution pour me sortir de la ?

(c'est peut etre un probleme connu sur excel je ne sais pas, je decouvre excel depuis cette semaine en fait

)

**jkodio** · 05/10/2007, 15h40

Peut être faut-il essayer:

Code :

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

1
2
3
4
5
 
Sheet("DataSource").select
Cells(index,3).select
Selection.NumberFormat = "General"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],sort,2,FALSE)"

C'est à dire ajouter la ligne Selection.NumberFormat = "General" avant la ligne de formule.

**alsimbad** · 05/10/2007, 15h44

tes formules ont un point commun, il leur manque quelque chose

Code :

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

1
2
 
"=VLOOKUP(""cible"",R[-2]C:R[-1]C[3],2,FALSE)"

**da991319** · 05/10/2007, 15h55

Bonjour, en effet il manque le range sur lequel tu appliques ta recherche.

Pour ma part je n'ai aucun probleme avec un exemple comme celui ci:

Code :

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

1
2
3
4
5
6
7
 
Sub test()
 
Range("C2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],R1C1:R7C2,2)"
 
End Sub

Par contre dans l'aide d'excel il t'indique effectivement que tu peux trier les valeurs en utilisant la fonction "sort" qui est dans le menu "donnees". Mais en aucun cas il ne s'agit de code VBA (vu que l'aide de VBA ne dit rien sur la formule VLOOKUP) que tu dois ajouter dans ta macro

**sam_XIII** · 05/10/2007, 16h11

Envoyé par jkodio

C'est à dire ajouter la ligne Selection.NumberFormat = "General" avant la ligne de formule.

nickel ca fonctionne avec ca

merci beaucoup

**sam_XIII** · 05/10/2007, 16h13

Envoyé par da991319

Bonjour, en effet il manque le range sur lequel tu appliques ta recherche.

Pour ma part je n'ai aucun probleme avec un exemple comme celui ci:

Code :

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

1
2
3
4
5
6
7
 
Sub test()
 
Range("C2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],R1C1:R7C2,2)"
 
End Sub

Par contre dans l'aide d'excel il t'indique effectivement que tu peux trier les valeurs en utilisant la fonction "sort" qui est dans le menu "donnees". Mais en aucun cas il ne s'agit de code VBA (vu que l'aide de VBA ne dit rien sur la formule VLOOKUP) que tu dois ajouter dans ta macro

en fait "sort" c'est le nom de ma table dans laquelle va chercher Vlookup (enfin si j'ai bien compris le truc parce que ce n'est pas moi qui ai crée le fichier excel au debut)

merci bcp pour l'aide en tout cas

**alsimbad** · 05/10/2007, 16h22

je n'ai rien trouvé la dessus, éclaire moi sur comment trouvé ce passage, mais même a supposer que l'on puisse

Code :

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

1
2
 
"=VLOOKUP(RC[-1],sort,2,FALSE)"

sort quoi ? tu ne lui indique aucune range de recherche, comment il devine? a moins que sort soit le nom d'une variable ? genre sort = range ("a1:a2")?
mais dans ce cas, vérifie que cette plage est bien nommée

**sam_XIII** · 05/10/2007, 16h40

oui apparament sort c'est une range

en fait j'ai 2 colonnes
dans la premiere un id et dans la 2 eme une valeur

vlookup va chercher la valeur correspondant a l'id avec ce range la