rechercheV ne marche pas

[lolotte]

Bonjour le forum,

J'ai la macro suivante:

Private Sub CommandButton1_Click()
Dim nlig As Integer
nlig = 5
For i% = 2 To nlig
Cells(i%, 1).Value = "=RECHERCHEV(" & LTrim(Str(i%)) & ",$G$2:$I$4,2)"
Cells(i%, 2).Value = "=RECHERCHEV(" & LTrim(Str(i%)) & "," & "$G$2:$I$4" & ",2," & "VRAI" & ")"
Next i%

End Sub

Mais au click sur le bouton 1 j'obtient des #NOM? à la place des valeurs attendues.
Par contre si je me met dans une des cellules que je clique 2 fois je vois la formule de calcul et si je fait un retour charriot j'obtient le bon résultat.

Quelqu'un aurait il déjà rencontré ce problème?
Quelqu'un pourrait il m'aider?

Merci à tous.

Lolotte.

 

[Ti]

remplace .Value par .Formulalocal

 

[lolotte]

Merci d'avoir répondu si vite Ti,

Il me fais une erreur avec FormulaLocal

"Erreur définie par l'application ou par l'objet

A+

Lolotte.

 

[chris]

Bonjour
Essayes .formula tout court
CHris

 

[lolotte]

Re

dans se cas ca me fait la mème chose qu'avec .value

lolotte

 

[pierre]

Salut lolotte,

je viens de faire un essai,

remplace la première par ceci :

Cells(i%, 1).Value = "=vlookup(" & LTrim(Str(i%)) & "," & "$G$2:$I$4" & ",2" & ")"

ça fonctionne chez moi, (excel97)

@+

 

[lolotte]

Merci à vous tous, merci Pierre ta solution fonctionne à merveille.
Est ce que tu as une explication.

A+ le forum et encore merci.

lolotte