code de numérotation automatique

Question

e suis un novice qui en autodidacte de 58 ans cherche à faire du vba .Pour des besoins professionnelle je me suis fait un formulaire BDD pour un équipe de maintenance. A force de manipulation je voudrais que mes lignes de saisie soit numéroté et pouvoir imprimer sous forme fiche. 

voici le code auquel j'ai travaillé,mais cela ne fonctionne pas: 

Private Sub TextBox1_Change()

Sub AffecteNouveauNum()
Dim DerNum As Integer 'DerNum est le denier numéro créé
DerNum = Range("A1").End(xlDown).Value
NouveauNum = NouveauNuméro(DerNum)
DerCell = Range("A1").End(xlDown).Address 'DerCell est la dernière cellule contenant l dernier numéro
Range(DerCell).Activate ActiveCell.Offset(1, 0).Value = NouveauNum 'écrit le nouveau numéro dans la cellule vide en dessous


Merci pour vos subjectivation corrective salutation à vous

fabien25000 · Answer

bonjour,
essaye ça pour voir :

Sub AffecteNouveauNum() 
Dim DerNum As Integer,  DerCell as Range 'DerNum est le denier numéro créé 
DerNum = Range("A1").End(xlDown).Value 
DerNum = DerNum +1 
Set DerCell = Range("A1").End(xlDown).Address 'DerCell est la dernière cellule contenant l dernier numéro 
DerCell.Activate 
ActiveCell.Offset(1, 0).Value = DerNum 'écrit le nouveau numéro dans la cellule vide en dessous 
End Sub 

Edit : Code rectifié suite erreur de synthaxe

Code de numérotation automatique

1 réponse

Newsletters