Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

[fmikey75]

Bonsoir tout le monde et merci de m'accueillir,

Je voulais savoir si vous pouviez m'aider pour créer une numérotation sur des fiches d'inscription dans excel, voilà je travaille dans une association à but non lucratif et je dois créer des fiches numérotées, mais je n'ai aucune idée pour faire la numérotation de BA-11-0001 à BA-11-1000.(1000 fiches en tout)
j'ai joint la fiche et la cellule en rouge est la cellule numérotée à faire suivre sur les 999 autres fiches.


Vous en remerciant mille fois de votre aide et par avance

Cordialement

M. PELOUT
sandrinepelout@yahoo.fr

 

[systmd]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour,

Si j'ai bien compris

Sub Incremente()
Range("G3") = "BA-11-" & (Format(Mid(Range("G3"), 7, 4) + 1, String(4, "0")))
End Sub

Sub Raz()
Range("G3") = "BA-11-0000"
End Sub

 

[fmikey75]

Re : Numérotation de fiches sous excel de BA 11 0001 à BA 11 1000

Bonjour et merci bien de me répondre,

je ne sais pas du tout ou rentrer ces codes?
Mon but est d'imprimer à partir du modèle joint avant, 1000 fiches numérotées
BA 11 0001 à BA 11 1000.
Pouvez vous m'aider S.v.P ?

Je vous remercie par avance

M. PELOUT

Merci

Bonjour,

Si j'ai bien compris

Sub Incremente()
Range("G3") = "BA-11-" & (Format(Mid(Range("G3"), 7, 4) + 1, String(4, "0")))
End Sub

Sub Raz()
Range("G3") = "BA-11-0000"
End Sub

 

[systmd]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonsoir

J'ai trois bouton: -1 qui incrémente le compteur
-1 pour Imprimer le formulaire
-1 Pour remettre à zéro le compteur

Code lisible dans Module1 (Alt F11), espérant que celà puisse vous aider

 

[fmikey75]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonsoir

J'ai trois bouton: -1 qui incrémente le compteur
-1 pour Imprimer le formulaire
-1 Pour remettre à zéro le compteur

Code lisible dans Module1 (Alt F11), espérant que celà puisse vous aider

Bonsoir et merci mille fois, c'est genial, c'est ce genre de tableau q'il me fallait, je voulais savoir s'il y avait une possibilité d'insérer des lignes avant et que l'incrémentation fonctionne, j'ai essayé et ça n'a pas fonctionné, fichier en pièce jointe.

Merci beaucoup de votre aide
M. PELOUT

 

[hbenalia]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour à tous,

Bonsoir et merci mille fois, c'est genial, c'est ce genre de tableau q'il me fallait, je voulais savoir s'il y avait une possibilité d'insérer des lignes avant et que l'incrémentation fonctionne, j'ai essayé et ça n'a pas fonctionné, fichier en pièce jointe.

Merci beaucoup de votre aide
M. PELOUT

Dans ce cas change dans le code l'instruction "G3" par "H11" ..


Cordialement

 

[Banzai64]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour
Une adaptation de systmd

 

[Fo_rum]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Salut

autre façon sans VBA en utilisant une Barre de défilement (ScrollBar) ou à une Toupie (SpinButton) !

 

[fmikey75]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonsoir

J'ai trois bouton: -1 qui incrémente le compteur
-1 pour Imprimer le formulaire
-1 Pour remettre à zéro le compteur

Code lisible dans Module1 (Alt F11), espérant que celà puisse vous aider

Bonjour à tous et merci pour votre aide

Voilà j ai mis en piece jointe la fiche d'inscription avec l'onglet d'incrementation, mais ça ne fonctionne pas.

Je n'arrive pas à trouver la formule,

Merci par avance de votre aide

M. PELOUT

 

[fmikey75]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour à tous et merci pour votre aide

Voilà j ai mis en piece jointe la fiche d'inscription avec l'onglet d'incrementation, mais ça ne fonctionne pas.

Je n'arrive pas à trouver la formule,

Merci par avance de votre aide

M. PELOUT

Pardon j'ai oublié la pièce jointe, la voilà

 

[Fo_rum]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Re

avec VBA,

Dim n As Single 'ne pas changer de type, de place
Sub Incremente()
  n = n + 1
  Range("[B][COLOR="Red"]G2[/COLOR][/B]") = "BA-11-" & Format(n, "0000")
End Sub

Sub Raz()
  n = -1
  Incremente
End Sub

 

[Banzai64]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour

Ton fichier modifié

 

[fmikey75]

Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour,

Je vous remercie tous infiniment, tout marche à merveille, ça va nous aider énormément.

Merci mille fois encore et longue vie au forum.

Cordialement

A bientôt

M. PELOUT