XL 2010 incrémentation automatique d'un numéro sous excel

houp · 10 Octobre 2016

Bonjour,
Loin d'être une experte en macro, je n'arrive pas à mettre en place mon projet.
Je voudrais faire en sorte que lorsque l'on appuie sur un bouton de commande, un numéro s'incrémente automatiquement.
Exemple:
Dans mon fichier excel, j'ai à chaque ligne un numéro de formulaire suivant
STAB-PES-16-001
et je souhaiterais qu'a chaque fois que j'appuie sur un bouton de commande un numéro s'incrémente automatiquement (qu'il trouve le dernier et ajoute le suivant)
Exemple
STAB-PES-16-001
STAB-PES-16-002
STAB-PES (texte invariable)-16(année)-001 (numéro à incrémenter)
En vous remerciant par avance pour votre aide
Cordialement
Delphine

phlaurent55 · 10 Octobre 2016

Voir fichier joint

à+
Philippe

houp · 10 Octobre 2016

phlaurent55 à dit:
Voir fichier joint

à+
Philippe

Bonjour Philippe
Un grand merci pour votre aide, super!
Delphine

houp · 10 Octobre 2016

Re bonjour Philippe,
Je confirme je ne suis vraiment pas une experte en macro
Comment je peux faire pour qu'il trouve le dernier STAB-PES-16-000 et ajoute le suivant quelque soit la ligne
Car quand j'appuie sur le bouton de commande j'ai le STAB-PES-16-469 qui s'incrémente et non le STAB-PES-16-003
exemple avec mon fichier ci-joint
En vous remerciant pour votre aide
Delphine

Dranreb · 10 Octobre 2016

Bonjour.

VB:

Sub Bouton1_Clic()
Dim Cel As Range
Set Cel = ActiveSheet.[B65535].End(xlUp)(2)
Cel.FormulaArray = Application.ConvertFormula( _
  "=""STAB-PES-16-""&TEXT(MAX(IF(LEFT(R5C:R[-1]C,12)=""STAB-PES-16-"",RIGHT(R5C:R[-1]C,3)+0,0)+1),""000"")", _
  xlR1C1, xlA1, RelativeTo:=Cel)
Cel.Value = Cel.Value
End Sub

houp · 10 Octobre 2016

Dranreb à dit:

Bonjour.

VB:

Sub Bouton1_Clic()
Dim Cel As Range
Set Cel = ActiveSheet.[B65535].End(xlUp)(2)
Cel.FormulaArray = Application.ConvertFormula( _
  "=""STAB-PES-16-""&TEXT(MAX(IF(LEFT(R5C:R[-1]C,12)=""STAB-PES-16-"",RIGHT(R5C:R[-1]C,3)+0,0)+1),""000"")", _
  xlR1C1, xlA1, RelativeTo:=Cel)
Cel.Value = Cel.Value
End Sub

Super ça marche, merci beaucoup pour votre aide
Cordialement
Delphine

XL 2010 incrémentation automatique d'un numéro sous excel

houp

XLDnaute Nouveau

phlaurent55

Nous a quittés en 2020

Pièces jointes

houp

XLDnaute Nouveau

houp

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

houp

XLDnaute Nouveau

Discussions similaires