Sujet Précédent Sujet Suivant

[EXCEL] Numéro automatique VBA [Fermé]

Excel
Signaler
Messages postés
8
Date d'inscription
jeudi 20 septembre 2007
Statut
Membre
Dernière intervention
11 novembre 2014
 -
Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
 -
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 ?
A voir également:

2 réponses

Réponse 1 / 2
Messages postés
7098
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
10 juin 2021
 1 285
Bonsoir,

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



2
Merci
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Réponse 2 / 2
Messages postés
1
Date d'inscription
vendredi 7 juin 2013
Statut
Membre
Dernière intervention
7 juin 2013
Bonjour,

J'ai le même problème que spaceshipone j'ai donc suivi votre méthode mais le programme ne m'incrémente que des 0.
Savez vous d'ou cela peut venir ?
Je précise que je suis novice en VBA.

Merci d'avance.
Signaler
Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
 3 195
Bonjour

avec une ent^te en A1 (par ex: Numero) et la colonne A réservée aux numéros 

Option Explicit
Sub incrementer()
Dim Num As Integer, Cellule As Range

     Num = Application.Max(Columns("A")) + 1
     Set Cellule = Columns("A").Find("", Range("A1"))
     Cellule = Num
End Sub
Posez votre question

Sur les mêmes thèmes