Macro à corriger : inscrire un numéro auto chaque feuilles

Résolu
ButteDuLac Messages postés 495 Date d'inscription   Statut Membre Dernière intervention   -  
ButteDuLac Messages postés 495 Date d'inscription   Statut Membre Dernière intervention   -
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é : 

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!


A voir également:

1 réponse

Réponse 1 / 1
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
ButteDuLac Messages postés 495 Date d'inscription   Statut Membre Dernière intervention   40
 
Wow!!! La perfection!
merci!

(Et ce, malgré que je m'étais moi-même mêlée dans ma question... ayant changé à la dernière minute mon nombre de feuilles... vous avez su percer mon mystère!!!)

Très, très gentil! Bonne fin de journée... soirée... matinée... selon où vous vous trouvez sur le globe!
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
Table des matières dont les titres n'apparaissent pas..
Synua -
ggg -

10 réponses
EXCEL transformer chiffres en lettre -facture
roland -
JBB -

26 réponses