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
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
-
ContributeurBonjour à 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