Numerotation factures automatique sur plusieurs feuilles

Bonjour,

Chaque feuille de mon fichier est une facture nominative.

Les numéros de factures se suivent.... 1ère feuille Facture n°2018 01 01 2ème feuille Facture n°2018 01 02 etc....

Existe-t-il un moyen que la numérotation soit automatique sans que j'ai à la taper sur chaque feuille ?

Je vous remercie par avance de votre aide.

Bonjour,

Sub ChangeNom()
Dim WorkRng As Range
On Error Resume Next
xTitleId = "2018 01"
newName =  "Facture "&xTitleId & " "
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & "0" & i
Next
End Sub

Salut

OMG c'est du charabia pour moi............ je suis navrée.......... en pratique peux-tu me dire où je suis censée coller cette formule stp ??? merci

Bonjour à tous,

Salut Mus54 ...

Pour passer le cap du mois courant .. autant rendre xTitleId ...dynamique ... non ...?

@ cheucheugirl ...

Pourquoi ne pas joindre ton fichier ...?

Oh mais fallait juste me le demander hihi

Le voici !!!!

Grand Merci !!!!!!!!!!!!!!

position d'adoration.......

Re,

Merci ... cela permet de bien comprendre tes contraintes ...

Concrètement, tes factures ne comportent de date ( à part entière ...) ...

Donc une question se pose : quand et à quelle fréquence fais-tu tes factures ...???

(Dans le mois courant ... ou avec un décalage ... par exemple: en février pour facturer janvier ...)

De plus, est-ce que tes 40 Factures doivent toujours avoir la même date (Année Mois ) ou pas ...???

Re,

Ci-joint une première version à tester ...

Avec comme hypothèses de travail :

1. Pas d'exception dans les 40 Factures ...

2. Facturation faite dans le courant du même mois ...

Il suffit d'utiliser les deux touches Alt F8 pour lancer la macro ChangerDate

En espérant que cela t'aide ...

Bonjour,

Après avoir testé la macro .... il ne faut pas hésiter à faire part de tes commentaires ...