Suivi de numérotation sur différentes feuilles excel

Résolu
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

3 réponses

  1. Contributeur
    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
    0