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:

Code de numérotation automatique
Code ascii de a - Guide
Code puk bloqué - Guide
Code de déverrouillage oublié - Guide
Numérotation page word - Guide
Code activation windows 10 - Guide

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
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

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

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié le 14 juin 2019 à 11:42

et surtout le .Address qui génère une erreur

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°

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779 > 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 ????

Discussions similaires

[référencement] Ne pas être référencé

Code de renvoi d'appel : Ooredo, Mobilis...

code d'activation GTA 5 steam