Numerotation automatique

bonjour mes amis,

je veux réaliser un compteur croissant automatique pour la numérotation des bons (N° Bon),

et merci d'avance.

Bonjour

Tu ne dis pas exactement ce que tu veux

Ci-joints 2 fichiers

Bon.xlsx numérote les fichiers selon leur nom

Bon_V2.xls crée 50 bons numérotés de 1 à 50 en cliquant sur le Bouion -Code dans le Module)

Cordialement

Bonsoir,

je veux exactement comme Bons_V2 sauf que sa soit pour toujours si c'est possible, a chaque fois je peux créer un bon avec son propre numéro

Merciii d'avance

Bonjour

En suivant

Cordialement

Je te remercie a fond Amadéus ,

Bonjour Amadeus, Warama,

Votre fichier m'intéresse, je me suis permis de le télécharger,

mais je souhaiterais que le Msg ZoneTexte 1 sur la feuille ne sois pas copié en même temps que le Bon..ci

de bien vouloir m'aider encore une fois.

Cordialement

Papy Pierrot

Bonjour

Sub Nouveau_Bon()
I = Sheets.Count
Sheets("Bon 1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Shapes("ZoneTexte1").Visible = False
ActiveSheet.Name = "Bon " & I + 1
End Sub

Cordialement

Bonjour Amadeus,

Un tout grand merci pour ta réponse,

c'est parfait.

Bonne fin de journée

Pierrot