Microsoft 365 Macro effacer sans effacer mes listes déroulantes.

[blancolie]

Bonjour ou bonsoir,

j'ai utiliser ce code pour créer ma macro. Cela efface bien toutes mes données mais aussi mes listes déroulantes. C'est à dire que mes cellules sont vierges et je n'ai plus acces à mes listes déroulantes. quel est le code qui me permet d'effacer que le contenu pour que je puisse ré utiliser mes listes déroulantes.

Sub effacer()
Range("B5,B7, D5, F5").Select

Selection.Clear
End Sub

Merci à vous pour votre aide

 

[fanch55]

Salut, pas de solution
Si tu effaces les cellules qui constituent tes listboxs, celles-ci reflètent ce qui existe à l'instant T, cad rien .

 

[mapomme]

Bonsoir,

essayez ? :

Range("B5,B7, D5, F5").ClearContents

 

[blancolie]

bonsoir et merci, voila la solution :

Worksheets("données planning").Range("B5,B7,D5,F5,D7").ClearContents

cela marche bien

 

[blancolie]

merci mapomme, ta solution marche aussi et plus courte

 

[fanch55]

Ah, mal compris le pb, je ne pensai pas aux listes de validations, mais à des listbox indépendantes ...

 

[blancolie]

merci à tous

 

[mapomme]

Bonsoir @fanch55

Ah, mal compris le pb, je ne pensai pas aux listes de validations, mais à des listbox indépendantes ...

Je comprends mieux ta réponse