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
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)
VB:
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
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