utiliser une boucle dans Excel

fattah_5791

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Re : utiliser une boucle dans Excel

Bonjour fattah :)

EDIT: Bonjour Hieu :)


Code:
For i = 1 to 10
Sheets(i).Range("B13:M57,AM13:AM57").ClearContents
next i
 
Dernière édition:

Hieu

XLDnaute Impliqué
Re : utiliser une boucle dans Excel

salut,

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

Discussions similaires


Haut Bas