Discussion :

[Antoniom]

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.

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[pgz]

Bonsoir.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
x.ClearContents
Case vbNo
End Select
End Sub

COrdialement,

PGZ

[Pierre Fauconnier]

, 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...

[Antoniom]

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 !

[Pierre Fauconnier]

Hum....

Il ne te manquait pas le Set?

[Antoniom]

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

Bref, merci encore m'sieur

Au plaisir, Antoniom.

[pgz]

, 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...

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.
Il y en avait un peu trop pour moi.

PGZ