EFFACER LISTE MODIFIABLE

[Nabil]

Bonjour,

j'utilise 2 bandes déroulantes générées par une macro. Je souhaiterai qu'elles s'effacent dès que le choix sur celles ci a été fait.

ci dessous le code utilisé

MsgBox ("sélectionner vos bornes ")
'filtre 1ere borne'
Application.CommandBars("Forms").Visible = False


ActiveSheet.DropDowns.Add(294, 168, 168, 15.75).Select
With Selection
.ListFillRange = nombre1
.LinkedCell = "$H$10"
.DropDownLines = 8
.Display3DShading = False
End With

'filtre 2eme borne'

ActiveSheet.DropDowns.Add(320, 150, 150, 15.75).Select
With Selection
.ListFillRange = nombre1
.LinkedCell = "$H$11"
.DropDownLines = 8
.Display3DShading = False
End With


Merci pour votre aide !

 

[michel]

bonjour Nabil

Une solution consiste à nommer les objets lors de leur création
c'est ensuite plus facile pour les retrouver et les supprimer

par exemple dans ta macro d'origine :

........
Feuil1.DropDowns.Add(294, 168, 168, 15.75).Select
With Selection
.Name = "Cible"
.ListFillRange = "A1:A10"
.LinkedCell = "$H$10"
.DropDownLines = 8
.Display3DShading = False
End With
.......


et ensuite dans ton autre macro , quand tu souhaites supprimer l'objet :

......
'suppression de l'objet uniquement s'il y a une donnée de sélectionnée dans la liste
If Not ActiveSheet.Shapes("Cible").ControlFormat.ListIndex = 0 Then _
ActiveSheet.Shapes("Cible").Delete
......


bonne soirée
MichelXld