Boucle feuille

Bonjour,

J'ai besoin de vos aides pour ce code. Sachant que les feuille nommées : Maison S1, Maison S2, …

Merci

Sub Maison()
For i = 1 to 7
sheets("Maison S" & i).range("A1").value = i
Next
End sub

Bonjour,

Quel est le souci avec ce code ?

ric

Bonjour test2020, ric, le forum,

Si j'ai bien compris,

Sub test()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name Like "Maison S*" Then ws.Range("A1") = Mid(ws.Name, 9)
  Next ws
End Sub

Cordialement,