effacement par choix

[chaelie2015]

Bonjour Forum
je souhaite un code qui me donner le choix des zones a effacer.
dans le fichier rattaché; j'ai deux zones, je souhaite afficher un message (Msgbox) de cette façon
"que voulez_vous effacer la zone1 ou la zone2 ou les deux ?
merci

 

[jmfmarques]

Bonjour
Je n'ai pas ouvert (je ne le fais jamais) ton classeur

Telle qu'exposée, ta question n'est pas l'exploitation du choix, mais uniquement la manière d'inviter à choisir.

Cela s'appelle une boîte de dialogue (ici affichée par la fonction InputBox) !
reponse = inputbox("que voulez_vous effacer la zone1 ou la zone2 ou les deux ? ")

exemple très succinct :

reponse = InputBox("1 pour zone1, 2 pour zone2, 3 pour les deux zones", "choix de la zone à effacer ")

 

[Staple1600]

Bonjour le fil, chaelie2015, jmfmarques

•>jmfmarques
Pour éclairer ta lanterne

https://www.excel-downloads.com/thr...-effacer-les-formules.20043948/#post-20320619

 

[jmfmarques]

Bonjour Staple1600 et merci, mais je crois qu'il appartient à celui qui demande une aide de prendre la peine de le faire de manière technique et précise.
Amitiés

 

[Staple1600]

Re

•>jmfmarques
Moi, il m'appartient de me souvenir des fils où je suis intervenu.
Peu me chaut ce qu'on fait ensuite de cette information...
NB: J'ai mis le lien parce y figure le code VBA (sans avoir besoin d'ouvrir les PJ)

 

[chaelie2015]

Bonsoir jmfmarques, JM et le fil
merci pour la réponse jmf marques, moi j'ai pensé que chaque fois que j'ai un souci je le pose séparément d'autre discussions afain d'avoir le maximum d'info.
a+

 

[chaelie2015]

Bonsoir jmfmarques, JM
merci encore pour les remarques et les mots clés
ci joint le code

Sub effacer()
reponse = InputBox("1 pour zone1, 2 pour zone2, 3 pour les deux zones", "choix de la zone à effacer ")
Select Case reponse
Case 1: [zone_1] = Empty
Case 2: [zone_2] = Empty
Case 3: [zone_3] = Empty   'les deux zones 1 et 2'
End Select
End Sub

a+