Sujet Précédent Sujet Suivant

Code de numérotation automatique

Fermé
domi4roues Messages postés 82 Date d'inscription samedi 16 septembre 2006 Statut Membre Dernière intervention 23 octobre 2019 - Modifié le 14 juin 2019 à 09:35
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 17 juin 2019 à 12:44
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 mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
Modifié le 14 juin 2019 à 10:00
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 14 juin 2019 à 11:02
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 mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59 > Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023
14 juin 2019 à 11:35
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 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775
Modifié le 14 juin 2019 à 11:42
et surtout le .Address qui génère une erreur
0
domi4roues Messages postés 82 Date d'inscription samedi 16 septembre 2006 Statut Membre Dernière intervention 23 octobre 2019
17 juin 2019 à 11:04
merci mais je vous que incrémentation sans que je soit obligé de taper le n°
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 775 > domi4roues Messages postés 82 Date d'inscription samedi 16 septembre 2006 Statut Membre Dernière intervention 23 octobre 2019
17 juin 2019 à 12:44
Hein ????
0

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses