[EXCEL] Numéro automatique VBA

Fermé
spaceshipone Messages postés 8 Date d'inscription jeudi 20 septembre 2007 Statut Membre Dernière intervention 11 novembre 2014 - 20 sept. 2007 à 18:27
michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 8 juin 2013 à 14:32
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
aquarelle Messages postés 7180 Date d'inscription dimanche 8 avril 2007 Statut Modérateur Dernière intervention 19 décembre 2024 1 303
20 sept. 2007 à 21:46
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

Discussions similaires

[EXCEL] Numérotation automatique factures
POSEIDON -
naély -

Bonjour,

Je saisie mes factures sur excel, mais je suis obligée de leur attribuer manuellement un nouveau numéro chaque fois.
Est-il possible d'avoir une numérotation automatique ?

Je n'ai pas le niveau pour faire des macros et j'espère une solution à ma portée pour ce problème.

39 réponses
Numérotation automatique avec Excel !!
bachizoom -
DEBUTANT -

Bonjour,
J'aimerais savoir comment obtenir une numérotation automatique sous Excel, du genre pour faire des factures et qu'a chaque nouvelle facture celle-ci ait un numéro directement attribué sans avoir à rechercher le dernier numéro donné si jamais je le mettais moi même manuellement.
Merci d'avance aux âmes charitables qui pourront m'aider :)
Bye bye

137 réponses
Numérotation automatique des lignes ajoutées
pinpinette04 -
Mika -

Bonjour à tous!

Après avoir longuement cherché dans divers forums, je me retourne vers vous..
Voilà, j'ai un fichier excel de gestion des tâches. Il est rempli et mis à jour toutes les semaines. Il permet de récapituler l'ensemble des actions à mener sur les jours, semaines et mois à venir. Pour rendre ce fichier plus fluide, nous avons besoin de numéroter les actions. Les actions sont regroupées par catégories, nous sommes donc amenés à rajouter des actions au début. Nous souhaitons donc, pour plus de facilité, que cette numérotation soit automatique, et que l'ajout d'action au début ne modifie surtout pas les actions suivantes :

Par exemple:
...

9 réponses
[Excel] Récupérer le NUMERO d'une colonne
0seb0 -
JohnDKD -

Bonjour,

Pour une macro, je cherche à récupérer dans l'Integer appelé "plouc" (ouais, on fait ce qu'on peut niveau imagination... :p) le numéro de la colonne de la cellule sélectionnée. Comment faire ?

Attention : 2 mots sont importants dans ce que je viens de dire : "numéro" et "Integer".
En effet, plouc est déclaré comme : dim plouc As Integer
Et ActiveCell.Address donnerait quelque chose comme $C$24 mais moi, je ne veux ni 24, ni C mais... 3 !

Merci à vous !

10 réponses
[VBScript] numéro de semaine
Dinheru -
babou -

Bonjour a tous et toutes !! C'est encore moi !! ^^

Voila ce coup-ci je voudrais savoir si il existe une fonction de VBScript qui retourne le numéro de semaine en cours.
J'ai déja trouvé pour :
- le jour --> jour = day(now)
- le mois --> mois = month(now)
- l'année --> annee = year(now)

Est-ce qu'il existe une fonction dans le genre : semaine=week(now) ( Mais ça, ça marche pô !! )

Voila merci d'avance !!
--
La vie c'est comme du chocolat, parfois dur et amer,
parfois chaud et sucré. 

11 réponses
Recuperer le numero de ligne en VBA
eddys -
teebo -

Salut a tous !!!

Voila ... dans le cadre de mon programme, je veux logger d'eventuelles erreurs d'execution et j voulais savoir s'il est possible de recuperer le numero de la ligne courante lors de l'interruption du programme ?
(un equivalent de la macro existante en C : __LINE__ )

Merci d'avance pour toute aide :o)

7 réponses