Suivi de numérotation sur différentes feuilles excel

Re bonjour,

Je précise que cette numérotation apparait dans une cellule (G1), toujours la même sur chaque feuille.

Merci

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