Valeurs dans MsgBox.

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:

---

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:

---

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.

Bonsoir

Il est toujours souhaitable de travailler avec des variables typées.

Travailler avec une variable de type Range te permet d'utiliser les méthodes et propriétés appropriées.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MaMsgBox () Dim x As Range   Set x = Range("A1:B10")   Select Case MsgBox("Souhaitez-vous effacer les données de " & x.Address & " ?", vbYesNo) Case vbYes x.ClearContents End Select End Sub

---

J'ai supprimé le Case vbNo, inutile dans ce cas puisque le bloc ne contient aucune ligne de code.

Bonsoir.

Tu peux essayer

Code:

---

1 2 3 4 5 6 7

Sub MaMsgBox () Dim x As Variant   x = Range("A1:B10")   Select Case MsgBox("Souhaitez-vous effacer les données de " & x.Address(false,false) & " ?", vbYesNo) Case vbYes

---

et tant que tu es sur les principes

Code:

---

1 2 3 4

x.ClearContents Case vbNo End Select End Sub

---

COrdialement,

PGZ

8O, pgz

1. Sans mettre Set x = range(...) tu n'initialiseras pas un objet, donc tu ne pourras pas en utiliser les propriétés et tu planteras sur x.Address et sur x.ClearContents.

2. je ne vois pas trop l'intérêt, a priori, de travailler avec un Variant plutôt qu'avec le bon type d'objet. C'est se priver des options de débogage, de la saisie semi-automatique,...

3. Je ne vois pas trop l'utilité du Case vbNo... et je n'ai pas compris et tant que tu es sur les principes

Bref... Je n'ai pas compris... l'utilité de ta réponse... :koi:

Re-bonsoir,

Merci beaucoup à vous de m'avoir montré. Je n'étais pas loin.

Me manquait deux petits mots, le Range de Dim x As Range et le Address de x.Address.

Encore un grand merci.

Antoniom.

P. S. Et manquait aussi le Set !

Hum....

Il ne te manquait pas le Set?

Re,

Oui au final, il me manquait aussi le Set, mais dans mes diverses tentatives d'essais, un coup je l'avais mis, (c'est pour ça j'ai cru qu'il me manquait que deux p'tits mots) mais à ce moment là, me manquait le Address :mouarf:

Bref, merci encore m'sieur :king:

Au plaisir, Antoniom.

Citation:

---

Envoyé par Pierre Fauconnier

8O, pgz

1. Sans mettre Set x = range(...) tu n'initialiseras pas un objet, donc tu ne pourras pas en utiliser les propriétés et tu planteras sur x.Address et sur x.ClearContents.

2. je ne vois pas trop l'intérêt, a priori, de travailler avec un Variant plutôt qu'avec le bon type d'objet. C'est se priver des options de débogage, de la saisie semi-automatique,...

3. Je ne vois pas trop l'utilité du Case vbNo... et je n'ai pas compris et tant que tu es sur les principes

Bref... Je n'ai pas compris... l'utilité de ta réponse... :koi:

---

Tu as raison. En fait j'avais vu le .Address et l'objet de ClearContents. Et c'était bien le seul intérêt de la réponse.
Le reste j'ai lu trop vite. :aie:
Il y en avait un peu trop pour moi.

PGZ