Résultat dans msgbox

[filouplatchaud]

Bonjour a tous

Est il possible que le résultat s'affiche dans un msgbox ?
si oui pouvez vous me modifier le code
Merci

 

[PMO2]

Re : Résultat dans msgbox

Bonjour,

Essayez le code suivant

Sub boite0()
Dim R As Range
On Error Resume Next
Set R = Application.InputBox(Prompt:="Sélectionner une plage de cellules", _
  Title:="Calcul d'un montant entre deux dates", Type:=8)
If Err <> 0 Then Exit Sub
Range("G20") = "=sum(" & R.Address & ")"
MsgBox Application.WorksheetFunction.Sum(R)
End Sub

Cordialement.

PMO
Patrick Morange

 

[filouplatchaud]

Re : Résultat dans msgbox

Meci PMO2
ça fonctionne