IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Ajouter un N° a chaque enregistrement [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2011
    Messages : 343
    Points : 55
    Points
    55
    Par défaut Ajouter un N° a chaque enregistrement
    Bonjour,

    Je recherche un code pour ajouter un N° a chaque enregistrement automatiquement dans la colonne "A"

    Ci joint mon fichier exemple

    Cordialement

    Max
    Fichiers attachés Fichiers attachés

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    11 401
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 11 401
    Points : 27 319
    Points
    27 319
    Billets dans le blog
    42
    Par défaut
    Bonjour,
    Je n'ai pas téléchargé ton classeur.
    Plusieurs options sont possibles
    Soit tu donnes comme numéro le nombre d'enregistrements qu'il y a dans la feuille.
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim sht As Worksheet: Set sht = Worksheets("Feuil1")
    Dim Compteur As Long
    Compteur = sht.Range("A" & sht.Rows.Count).End(xlUp).Row
    Soit tu utilises une cellule, par exemple A2, dans une autre feuille nommée par exemple [Paramètre] où tu places le n° d'enregistrement que tu incrémentes à chaque nouvel enregistrement.
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     Dim sht As Worksheet: Set sht = Worksheets("Paramètre")
     Dim Compteur As Long
     Compteur = sht.Range("A2") + 1: sht.Range("A2") = Compteur
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

  3. #3
    Membre du Club
    Homme Profil pro
    Inscrit en
    décembre 2011
    Messages
    343
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : décembre 2011
    Messages : 343
    Points : 55
    Points
    55
    Par défaut
    Bonjour corona

    Je te remercie Nickel

    Bonne soirée

    Max

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Spip] créer une page php pour chaque enregistrement ajouté à la base
    Par ecdxml dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 4
    Dernier message: 05/06/2008, 17h33
  2. Evènement pour chaque enregistrement
    Par krfa1 dans le forum Access
    Réponses: 5
    Dernier message: 07/03/2006, 13h41
  3. Réponses: 11
    Dernier message: 01/03/2006, 10h32
  4. Réponses: 1
    Dernier message: 08/12/2005, 20h58
  5. Comment ajouter une tâche a chaque selection
    Par niCo.nb dans le forum C
    Réponses: 2
    Dernier message: 01/11/2005, 16h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo