Calcul de surfaces de forme dessin

Bonjour

Je recherche une formule qui totalise la somme des surfaces des formes qui sont insérées dans une feuile excel

voir fichier

Ces formes sont uniquement des rectangles ou des carrés

merci d'avance

Bernard

Bonjour,

Quel est le problème ? Tu as oublié comment calculer la surface d'un rectangle ?

le problème réside dans le fait qu'avec la souris je génère des formes (*)

aux dimensions aléatoires.

je voudrais m'éviter pour chaque forme dessinée d'avoir a faire

la sélection de la forme , clic droit , taille de la forme , noter les valeurs et mémoriser le résultat

et ainsi de suite pour toutes les formes créées

(*) le nombre de forme peut varier

Bonjour,:

C'est quoi tes unités 5 et 3 par exemple ?

En VBA :

Sub Test()

    Dim S As Shape
    Dim Surface As Double

    For Each S In ActiveSheet.Shapes

        Surface = Surface + S.Width * S.Height

    Next S

    MsgBox "Surface totale en points : " & Round(Surface, 2)

End Sub

les unités peuvent etre en mm , cm , mètre

5 et 3 representent les valeurs trouvés dans l'exemple en faisant taille et propriétés

Re,

Sub Surfaces()
    Dim shp As Shape, w!, h!, S!
    For Each shp In ActiveSheet.Shapes
        If shp.Name Like "Rectangle*" Then
            w = shp.Width: h = shp.Height
            w = w / Application.CentimetersToPoints(1)
            h = h / Application.CentimetersToPoints(1)
            S = S + w * h
        End If
    Next shp
    ActiveSheet.Range("A2") = S
End Sub

Cordialement.

NB- La surface est en cm².

BRAVO et merci

répond parfaitement à mon problème

Excellente journée à vous !