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

Résolu/Fermé

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 4 avril 2017 à 16:59
ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 - 4 avril 2017 à 19:50

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:

Macro à corriger : inscrire un numéro auto chaque feuilles
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Comment corriger l'erreur 0x80070643 ? - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
4 avril 2017 à 19:03

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

ButteDuLac Messages postés 495 Date d'inscription jeudi 5 mars 2009 Statut Membre Dernière intervention 24 octobre 2020 40
4 avril 2017 à 19:50

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!

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

exo pix

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

Discussions similaires

Newsletters