Sujet Précédent Sujet Suivant

[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 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 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:

3 réponses

Réponse 1 / 3
G_33
4 oct. 2012 à 20:55
bonsoir
Essayez

p = ("o * 2" )+ ("a * 2")
0
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
0
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
0
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
0
Réponse 3 / 3
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 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

0
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
0
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
0
aquarelle Messages postés 7140 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 25 mars 2024 1 302
4 oct. 2012 à 21:25
De rien et bonne continuation :)
0

Discussions similaires

ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
exo pix
Xtyller -
Raymond PENTIER -

2 réponses
EXCEL - Calcul automatique de Fin de contrat et période d'essai
Laudme -
moimeme -

7 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses