Aide pour un code d'effacement de cellules

[Hpotter]

Bonjour à tous,

J'aimerai faire un code qui me permet de sélectionner 52 feuilles en même temps et d'en effacer le contenu. Toutes ces feuilles commencent par la lettre "S" et ont ensuite un numéro de 1 à 52, par exemple S1, S2, S3 etc jusqu'à S52.

J'ai commençé avec ceci mais je bloque pour la sélection de cellules A13:N197 de chaque feuille et ensuite en effacer les données existantes.

For N = 1 To 52
    Sheets("S" & N).Visible = True
Next N
Sheets("1").Visible = False
Sheets("Accueil").Visible = False

Pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

 

[mth]

Re : Aide pour un code d'effacement de cellules

Bonjour,

un essai avec ce code:

For N = 1 To 52
    Sheets("S" & N).Range("A13:N197").ClearContents
Next N

Bon après-midi,

mth

 

[Hpotter]

Re : Aide pour un code d'effacement de cellules

Bonjour et merci pour ta réponse.
Toutes mes excuses pour le délai de réponse.

Je met en place et je te tiens informé

A+

 

[Hpotter]

Re : Aide pour un code d'effacement de cellules

Super ça marche. La réponse était simple et je cherchai compliqué.
Merci beaucoup
Cordialement