• Initiateur de la discussion Initiateur de la discussion stef784
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

stef784

XLDnaute Junior
Bonjour,

On me demande de redigez un programme qui lors de son éxecution permet à l'utilisateur de donner son prénom et son année de naissance, puis qui après avoir calculé l'age de l'utilisateur affiche par exemple:

" Cher Joseph, vous avez 20 ans. Bonne chance!"
( sur une ligne, puis sur deux lignes)


Voila ce que j'ai fais mais je pense qu'il y a des erreurs:

Sub Macro1()
Dim x As String
Dim y As Integer
x = InputBox("Quel est ton prénom")
y = InputBox("quel est ton année de naissance")
MsgBox ("Cher" & x & "vous avez" & Year(Date - x) & "ans")


End Sub

Ca ne marche pas il y a une erreur au niveau de MsgBox ?
 
Re : Macro

Bonjour,
Juste une petite erreur :

Sub Macro1()
Dim x As String
Dim y As Integer
x = InputBox("Quel est ton prénom")
y = InputBox("quel est ton année de naissance")
MsgBox ("Cher" & x & "vous avez" & Year(Date - y) & "ans")


Bonne soirée
Guiv
 
Re : Macro

Bonsoir,


Sub Macro1()

Dim x As String
Dim y As Integer
x = InputBox("Quel est ton prénom")
y = InputBox("quel est ton année de naissance")
' Ne pas oublier les espaces dans les chaines de caractères
' Sinon-> chermachinvous avez10ans
MsgBox "Cher " & x & " vous avez " & (Year(Date) - y) & " ans." & vbCrLf _
& "Bonne chance!"

End Sub

la constante vbCrLF renvoie un retour chariot plus une maque de nouvelle ligne.
 
Re : Macro

Ah oui c'est bon merci!

On me demande ensuite:

Redigez un programme qui demande à l'utilisateur de donner le prix unitaire d'une produit (type double) , le nombre de produit correspondants (type Integer) et le taux de TVA a appliquer sur le montant (type double), puis qui calcule le montant final.

Mais la je me mélange les pédales!

Sub Macro1()
Dim x As Double
Dim Y As Integer
Dim Z As Double
x = InputBox("Donnez le prix d'un produit")
Y = InputBox("Combien avez vous acheté de ce produit")
Z = InputBox("Quel taux de TVA a appliquer sur le produit?")
MsgBox("Le montant est donc de" &(x*y)*z%))
 
Re : Macro

Re

Code:
Sub Macro1()
Dim x As Double
Dim Y As Integer
Dim Z As Double
x = InputBox("Donnez le prix d'un produit")
Y = InputBox("Combien avez vous acheté de ce produit")
Z = InputBox("Quel taux de TVA a appliquer sur le produit?")
MsgBox "Le montant est donc de " & Format(Round((x * Y) + (((x * Y) * Z) / 100), 2), "0.00 €")
End Sub

@+
 
Re : Macro

re

qu'as tu rentré comme données ? chez moi le séparateur de décimal est le point, si chez toi c'est la virgule modifies le format en conséquence.

Code:
Format(Round((x * Y) + (((x * Y) * Z) / 100), 2), "0[COLOR="Red"][B],[/B][/COLOR]00 €")
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
490
Réponses
7
Affichages
786
Réponses
1
Affichages
585
Réponses
1
Affichages
714
Compte Supprimé 979
C
Retour