Numerotation auto facture par feuille

[kdet]

Bonjour le forum, bonjour à tous et à toutes

Est-ce possible de faire une formule de numérotation automatique d'une facture par feuille dans excel, c-à-d à chaque nouvelle feuille, la numérotation s'effectue automatiquement?
ex: Feuil1 : S009/FNG/CPTA/10
Feuil2 : S010/FNG/CPTA/10

Merci de votre aide

kdet🙂

 

[YANN-56]

Re : Numerotation auto facture par feuille

Bonsoir kdet, et à tous,

Tu as eu de la chance d'avoir des réponses de Staple et kjin !
(Pointures au combien respectables)

J'en profite pour leur faire un salut sympa.

J'ai envie de te dire, juste pour plaisanter, que pendant ce temps que tu as passé
avec ta question tu aurais pu construire moult classeurs avec des feuilles pour
tous les mois et une caisse de cellules bien renseignées; jusqu'au moins 2050

Amicalement et sans rancune puisque je n'ai passé que 10 minutes
à te proposer un exemple. (Bon! Ok! Je devais être à coté de la plaque!) 🙂

Yann

 

[Staple1600]

Re : Numerotation auto facture par feuille

Bonsoir YANN-56


Pour te mettre du baume au cœur, je vais aller voir de suite (car en ce jour point de flemme aux alentours 😉 ) ta pièce jointe.

J'espère que cela te fera plaisir et te permettra d'être en forme et guilleret pour le repas de ce soir 🙂

EDITION: je viens d'aller voir ( et comme je vois que tu aimes les endives comme moi)
Je me permets ces petites modifs dans ton code

Private Sub CommandButton1_Click()
Dim i&
For i = 1 To 12: Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = UCase(Replace(Replace(MonthName(i), "û", "U"), "é", "E"))
With .Cells(6, 10)
    .Value = "FACTURE N°  " & "SO" & Format(Format("1/" & MonthName(i), "mm"), ">") & "_FNG_CPTA_10"
    With .Font
        .Name = "Arial"
        .Bold = True
        .Size = 14
    End With
End With
End With
Next i
End Sub

Histoire d'éviter l'emploi d'un Select et de mettre les feuilles dans l'ordre chronologique.

Bon appétit pour tout à l'heure.

 

[YANN-56]

Re : Numerotation auto facture par feuille

Bigre de Bigre de Jean Marie!!!

T'as vu ma signature en Bleu just'en bas?

J'avais donc bien raison... 🙂

Sauf qu'en disant "les endives"
N'as-tu pas souvenir de mon vrai prénom?

Donc: "Les ans d'Yves" je trouve cela vraiment très indélicat de ta part!!! 🙁

En plus avec un "After" ajouté dans mon code; c'est dire!!!

Pas possibles ces jeunes! Mais que diantre; on les aime bien!

Yann

 

[Staple1600]

Re : Numerotation auto facture par feuille

Re


Le baume au coeur a-t-il fait son effet
L'appétit est-il venu en mangeant ?

Où est donc passé le posteur ? (alias kdet)

Les factures seront-elles numérotés avant leur édition ?

ouh ouh t'es ou ? kdet

 

[kdet]

Re : Numerotation auto facture par feuille

Re


Le baume au coeur a-t-il fait son effet
L'appétit est-il venu en mangeant ?

Où est donc passé le posteur ? (alias kdet)

Les factures seront-elles numérotés avant leur édition ?

ouh ouh t'es ou ? kdet

Bonjour Yann Staple

Merci pour votre soutien mais je le teste en ce moment même
Je vous tiendrais au courant

Kdet🙂

 

[kdet]

Re : Numerotation auto facture par feuille

Re Staple, Yann

Tout va bien mais juste une petite question :
Ne pourrait-on pas l'ajuster sur D6 dans le code??

Merci

Kdet

 

[kdet]

Re : Numerotation auto facture par feuille

re Staple, Yann

C'est bon J'ai changé le code "With .Cells (6, 4)"
Et je vous remercie infiniment de m'avoir aider
Merci le forum

Cordialement

Kdet