utiliser une boucle dans Excel

[fattah_5791]

salut,
j'ai un classeur excel qui contient une dizaine de feuilles, j'ai affecté un code VBA à un bouton pour m'effacer le contenu d'une meme plage des feuilles, j'ai pensé à une boucle pour ne pas trop charger mon classeur par le code.
aidez moi


code VBA pour effacer le contenu de la feuille TC.Sc1.Xlsm

Sub Vider1()
' Vider1 Macro
Sheets("TC.Sc1").Select
Range("B13:M57,AM13:AM57").Select
Selection.ClearContents
Range("B13").Select
End Sub

je veux effacer le mm contenu des feuilles TC.Sc2,......, TC.Sc10
Merci

 

[Lone-wolf]

Re : utiliser une boucle dans Excel

Bonjour fattah

EDIT: Bonjour Hieu

For i = 1 to 10
Sheets(i).Range("B13:M57,AM13:AM57").ClearContents
next i

 

[Hieu]

Re : utiliser une boucle dans Excel

salut,

Sub Vider1()
for i = 1 to 10
    Sheets("TC.Sc" & i).Range("B13:M57,AM13:AM57").ClearContents
next i
End Sub

++