Ajouter +1 sur une plage de cellules

Bonjour à tous,

J'aimerai ajouter 1 apres chaque semaine du style Semaine 1 , Semaine 2, ...

Merci d'avance

Bonjour,

avec un format perso

a tester

Merci de ta réponse pourrais-tu me le mettre en xlsm s'il te plait?

Sinon c'est bien ce format la

Re,

Pour faire quoi, avec quelle cellule ou plage de cellule.

T'as question est tellement précise que

Développe avec un classeur modèle de ce que tu veux faire

Le format xlsm me permet de voir le code généré.

Je dois compter les semaines comme tu l'avais fait auparavant. =)

Ne voulant pas joindre mon fichier je t'invite à copier le code:

Sub test()

With ThisWorkbook.Worksheets("Feuil1")

.Range("D1:BD1").Formula = "Sem"

.Range("A4:A200000").Formula = "Dossier"

Cells(2, 1) = "Dossiers"

Range("A2").Font.Bold = True

Cells(1, 2) = "Semaines"

Range("B1").Font.Bold = True

End With

End Sub

A voir

Sub test()

  With ThisWorkbook.Worksheets("Feuil1")
  .Range("D1:BD1").Formula = "Sem"
  J = 1
    For i = 4 To 56
      Cells(1, i).Value = Cells(1, i).Value & " " & J
      J = J + 1
    Next i
  .Range("A4:A200000").Formula = "Dossier"
  Cells(2, 1) = "Dossiers"
  Range("A2").Font.Bold = True
  Cells(1, 2) = "Semaines"
  Range("B1").Font.Bold = True
  End With

End Sub

Re, voir plus court

Sub test()
Dim i%, J%
  With ThisWorkbook.Worksheets("Feuil1")
  J = 1
    For i = 4 To 56
      Cells(1, i).Value = "Sem " & J
      J = J + 1
    Next i
  .Range("A4:A200000").Formula = "Dossier"
  Cells(2, 1) = "Dossiers"
  Range("A2").Font.Bold = True
  Cells(1, 2) = "Semaines"
  Range("B1").Font.Bold = True
  End With
End Sub

Merci beaucoup je suis débutant.. =)