[EXCEL] Numéro automatique VBA
Fermé
spaceshipone
michel_m
- Messages postés
- 8
- Date d'inscription
- jeudi 20 septembre 2007
- Statut
- Membre
- Dernière intervention
- 11 novembre 2014
michel_m
- Messages postés
- 16574
- Date d'inscription
- lundi 12 septembre 2005
- Statut
- Contributeur
- Dernière intervention
- 3 août 2022
A voir également:
- Excel incrémentation automatique numéro vba
- Numérotation automatique excel vba - Meilleures réponses
- Excel vba numérotation automatique des lignes - Meilleures réponses
- Numérotation automatique avec Excel !! - Forum - Excel
- [EXCEL] Numéro automatique VBA - Forum - VB / VBA
- Excel incrémentation automatique numéro ✓ - Forum - Excel
- Excel incrémentation automatique numéro facture ✓ - Forum - Excel
- Souci d'incrémentation automatique sur EXCEL ✓ - Forum - Excel
2 réponses
aquarelle
20 sept. 2007 à 21:46
- Messages postés
- 7118
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Modérateur
- Dernière intervention
- 29 juillet 2022
20 sept. 2007 à 21:46
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