Code de numérotation automatique

Messages postés
81
Date d'inscription
samedi 16 septembre 2006
Statut
Membre
Dernière intervention
7 octobre 2019
-
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
Afficher la suite 

1 réponse

Messages postés
589
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
26 juin 2019
46
0
Merci
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

Patrice33740
Messages postés
7834
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 octobre 2019
1227 -
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
fabien25000
Messages postés
589
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
26 juin 2019
46 > Patrice33740
Messages postés
7834
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 octobre 2019
-
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
Patrice33740
Messages postés
7834
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 octobre 2019
1227 -
et surtout le .Address qui génère une erreur
domi4roues
Messages postés
81
Date d'inscription
samedi 16 septembre 2006
Statut
Membre
Dernière intervention
7 octobre 2019
-
merci mais je vous que incrémentation sans que je soit obligé de taper le n°
Patrice33740
Messages postés
7834
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
20 octobre 2019
1227 > domi4roues
Messages postés
81
Date d'inscription
samedi 16 septembre 2006
Statut
Membre
Dernière intervention
7 octobre 2019
-
Hein ????
Commenter la réponse de fabien25000