Pb de débutant : msgbox et pourcentages

[Yann]

Bonjour à tous,

J'ai un petit pb de débutant : dans le fichier joint je veux faire apparaître via un Msgbox des pourcentages présents dans des cellules de la feuille 1 du classeur. Je n'arrive pas à obtenir un pourcentage sans décimal.
Une âme charitable pourrait-elle m'aider, ce serait très gentil ...

Merci beaucoup d'avance.

Yannn

 

[@+Thierry]

Bonjour Yann, le Forum

Sans voir ton fichier (Interdit de télécharger au bureau) voici un exemple tout simple

Exemple 1 / VBA calcule lui-Même
Sub MsgBoxPourCent()
Dim SourceA As Double
Dim SourceB As Double

SourceA = Range("A1")
SourceB = Range("B1")

MsgBox "Le Pourcentage de B1 sur A1 représente : " & Round(SourceB * 100 / SourceA, 0) & " %"
End Sub

Bon App
@+Thierry

 

[Yann]

Merci beaucoup Thierry ! C'est exactement ce que je voulais ...