XL 2010 incrementer une serie de numero en vba

[Meloman]

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

 

[JBARBE]

Bonsoir à tous,
Peut-être ceci en cliquant sur le bouton "GO"
bonne nuit !

 

[Meloman]

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

 

[JHA]

Bonjour à tous,

Pour éviter le pproblème de la lettre, tu peux mettre un format de nombre personnalisé
"I"0000000

JHA

 

[gonz19]

bonjour,

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

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

 

[Meloman]

Bonjour Gonz et JHA merci pour votre aide c'est parfait cela fonctionne parfaitement grand merci