Effacement cellules automatiques

Bonjour,

Je sollicite de l'aide pour l'effacement de cellules bien précises.

Dans un classeur, j'ai un peu plus de 100 feuilles qui se nomme Agent1, Agent2, etc.

J'ai également d'autres feuilles qui se nomment "Sommaire", "Férié_Nbre_Jrs_Ouvrés", "Maladies_enfants", "Récap._Restauration".

Je souhaiterai une macro qui n'efface que les colonnes suivantes B21-E120 & M21-N120 uniquement dans les feuilles des Agents, mais pas dans les autres (Sommaire, Maladies_enfants, etc.).

Merci d'avance pour l'aide apportée et la solution proposée,

Cordialement, Chti59xcel

⚠ Dans ce message, j'ai remplacé mon code précédent par un autre : c'est le code de ma sub ClrBEMN(),

que j'ai d'abord écrite dans le fichier "Emploi_tps_congés.xls" (voir mon 2ème message situé plus bas).

Bonjour Chti59xcel,

Je te propose ce code VBA :

Option Explicit

' ClrBEMN : clear (efface) les colonnes
' BE & MN des lignes 21 à 120

Sub ClrBEMN()
  Dim FX As Worksheet
  For Each FX In Worksheets
    If Left$(FX.Name, 5) = "Agent" Then FX.Range("B21:E120, M21:N120").ClearContents
  Next FX
End Sub

Cordialement

Bonjour,

Merci pour l'envoi de cette macro, mais il y a eu un bug.

La ligne suivante est surligné en jaune : FX.Range("B:E, M:N").Columns.ClearContents.

Je vous fais parvenir une feuille de mon classeur pour info afin d'aider à trouver l'origine du bug

Encore merci,

cordialement, chti59xcel

Bonjour chti59xcel,

Dans ma macro précédente j'avais oublié que c'était des lignes 21 à 120 seulement !

c'est maintenant corrigé dans la nouvelle macro de ce fichier Excel :

Il n'y avait qu'une seule feuille nommée "Feuil1", que j'ai renommée en "Agent1" ;

j'ai mis un X dans toutes les cellules destinées à être effacées par la macro ;

j'ai copié cette feuille 4 fois ; j'ai renommé "Agent1 (2)" en "Agent2", etc...

➯ 5 feuilles : "Agent1" à "Agent5"

Ctrl c ➯ travail effectué : effacement des plages concernées, cela sur toutes

les feuilles ; le test de la ligne d'effacement fait que ça sera seulement sur

les feuilles dont les 5 premiers caractères du nom sont "Agent" ➯ dans ton

vrai classeur, les autres feuilles à côté n'auront aucun changement.

Alt F11 pour voir la macro, puis revenir sur Excel

Si besoin, tu peux me demander une adaptation.

Merci de me dire si ça te convient.

Cordialement

Bonjour,

C'est super génial, c'est comme une commande magique.

Cela va quand même m'éviter d'aller dans chaque feuille, il y en avait plus de 100...

Un grand merci pour cette macro commande et pour ce site Internet qui rend tellement de service

bonne journée

bien cordialement, Chti59xcel