EXERCICE Excel-VBA

BONSOIR !

Sujet: Ecrire une macro qui permet de calculer la surface d'un rectangle à partir des valeurs contenues dans les cellules E2 et F2 de la deuxième feuille de calcul. le résultat sera écrit dans la cellule G2.

En saisissant le code je tombe sur une difficulté: " Erreur d'exécution 9".

Pourriez vous m'aider?

Sub ChoixClasseur()

Dim Longueuer As Double, largeur As Double, AireRectangle As Double, Classeur6 As String, Feuil2 As String

Longueur = Workbooks("Classeur6").Worksheets("Feuil2").Range("E2")

largeur = Workbooks("Classeur6").Worksheets("Feuil2").Range("F2")

AireRectangle = ValeurLigne * ValeurLigne2

ActiveCell.FormulaR1C1 = AireRectangle

End Sub

Bonjour

cherche pas la complexité

si résultat en G2 de feuille2

Sub aire()
Worksheets("Feuil2").Cells(2, 7) = Worksheets("Feuil2").Cells(2, 5) * Worksheets("Feuil2").Cells(2, 6)
End Sub

si résultat en G2 de feuille1

Sub aire()
Worksheets("Feuil1").Cells(2, 7) = Worksheets("Feuil2").Cells(2, 5) * Worksheets("Feuil2").Cells(2, 6)
End Sub

A plus sur le forum

Bonsoir.

je suis en train d'apprendre ce langage...

Encore Merci