Macros

[stef784]

Bonjour,

j'ai un probleme:

je dois rédigez une macro qui range deux valeurs dans deux variables de meme type et échange leur contenu (on visualisera les resultats grace a lexecution pas à pas)

pouvez vous m'aidez ? je comprend deja mal la consigne

 

[Pierrot93]

Re : Macros

Bonjour Stef

regarde peut être le code ci dessous, si cela peut t'aider et si j'ai bien compris... pas sur...

Option Explicit
Sub test()
Dim var1 As String, var2 As String, temp As String
'initialisation des variables
var1 = "valeur 1"
var2 = "valeur 2"
'utilisation d'une variable temporaire
temp = var1
'inversion valeurs
var1 = var2
var2 = temp
End Sub

bonne journée
@+

 

[stef784]

Re : Macros

merci pour la réponse
j'ai une autre question

On me demabde de redigez un programme qui demande à l'utilisateur de donner le prix unitaire d'un produit (type double) le nombre de produits correspondants (type integer) et le taux de tva a appliquer sur le montant (type double) puis qui calcule le montant final.

Voici ma macro:



Sub macro()
Dim x As Double
Dim y As Integer
Dim z As Double
x = InputBox("entrez le prix du produit")
y = InputBox("combien en avez vous acheté")
z = InputBox("entrez le taux de tva")
MsgBox ("Le montant final est de " & " " & (x * y) * z%)

End Sub

Mais ça ne marche pas pourquoi?

 

[nouv]

Re : Macros

bonjour,

le symbole pourcent est réservé (il me semble pour déclarer en integer)
remplace par :
MsgBox ("Le montant final est de " & " " & (x * y) + (x * y) * z / 100)

><>