> Tous les forums > Forum Bureautique
 Fonction vba
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
chabert
  Posté le 24/04/2013 @ 20:48 
Aller en bas de la page 
Astucien

Bonsoir à toutes et à tous

j'essai une fondtion vba et je bloque pour le résultat.

Function surface()

surface = longueur * largeur

End Function

Sub test1()
Dim var, rEsultat
var = InputBox("saisir la longueur")
var = InputBox("saisir la largeur")
rEsultat = surface(var)
MsgBox "la surface est : " & rEsultat

End Sub

ou est l'erreur?

merci de votre aide

Publicité
galopin01
 Posté le 24/04/2013 à 21:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonsoir,

Function surface(longueur, largeur )
surface = longueur * largeur
End Function

Sub test1()
Dim var, longueur, largeur, rEsultat
longueur = InputBox("saisir la longueur")
largeur = InputBox("saisir la largeur")
rEsultat = surface(longueur, largeur)
MsgBox "la surface est : " & rEsultat
End Sub


A+



Modifié par galopin01 le 24/04/2013 21:22
chabert
 Posté le 24/04/2013 à 22:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Merci galopin

A+

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Fonction RANG
Comment choisir la "fonction" de mes mails ?
EXCEL: Fonction DATEDIF
VBA Excel valeur en fonction de cellules
Fonction Si ou Macro ?
tarif en fonction de la date
Compteur d'impression en fonction destinataire
afficher une cellule en fonction d'une autre cellule
fonction SI avec trois critères - cellule en format [h]mm
Somme en fonction du N° de semaine
[Excel 2007] Fonction NB.SI - problème
Plus de sujets relatifs à Fonction vba
 > Tous les forums > Forum Bureautique