Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion fmikey75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fmikey75

Guest
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
 

Pièces jointes

Trier par date Trier par votes
Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour,

Si j'ai bien compris

Code: 
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
 
Vote positif 0 Vote négatif
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

systmd à dit:
Bonjour,

Si j'ai bien compris

Code: 
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
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000


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
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Bonjour à tous,


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


Cordialement
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000



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

Pièces jointes

Vote positif 0 Vote négatif
Re : Numérotation de fiches sous excelde BA 11 0001 à BA 11 1000

Re

avec VBA,
Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…