Formule excel en VBa

[Hellboy]

Bonjour Voici la formule en VBA qui marche

ActiveCell.FormulaR1C1 = '=IF(ISERROR(MATCH(''01.4'',Data_Site)),'''',INDEX(Data,MATCH(''01.4'',DataSite)))'

Maintenant, j'aimerais remplacer la valeur 0.1.4 par une 'variable'
qui est: ActiveCell.Comment.Text


Je n'arrive pas a mettre ma variable dans la formule tout en respectant la methode de FormulaR1C1


Tout aide serait apprécié

Merci !

 

[Hervé]

Bonjour

Sans avoir fait d'essai, essaye comme ceci :

ActiveCell.FormulaR1C1 = '=IF(ISERROR(MATCH(' & ActiveCell.Comment.Text & ',Data_Site)),'''',INDEX(Data,MATCH(' & ActiveCell.Comment.Text & ',DataSite)))'


A suivre...

salut

 

[Hellboy]

ça marche mait pas tout a fait comme souhaité.

voici ce vodre formule donne dans une cellule:
=SI(ESTERREUR(EQUIV(1.44,Data_Site)),'',INDEX(Data,EQUIV(1.44,DataSite)))


voici ce que j'aimerais:
=SI(ESTERREUR(EQUIV('01.44',Data_Site)),'',INDEX(Data,EQUIV('01.44',DataSite)))

 

[Hellboy]

Bon finalement j'ai trouvé:

voici:

ActiveCell.FormulaR1C1 = '=IF(ISERROR(MATCH(' & '''' & ActiveCell.Comment.Text & '''' & ',Data_Site)),'''',INDEX(Data,MATCH(' & '''' & ActiveCell.Comment.Text & '''' & ',DataSite)))'

Merci pour votre aide

Philippe W.