Macro Bouton ClearContents

[AHMOST]

Bonjour à vous !

Je cherche à faire une macro relativement simple, quoi que je "débute" en macros Excel qui me permettrait de vider les cellules sélectionnées sur deux feuilles différentes en cliquant sur le bouton "Reset Inputs".

Voici le code que j'ai fait :

Sub ClearContents()

Sheets("Notice").Select
Range("C25;C27:C37").Select
Selection.ClearContents
Sheets("Quotation").Select
Range("D1518;D2027").Select
Selection.ClearContents
Range("G16").Select


End Sub

Problème : une erreur 400 qui se déclenche, ainsi qu'une feuille "Quotation" qui ne se vide pas.
N'hésitez pas s'il manque des informations.

Thomas

 

[Efgé]

Re : Macro Bouton ClearContents

Bonjour AHMOST

Le sépararateur dans les range est la virgule.
Il est inutile d'utiliser les select.

Sub ClearContents_2()
Sheets("Notice").Range("C25,C27:C37").ClearContents
Sheets("Quotation").Range("D15:D18,D20:D27").ClearContents
End Sub

Cordialement

 

[AHMOST]

Re : Macro Bouton ClearContents

Parfait Efgé merci pour ton aide sur cette macro !