OVH Cloud OVH Cloud

Arrondir....

1 réponse
Avatar
arnaud
Bonjour à tous.

Voici une petite macro qui m'affiche mes marges :
J'aimerai arrondir mes marges à l'entier près....

J'aimerai également Affecter une touche (genre F6) pour lancer cette boite
de dialogue ....

Comment je fais ??

Merci d'avance


Ma macro :

margerealisee = Application.Sum(Range("T2:T1300"))
margefuture = Application.Sum(Range("x2:x1300"))
Debug.Print margerealisee

MsgBox "RENTABILITE REALISEE :" & margerealisee & Chr(13) & "RENTABILITE
FUTURE : " & margefuture & Chr(13) & "ECART : " & (margefuture /
margerealisee * 100) & "%", vbOKOnly, "RENTABILITE DES ARTICLES"
End Sub

1 réponse

Avatar
FILK
Bonjour,

Je réponds à la question des raccourcis clavier :

Voila un exemple pour les raccourcis. Ne marche que si la macro "MSG" est
dans le meme module; et ca ne marche que si ctrl + m
Module 1
Public Sub Add_Hotkey()
Application.MacroOptions Macro:="MSG", Description:="", ShortcutKey:="m"
End Sub
sub MSG()
msgbox "yes !"
end sub

Dans thisWorkbook :
Private Sub Workbook_Open()
Module1.Add_Hotkey
End Sub

Pour l'arrondi : voir dans l'aide à "Round"


Bon courage.

Philippe.





Bonjour à tous.

Voici une petite macro qui m'affiche mes marges :
J'aimerai arrondir mes marges à l'entier près....

J'aimerai également Affecter une touche (genre F6) pour lancer cette boite
de dialogue ....

Comment je fais ??

Merci d'avance


Ma macro :

margerealisee = Application.Sum(Range("T2:T1300"))
margefuture = Application.Sum(Range("x2:x1300"))
Debug.Print margerealisee

MsgBox "RENTABILITE REALISEE :" & margerealisee & Chr(13) & "RENTABILITE
FUTURE : " & margefuture & Chr(13) & "ECART : " & (margefuture /
margerealisee * 100) & "%", vbOKOnly, "RENTABILITE DES ARTICLES"
End Sub