Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Numérotation de différentes feuilles dans une cellule

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

castor123456

XLDnaute Nouveau
Bonjour à tous les forumeurs.
Débutant en matière de macro, je sollicite votre savoir faire pour me renseigner. J'ai déjà cherché dans les anciens post mais je n'ai rien trouvé pouvant correspondre. Je suis sous excel 2003. Dans le cadre de mon travail, je dois réaliser un fichier excel permettant de stocker des données toutes les semaines sur une période juillet à début septembre (le nombre de semaine est variable). Toutes les semaines, je crée une nouvelle feuille à partir d'une feuille modèle existante. La 1ère feuille du classeur s'appelle "accueil", la seconde "modèle". Je désirerai, si possible, avoir le code permettant de numéroter chaque feuille créée (hormis la feuille "accueil" et "modèle") dans la cellule A6 de chaque des feuilles respectives. La 1ère feuille créée portera le numéro 01, la 2ème le numéro 02... Le numéro de la nouvelle feuille devra tenir compte de la feuille précédente. Il est possible que je sois amené à supprimer une feuille donc il faudrait que la numérotation se refasse correctement pour qu'il ne manque pas de numéro.
Je ne sais pas si j'ai été clair. n'hésitez pas à me demander des compléments d'information si nécessaire.
Je vous remercie d'avance.
 
Trier par date Trier par votes
Re : Numérotation de différentes feuilles dans une cellule

Bonjour à tous,

Dans un Module Standard :

VB: 
Option Explicit

Sub Archivage()
    Sheets("Modèle").Copy After:=Sheets(2)
    With ActiveSheet
        .Name = Format(Sheets.Count - 2, "00")
        .Range("A6") = Format(Sheets.Count - 2, "00")
    End With
    Sheets("Accueil").Select
End Sub

A+ à tous
 
Vote positif 0 Vote négatif
Re : Numérotation de différentes feuilles dans une cellule

Bonjour castor123456, JCGL
À placer dans le module de la feuille "Accueil" (et à associer éventuellement à un bouton sur cette feuille) :
VB: 
Sub nouvelle()
Dim i&, j&, tmp$, sh As Worksheet, num()
  ReDim num(0)
  num(0) = "Modèle"
  For Each sh In Worksheets
    If sh.Name Like "##" Then
      ReDim Preserve num(UBound(num) + 1)
      num(UBound(num)) = sh.Name
      sh.Tab.ColorIndex = Worksheets("Modèle").Tab.ColorIndex '-4142 = aucune couleur
    End If
  Next
  For i = 1 To UBound(num) - 1
    tmp = num(i)
    For j = i + 1 To UBound(num)
      If num(j) < tmp Then num(i) = num(j): num(j) = tmp: tmp = num(i)
    Next j
  Next i
  For i = 1 To UBound(num)
    If Worksheets(num(i)).Name <> Format(i, "00") Then Exit For
  Next
  Worksheets("Modèle").Copy Before:=Sheets(num(0))
  With ActiveSheet: tmp = Format(i, "00"): .Name = tmp: .Tab.ColorIndex = 33: .Range("A6") = "'" & .Name: End With
  For i = i To UBound(num): Sheets(num(i)).Move Before:=Sheets(num(0)): Next
  Sheets(tmp).Activate 'ou bien :
'  Me.Activate
End Sub
​
ROGER2327
#4984

Mardi 3 Pédale 138 (Saint Ellen, hile, SQ)
7 Ventôse An CCXIX
2011-W08-5T23:57:23Z
 
Vote positif 0 Vote négatif
Re : Numérotation de différentes feuilles dans une cellule

Bonsoir,
Autant capturer l'événement Delete, ou plutot l'appui sur le bouton supprimer du menu feuille, est envisageable, autant le click sur le bouton de confirmation de la boite qui apparait lorsqu'on supprime une feuille...eh bé nada ! Or on peut toujours annuler l'opération...
A+
kjin
 
Vote positif 0 Vote négatif
Re : Numérotation de différentes feuilles dans une cellule

Les 2 solutions fonctionnent très bien et répondent à ma demande. Je vous en remercie.
PS : je n'aurai jamais réussit à écrire ce genre de code, trop peu de connaissance.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Question Question
XL 2016 Création de factures à parti d'un tableau
Réponses
5
Affichages
177
sfconstant
S
C
  • Question Question
Microsoft 365 Ajout de données dans tableau existant
Réponses
9
Affichages
238
chnico80
C
P
  • Résolu(e)
Microsoft 365 Utiliser la même macro dans des feuilles différentes
2 3
Réponses
35
Affichages
795
cathodique
S
  • Question Question
Microsoft 365 Reproduction d'un tableau sur plusieurs feuilles
Réponses
8
Affichages
238
TooFatBoy
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
683
Max
M
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
647
Max
M
C
  • Question Question
Microsoft 365 macro copie de feuilles (avec formules à adapter)
Réponses
9
Affichages
233
caseras
C
C
  • Résolu(e)
XL 2016 Automatisation de l'alimentation des cellules de plusieurs feuilles Excel (Formules : Recherchev...)
Réponses
10
Affichages
206
micheldu52
  • Question Question
Microsoft 365 créer des feuilles automatiques et une formule avec condition de remplissage
Réponses
2
Affichages
263
luno123
K
  • Question Question
XL 2010 copier le contenu de plusieurs feuilles sur une seule
Réponses
3
Affichages
201
sylvanu
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
6
Affichages
658
AtTheOne
N
  • Question Question
Microsoft 365 copie de cellule de plusieurs feuilles sur une autre
Réponses
2
Affichages
126
vgendron
  • Question Question
XL 2021 Remplissage de plusieurs cellules dans une colonne
Réponses
5
Affichages
133
AtTheOne
D
  • Résolu(e)
Microsoft 365 lier deux colonnes selon une liste de distribution dans un premier fichier
2
Réponses
16
Affichages
808
Daniel200666
D
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
736
Renaud22
R
E
  • Résolu(e)
Autres série de feuilles à incrémenter dans un tableau
Réponses
9
Affichages
135
Etienne
E
  • Résolu(e)
XL 2013 (RESOLU) Automatisation Copie Lignes Feuilles selon leurs nom
Réponses
10
Affichages
822
chaelie2015
F
  • Résolu(e)
Microsoft 365 Donner a une cellule le nom de la feuille
Réponses
5
Affichages
523
Faroyo
F
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
883
arnomorize
A
P
  • Résolu(e)
Microsoft 365 Rechercher une valeur d'une cellule à partir d'un nom de feuille
Réponses
2
Affichages
405
paulng
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…