Code de numérotation automatique

domi4roues Messages postés 82 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
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

0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Le correction n'est pas passée, il faut corriger : 
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

par 
Set DerCell = Range("A1").End(xlDown) 'DerCell est la dernière cellule contenant l dernier numéro
DerCell.Offset(1, 0).Value = DerNum 'écrit le nouveau numéro dans la cellule vide en dessous
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59 > Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour Patrice,
Ce n'est pas ça que j'avais corrigé, j'avais oublié le "Set" pour définir le range de de DerCell, mais tu as tout à fait raison, le activate et le activecell ne sont pas nécessaire
merci
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
et surtout le .Address qui génère une erreur
0
domi4roues Messages postés 82 Date d'inscription   Statut Membre Dernière intervention  
 
merci mais je vous que incrémentation sans que je soit obligé de taper le n°
0
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780 > domi4roues Messages postés 82 Date d'inscription   Statut Membre Dernière intervention  
 
Hein ????
0