[VBA] calcul d'un périmetre
Résolu
leplatinum
Messages postés
96
Statut
Membre
-
aquarelle Messages postés 7435 Statut Modérateur -
aquarelle Messages postés 7435 Statut Modérateur -
Bonjour,
j'ai commencé le VBA petit a petit, et la j'essaye de faire un calcul de périmetre, cependant je rencontre un probleme lors du traitement
voici mon code :
Sub Perimetre()
'' Déclaration des variables ''
Dim o As Single
Dim a As Single
Dim p As Single
'' Entrée des données ''
o = InputBox("Indiquez la longueur du terrain", "Périmetre - Longueur")
a = InputBox("Indiquez la largeur du terrain", "Périmetre - Largeur")
'' Calcul du périmetre ''
p = ("o * 2" + "a * 2")
'' Copie des informations dans les cellules ''
o = Sheets("Jardin").Cells("B2")
a = Sheets("Jardin").Cells("B4")
p = Sheets("Jardin").Cells("B6")
End Sub
mais lors de l'execution du code, au traitement des données ( o+a *2) le programme indique une erreur de type 13, incompatibilité
quelqu'un pourrait t-il m'expliquer ce sue je dois changer dans le traitement pour qu'il fonctionne corretement ?
merci d'avance
au revoir
<config>Windows 7 / Chrome 22.0.1229.79</config>
j'ai commencé le VBA petit a petit, et la j'essaye de faire un calcul de périmetre, cependant je rencontre un probleme lors du traitement
voici mon code :
Sub Perimetre()
'' Déclaration des variables ''
Dim o As Single
Dim a As Single
Dim p As Single
'' Entrée des données ''
o = InputBox("Indiquez la longueur du terrain", "Périmetre - Longueur")
a = InputBox("Indiquez la largeur du terrain", "Périmetre - Largeur")
'' Calcul du périmetre ''
p = ("o * 2" + "a * 2")
'' Copie des informations dans les cellules ''
o = Sheets("Jardin").Cells("B2")
a = Sheets("Jardin").Cells("B4")
p = Sheets("Jardin").Cells("B6")
End Sub
mais lors de l'execution du code, au traitement des données ( o+a *2) le programme indique une erreur de type 13, incompatibilité
quelqu'un pourrait t-il m'expliquer ce sue je dois changer dans le traitement pour qu'il fonctionne corretement ?
merci d'avance
au revoir
<config>Windows 7 / Chrome 22.0.1229.79</config>
A voir également:
- [VBA] calcul d'un périmetre
- Calcul moyenne excel - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Calcul charpente bois gratuit - Télécharger - Architecture & Déco
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Logiciel gratuit calcul surface m2 - Télécharger - Outils professionnels
3 réponses
Bonsoir,
Essaie ainsi :
Essaie ainsi :
Sub Perimetre()
'' Déclaration des variables ''
Dim o As Single
Dim a As Single
Dim p As Single
'' Entrée des données ''
o = InputBox("Indiquez la longueur du terrain", "Périmetre - Longueur")
a = InputBox("Indiquez la largeur du terrain", "Périmetre - Largeur")
'' Calcul du périmetre ''
p = ((o * 2) + (a * 2))
'' Copie des informations dans les cellules ''
Sheets("Jardin").Range("B2").Value = o
Sheets("Jardin").Range("B4").Value = a
Sheets("Jardin").Range("B6").Value = p
End Sub
merci quand meme