msgbox

[jeanphi]

bonjour


j'ai deux petites questions
- comment dans un msgbox arriver à faire un espace entre le texte et la variable ("Calcul" dans mon code ci dessous)?
- comment fair epour que le montant de cette variable soit arrondi à deux décimales maximum?
merci 🙂

Private Sub CheckBox1_Click()
DateCreation = Worksheets("FEB").Range("E1")
DateLivraison = Worksheets("FEB").Range("F1")
Total = Worksheets("FEB").Range("C1")
Calcul = (DateLivraison - DateCreation) / Total
MsgBox "Le délai moyen est de" & Calcul & " jours", vbInformation, "Délai moyen entre date de création de la FEB et date de livraison"
End Sub

 

[Pierrot93]

Re : msgbox

Bonjour Jeanphi

si j'ai bien cmpris, essaye peut être le code ci dessous :

Private Sub CheckBox1_Click()
DateCreation = Worksheets("FEB").Range("E1")
DateLivraison = Worksheets("FEB").Range("F1")
Total = Worksheets("FEB").Range("C1")
Calcul = (DateLivraison - DateCreation) / Total
MsgBox "Le délai moyen est de " & Round(Calcul, 2) & " jours", vbInformation, "Délai moyen entre date de création de la FEB et date de livraison"
End Sub


bonne soirée
@+

 

[jeanphi]

Re : msgbox

super pierrot


c est ce que je voulais, merci bcp 🙂
cdlt