répéter une procédure dans tous les onglets

[philmaure]

bonjour,

J'ai une procédure que je dois réaliser dans plusieurs onglets et dans différents fichiers.

Je ne connais pas forcément par avance le nom des onglets.

Comment puis je lancer cette procédure dans tous les onglets sans en connaitre leur nom.

J'ai mis un petit exemple très simplifié en pj.

Le but est que la macro soit lancée dans tous les onglets

Merci pour votre aide

Cdlt
Philmaure

 

[Jacky67]

Bonjour,
Essaye comme ceci

Sub Macro1()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
  For i = 1 To 5
    Sh.Cells(i, 1) = i
  Next
  For i = 2 To 7
    Sh.Cells(1, i) = Chr(i + 63)
  Next
  With Sh.Range("A1:G5")
    .Borders.Weight = xlThin
  End With
Next
End Sub

 

[philmaure]

Bonsoir,

un grand merci. Je vais adapter cela à mon fichier.

bonne soirée
Cdlt
Philmaure

 

[zebanx]

Bonsoir à tous,

Très pratique le coup du Chr
For i = 2 To 7
Sh.Cells(1, i) = Chr(i + 63)
Next

 

[Staple1600]

Bonjour le fil, le forum

Une autre possibilité (en utilisant une fonctionnalité rarement utilisée):
FillAcrossSheets
NB: Il faut qu'au départ que la plage recopiée soit déjà renseignée et formatée;
(ici on recopie la plage A1:G5 de la feuille 1 sur toutes les feuilles du classeur)

Sub b()
Dim TWs, i
With ThisWorkbook
ReDim TWs(1 To .Worksheets.Count)
    For i = 1 To .Worksheets.Count
        TWs(i) = .Sheets(i).Name
    Next
Sheets(TWs).FillAcrossSheets .Worksheets(1).Range("A1:G5")
End With
End Sub

 

[Jacky67]

Bonjour le fil, le forum

Une autre possibilité (en utilisant une fonctionnalité rarement utilisée):
FillAcrossSheets
NB: Il faut qu'au départ que la plage recopiée soit déjà renseignée et formatée;

Bonjour,
Ok, JM
C'est dans la boite à idées.
Merci