Formule excel en VBa

Hellboy · 5 Avril 2005

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é · 5 Avril 2005

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 · 5 Avril 2005

ç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 · 5 Avril 2005

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.

Formule excel en VBa

Hellboy

XLDnaute Accro

Hervé

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

Hellboy

XLDnaute Accro

Discussions similaires

Formule excel en VBa

Hellboy

XLDnaute Accro

Hervé

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

Hellboy

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency