[EXCEL] Numéro automatique VBA
spaceshipone
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, voici mon problème :
J'ai créé un formulaire en VBA sous excel avec un numéro pour chaque enregistrement qui doit être géré automatiquement.
Il faut que ça parcour la liste déjà existante et qu'on récupère le dernier numéro. Et faut incrémenter le numéro pour chaque nouvel enregistrement.
Est ce que quelqu'un peu m'aider ?
J'ai créé un formulaire en VBA sous excel avec un numéro pour chaque enregistrement qui doit être géré automatiquement.
Il faut que ça parcour la liste déjà existante et qu'on récupère le dernier numéro. Et faut incrémenter le numéro pour chaque nouvel enregistrement.
Est ce que quelqu'un peu m'aider ?
A voir également:
- Excel incrémentation automatique numéro
- Liste déroulante excel - Guide
- Numero prive - Guide
- Numéro père noël whatsapp - Accueil - Messagerie instantanée
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
2 réponses
Bonsoir,
Tout d'abord, il faut créer une nouvelle fonction pour incrémenter un chiffre de 1:
Ensuite, si par exemple les numéros se trouvent dans la colonne A dans les cellules A2, A3, A4....An
Une macro qui va chercher ce dernier numéro créé dans An et qui l'augmente de 1 et écrit ce nouveau numéro dans A(n+1) :
Voilà j'espère que cela t'aidera ou te donnera une piste
Bonne nuit
Tout d'abord, il faut créer une nouvelle fonction pour incrémenter un chiffre de 1:
Function NouveauNuméro(DerNum)
NouveauNuméro = DerNum + 1
End Function
Ensuite, si par exemple les numéros se trouvent dans la colonne A dans les cellules A2, A3, A4....An
Une macro qui va chercher ce dernier numéro créé dans An et qui l'augmente de 1 et écrit ce nouveau numéro dans A(n+1) :
Sub AffecteNouveauNum()
Dim DerNum As Integer 'DerNum est le denier numéro créé
DerNum = Range("A2").End(xlDown).Value
NouveauNum = NouveauNuméro(DerNum)
DerCell = Range("A2").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
End Sub
Voilà j'espère que cela t'aidera ou te donnera une piste
Bonne nuit
