[VBA] calcul d'un périmetre

[Résolu/Fermé]
Signaler
Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
-
Messages postés
7098
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
10 juin 2021
-
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>

3 réponses

bonsoir
Essayez

p = ("o * 2" )+ ("a * 2")
Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
4
j'essaye ca tout de suite et vous dis si ca marche
Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
4
non plus, erreur 13, incompatibilité de type
merci quand meme
Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
4
quelqu'un aurait-il une idée ?
merci
Messages postés
7098
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
10 juin 2021
1 293
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

Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
4
je teste tout de suite
Messages postés
85
Date d'inscription
mercredi 14 mars 2012
Statut
Membre
Dernière intervention
21 juillet 2013
4
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
Messages postés
7098
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
10 juin 2021
1 293
De rien et bonne continuation :)