Bonsoir tout le monde,

J'ai un petit souci d'affichage dans une MsgBox.

J'ai une plage (A1:B10) et je souhaite une macro qui affiche une MsgBox me demandant si je veux effacer cette plage.

J'ai fais ceci, qui bien sûr ne joue pas.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub MaMsgBox ()
Dim x As Variant
 
x = Range("A1:B10")
 
Select Case MsgBox("Souhaitez-vous effacer les données de " & x & " ?", vbYesNo)
Case vbYes
[A1:B10].ClearContents
Case vbNo
End Select
End Sub
Bien sûr je peux faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub MaMsgBox ()
Select Case MsgBox ("Voulez-vous effacer les données de A1:B10 ?", vbYesNo)
Case vbYes
[A1:B10].ClearContents
Case vbNo
End Select
End Sub
mais par principe, je souhaite savoir comment je dois procéder pour la première façon.

Par avance je vous remercie.

Cdt, Antoniom.