Recherche erreur vba

[dianbobo]

bonjour j'ai besoin d'aide
j'ai une macro qui m'indique une erreur d'incompatibilité de type

en fait j'essai de faire un calcul dont le resultat doit apparaitre a la colonne 12
tout en recuperant dans ma feuille forwards la valeur dont j'ai besoin .
les ligne de ma feuille synthese peuvent varier


[cpp]Sub valorisation()


Dim lignesynthese As Single
Dim prix As Double
lignesynthese = 1
While (Cells(lignesynthese, 1)) = ""
lignesynthese = lignesynthese + 1
Wend
'lançons une boucle pour valoriser
While (Cells(lignesynthese, 1)) <> ""

Cells(lignesynthese, 12).Formula = (Cells(lignesynthese, 10) * R2C3 * (1 / (1 + Worksheets("Forwards").Cells(22, 10).Value)))

Wend


End Sub[/cpp]
merci de votre aide

 

[zeb]

Salut,

Sur quelle ligne l'erreur se produit-elle ?

Vire les parenthèses en trop. C'est illisible. Et utilise .Value quand tu t'intéresses à la valeur d'une cellule. tu ne le fais pas ligne 7, 11, 13. Tu le fais ligne 13 ! :/

Abandonne les While .. Wend
Utilise des Do While .. Loop à la place.

Dis donc, par quoi doit commencer toute formule en Excel ?