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
++
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas