Incrémentation Code

Bonjour,

Je souhaite créer des formulaires de saisie pour 4 services différents (A, B, C et D).

Ces services doivent acheter des fournitures de différents types (bureau, carton, vêtements).

J'ai créé un formulaire modèle et je duplique la feuille avant de créer une copie mais je voudrais la renommer la feuille du fichier selon l'achat et le numéro de commande :

SERVICEA_BUREAU_Cde1

SERVICEA_VETEMENTS_Cde1

SERVICEB_CARTON_Cde1

SERVICEC_VETEMENTS_Cde1

SERVICEC_CARTON_Cde1

SERVICEA_VETEMENTS_Cde2

J'ai bien trouvé sur un forum le code suivant :

Option Explicit
Dim N
Sub NouveauNuméro()
    On Error GoTo NuméroUn
    N = Right(Range("D3").Value, 5)
    Range("D3").Value = "F" & Year(Date) & Month(Date) & "-" & Format(N + 1, "00000")
    Exit Sub
NuméroUn:
    Range("D3").Value = "F" & Year(Date) & Month(Date) & "-" & Format(1, "00000")
    Resume Next
End Sub

Mais cela suppose que l'on connaisse la 1ère commande de chaque service.

Merci pour votre aide

Bonjour,

Sans fichier exemple difficile de se rendre compte des possibilités pour la création ou l'utilisation de variables existantes ou non.