XL 2019 Macro pour effacer une plage de cellule

[Toubabou]

Bonsoir à tous

Dans ma feuille « Ressources 2021 », j’ai un bouton qui me permets d’effacer certaines plages de cellules.

J’essaye de rentrer dans la macro « Efface » la commande pour effacer le contenu de cellules allant de B95 à B106 et E95 à E106. Visiblement j’ai un soucis mais je ne trouve pas quoi. Toutes les autres lignes de commande fonctionnent seul ces deux dernière.

Pourriez vous m’aider à trouver mon erreur.

Merci par avance

 

[natorp]

Bonsoir Toubabou

Il s'agit de cellules fusionnées, reformatez les cellules en question avec "Centré sur plusieurs colonnes"
Et ça marche

Cordialement, Gérard

 

[Toubabou]

Bonsoir natorp,
Merci beaucoup pour votre aide. Nickel cela fonctionne parfaitement
Merci encore

 

[Eric C]

Bonsoir le forum
Bonsoir Toubabou - Oupssss, pas rafaîchi : bonsoir natorp

"ClearContents" ne fonctionne pas avec les cellules fusionnées. A remplacer par :

Sheets("Ressources 2021").Range("b95:e106").Value = ""
 Sheets("Ressources 2021").Range("e95:e106").Value = ""

Bonne soirée à toutes & à tous
@+ Eric c

 

[Eric C]

Re, et pour économiser tes petites mimines, tu peux synthétiser :

 Worksheets("Ressources 2021").Range("b26:c37,b45:e56,b62:e73,b79:e90").ClearContents

@+ Eric c