écrire une formule dans la cellule (pb find et offset)

[mecasupienne]

Bonjour,

Je voudrais transformer un calcul que fait ma macro en l'écriture d'une formule dans la cellule. Seulement j'utilise une recherche de cellule dans une autre feuille et un offset!!

ActiveCell.Value = (Application.ActiveWorkbook.Sheets("Tdb DA").Cells.Find(What:=recherche, LookIn:=xlFormulas).Offset(0, Y).Value) / (ActiveCell.Offset(28, 0)) * 100


J'ai bien besoin d'aide!!

Merci

 

[macsscam]

Re : écrire une formule dans la cellule (pb find et offset)

Bonjour,

Une toute petite piste : essaie de découper ton enregistrement avec des étapes et des variables intermédiaires.

Peux-tu nous indiquer sinon ce qui plante ou ne fonctionne pas ? (description de l'erreur, résultat non conforme, etc.).

Merci,

--
macsscam

 

[mecasupienne]

Re : écrire une formule dans la cellule (pb find et offset)

Ce calcul fonctionne! Mais je ne sais pas comment retranscrire la fonction find et la fonction offset pour pouvoir écrire dans la cellule une formule du type :

ActiveCell.Formula = "=val1/val2*100"

où val1 = Application.ActiveWorkbook.Sheets("Tdb DA").Cells.Find(What:=recherche, LookIn:=xlFormulas).Offset(0, Y).Value

et val2 = ActiveCell.Offset(28, 0)

et je ne sais pas du tout comment m'y prendre!

 

[pierrejean]

Re : écrire une formule dans la cellule (pb find et offset)

Re

Vois si tu peux t'inspirer de cette fonction personnalisée

 

[mecasupienne]

Re : écrire une formule dans la cellule (pb find et offset)

Merci beaucoup...je vais regarder tout ca!