XL 2010 incrementer une serie de numero en vba

Meloman

XLDnaute Occasionnel
bonsoir à tous malgre mes recherche je n'arrive pas via un bouton valider incrementer une serie de numero

exemple en A1 = I0000001
A2=Iooooooo2
A3=I0000003 ........


je sais pas du tout comment m'y prendre

pouvez vous m'aider svp
 

Pièces jointes

  • NUMERO REF.xlsm
    13.1 KB · Affichages: 65

Meloman

XLDnaute Occasionnel
Bonjour JBARRE merci pour ton aide mais je crois je me suis fait mal comprendre integrer dans une combobox la liste en colonne A je sais le faire c'est incrémenter un numero intervention suivante pour une future fiche que je n'arrive pas car le numero commence par une lettre
 

gonz19

XLDnaute Occasionnel
bonjour,

pour récupérer la derniére cellule vide et incrémenter

Code:
Private Sub UserForm_Initialize()
ligne = Range("A65536").End(xlUp).Row
numero = Left(Cells(ligne, 1).Value, 1) & Format(Right(Cells(ligne, 1).Value, 7) + 1, "0000000")
ComboBox1.AddItem (numero)
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 729
Messages
2 081 966
Membres
101 852
dernier inscrit
dthi16088