Opération en boucle avec les feuilles d'un classeur

[Clo]

Bonjour Forum,


J'aimerais savoir comment effectuer une opération en boucle avec les feuille de mon classeur. Je dois effectuer toutes la même opération sur plusieurs onglets par contre j'aimerais pouvoir effectuer cette opération sans que je sois obligé de définir tout les noms de mes feuilles.


Voici ce que j'ai fais :

For i = 7 To 26

nom = "Feuil" & i
Worsheets(nom).Range(Cells(1, "a"), Cells(10000, "f")).ClearContents

Next i

J'ai changé tous les noms de mes feuilles par exemple ma feuille "Feuil7" porte le nom 223 , la "Feuil8" porte le nom 901, etc.


Pourquoi mon code ne fonctionne pas ? Avez-vous un suggestion ?


Merci beaucoup de votre aide et de vos suggestions.


CLO

 

[porcinet82]

Re : Opération en boucle avec les feuilles d'un classeur

Salut Clo,

La boucle suivante te permet de boucler sur toutes les feuilles de ton classeur et de supprimer le contenu de la plage de cellule A1:F1000 :
For Each ws In Worksheets
ws.Range("A1:F1000").ClearContents
Next ws

@+

 

[Pierrot93]

Re : Opération en boucle avec les feuilles d'un classeur

Bonsoir Clo

Ci dessous un code que tu peux adapter et utiliser pour boucler sur l'ensemble de tes feuilles.

Sub BoucleFeuilles()
Dim MaFeuille As Worksheet

For Each MaFeuille In Worksheets
    Sheets(MaFeuille.Name).Range(Cells(1, "a"), Cells(10000, "f")).ClearContents
Next

End Sub

Bonne soirée
@+

PS remplacer
Sheets(MaFeuille.Name).Range
par
MaFeuille.Range
Excuses

 

[Pierrot93]

Re : Opération en boucle avec les feuilles d'un classeur

Désolé Porcinet, pas rafraichi (la page) bonne soirée à toi

 

[porcinet82]

Re : Opération en boucle avec les feuilles d'un classeur

re,

Salut Pierrot, pas de mal, d'autant que dans code tu as mis la declaration de la variable que j'ai une fois de plus oublié, alors qu'il est bon de prendre l'habitude de les mettres.

Au plaisir,

@+

 

[Clo]

Re : Opération en boucle avec les feuilles d'un classeur

Bonjour Forum, Bonjour Pierrot93, Bonjour Porcinet82,


Merci beaucoup de votre aide. De ce que je comprend, je vais effacer toutes le contenu de mes feuilles. Ce que je désire ce sont les feuilles 7 à 26 seulement. Peut-on effectuer un test pour savoir si le nom de ma feuille est compris entre 7 à 26?


Merci beaucoup.


Clo 😛

 

[porcinet82]

Re : Opération en boucle avec les feuilles d'un classeur

re,

Non , tu ne peux pas faire exactement ce que tu souhaites, il faut passer par un code de ce genre :

Sub BoucleFeuilles()
Dim MaFeuille As Worksheet[LEFT]For Each MaFeuille In Worksheets
    Select Case MaFeuille.Name
    Case "nom_de ta 1ere feuille dont tu veux supprimer le contenu", "nom_de ta 2nde feuille" 'etc
    Sheets(MaFeuille.Name).Range(Cells(1, "a"), Cells(10000, "f")).ClearContents
    End Select
Next
End Sub

@+[/LEFT]