effacement par choix

J

jmfmarques

XLDnaute Accro

• 24 Avril 2020

• #2

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 :

VB:

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

 

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 24 Avril 2020

• #3

Bonjour le fil, chaelie2015, jmfmarques

•>jmfmarques
Pour éclairer ta lanterne 😉

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

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 24 Avril 2020

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Avril 2020

• #5

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)

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 24 Avril 2020

• #6

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 24 Avril 2020

• #7

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

VB:

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+

 

Vote positif 0 Vote négatif