Macro à corriger : inscrire un numéro auto chaque feuilles
Résolu
ButteDuLac
Messages postés
534
Statut
Membre
-
ButteDuLac Messages postés 534 Statut Membre -
ButteDuLac Messages postés 534 Statut Membre -
Bonjour,
J'essaie de me composer une Sub() pour, dans chaque feuille de mon classeur (sauf la première), incrémenter un numéro de 1 à 52, dans la cellule B1.
Avec mes connaissances très, très sommaires j'avais essayé :
Mais ça insère successivement les numéros 1 à 54 dans la cellule B1 de la première feuille, et rien dans les autres...
Quelqu'un pourrait corriger mes erreurs, svp?
Merci à l'avance!
J'essaie de me composer une Sub() pour, dans chaque feuille de mon classeur (sauf la première), incrémenter un numéro de 1 à 52, dans la cellule B1.
Avec mes connaissances très, très sommaires j'avais essayé :
Sub numSem()
Dim i As Integer, f As Worksheet
For Each f In Sheets
For i = 0 To 54
Range("B1").Value = i
Next i
Next f
End Sub
Mais ça insère successivement les numéros 1 à 54 dans la cellule B1 de la première feuille, et rien dans les autres...
Quelqu'un pourrait corriger mes erreurs, svp?
Merci à l'avance!
1 réponse
-
Bonjour
A mettre dans un module général(Module 1 par exemple)
Option Explicit Const nbf = 53 'nombre de feuilles du classeur Public Sub NumSem() Dim nuf As Long ' numéro de feuille Dim nusem As Long 'numero semaine For nuf = 2 To nbf nusem = nuf - 1 Sheets(nuf).Range("B1").Value = nusem Next nuf End Sub
Cdlmnt
