[VBA] calcul d'un périmetre

Résolu/Fermé

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 - 4 oct. 2012 à 20:50
aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 - 4 oct. 2012 à 21:25

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>

A voir également:

[VBA] calcul d'un périmetre
Calcul moyenne excel - Guide
Calcul charpente bois gratuit - Télécharger - Architecture & Déco
Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
Logiciel calcul surface terrain gratuit - Télécharger - Outils professionnels
Calcul somme excel - Guide

3 réponses

Réponse 1 / 3

G_33
4 oct. 2012 à 20:55

bonsoir
Essayez

p = ("o * 2" )+ ("a * 2")

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 5
4 oct. 2012 à 20:57

j'essaye ca tout de suite et vous dis si ca marche

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 5
4 oct. 2012 à 20:58

non plus, erreur 13, incompatibilité de type
merci quand meme

Réponse 2 / 3

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 5
4 oct. 2012 à 21:05

quelqu'un aurait-il une idée ?
merci

Réponse 3 / 3

aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 302
4 oct. 2012 à 21:13

Bonsoir,

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

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 5
4 oct. 2012 à 21:16

je teste tout de suite

leplatinum Messages postés 85 Date d'inscription mercredi 14 mars 2012 Statut Membre Dernière intervention 21 juillet 2013 5
4 oct. 2012 à 21:24

voila je viens de tester et ca marche a merveille, merci beaucoup
et merci pour m'avoir changer le code d'affichage, sinon j'aurais encore chercher plus longtemps

au revoir et encore merci

aquarelle Messages postés 7141 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 302
4 oct. 2012 à 21:25

De rien et bonne continuation :)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

ouverture d'un fichier excel à partir d'un code VBA

Erreur d'exécution 13 Incompatibilité de type

Méthode find dans VBA - Recherche de données sous Excel

appliquer une pause dans une macro vba excel