Placer des données sur un MsgBox

Bonjour imej-clavier,

essaie ceci :


Sub Message()
Dim Message As String
Dim Rg As Range, C As Range
Set Rg = Range("B3:F6")

For Each C In Rg
If C.Value = ChiffreCherché Then
Message = Message & C.Address(0, 0) & ", "
End If
Next
If Message <> "" Then
Message = Left(Message, Len(Message) - 2)
MsgBox Message, vbInformation, "les adresses"
End If
Set Rg = Nothing: Set C = Nothing

End Sub


Salutations!


"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de news:exBTNFgfEHA.4092@TK2MSFTNGP10.phx.gbl...
Bonjour,
Quelqu'un peut-il m'aider à résoudre mon problème?
Je souhaiterais mettre toutes les informations (adresses) sur le même
MsgBox. Comment écrire mon
code pour celà. (J'ai rempli une feuille avec des chiffres.
ChiffreCherché=InputBox("Saisissez un chiffre ")
Set MaPlage = Range("B3:F6")
MaPlage.Select
For Each Cell In Selection.Cell
If Cell.Value=ChiffreCherché Then
MsgBox Cell.Address
MaPlage.Cells(1,1).Value=MaPlage.Cells(2,1).Value
'Je souhaiterais mettre toutes les adresses dans le même MsgBox.
D'avance merci,

Jean-michel