Suivi de numérotation sur différentes feuilles excel

Résolu/Fermé

Service clients Messages postés 12 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 25 février 2014 - 6 févr. 2014 à 11:25
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 6 févr. 2014 à 17:54

Bonjour,

J'ai créé un classeur avec plusieurs feuilles.
Sur chaque feuille un numéro doit apparaitre FC140001, FC140002....
Comment puis faire pour que cela soit automatique car j'ai plus de 150 feuilles à numéroter et au fil du temps, je vais en rajouter et je voudrais qu'elle se numérote seule.
Merci d'avance

A voir également:

Pagination excel plusieurs feuilles
Liste déroulante excel - Guide
Formule excel - Guide
Fusionner plusieurs feuilles excel en une seule - Guide
Formule excel pour additionner plusieurs cellules - Guide
Si et excel - Guide

3 réponses

Réponse 1 / 3

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
6 févr. 2014 à 12:16

Bonjour,

Tes onglets portent pas ces noms ou pas ?
Si tu veux créer une batterie d'onglets suivant ces noms, fais-le par macro.

A+

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
6 févr. 2014 à 12:27

D'après ta précision :

For Each s In Workbook.Sheets
s.Name=s.Range("G1").Value
Next s

Service clients Messages postés 12 Date d'inscription lundi 5 août 2013 Statut Membre Dernière intervention 25 février 2014
6 févr. 2014 à 13:03

Merci de ton retour mais je ne comprends pas trop ton explication.
En même temps je n'y connais pas grand chose à excel.
Merci d'être plus précis si possible

Réponse 3 / 3

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
Modifié par eriiic le 6/02/2014 à 18:25

Bonjour à tous,

code à mettre dans le module ThisWorkbook :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim ref As Range
    If sh.Index > 1 And Target.Address = "$G$1" Then
        Set ref = Worksheets(sh.Index - 1).[G1]
        If Left(ref, 2) = "FC" Then
            [G1].Value = "FC" & Format(Mid(Worksheets(sh.Index - 1).[G1], 3) + 1, "000000")
            Cancel = True
        End If
    End If
End Sub

Alt+F11 pour aller dans l'éditeur VBE

Ajoute ta feuille et double-clique en G1. Si la feuille précédente comporte une référence commençant par "FC" le numéro suivant est inséré.
Ta feuille doit être en dernier, je ne gère pas l'insertion de feuille au milieu. Tu aurais un doublon de numéro, à moins de changer la numérotation des feuilles suivantes (non demandé).
exemple : https://www.cjoint.com/c/DBgszF5B2cG

eric

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre).
Merci

Discussions similaires

Excel - Numérotation pages plusieurs feuilles

Fonction N° de page sur excel

Ne pas paginer derniére pages

Rapport : Ne pas Numéroter les 3 premières pages (LIBRE OFFICE)

Pagination continue avec changement de section

folio : nommer la page n°3 page n° 1

Discussions similaires

Newsletters