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 :

incrémenter liste numéro EXCEL [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 6
    Par défaut incrémenter liste numéro EXCEL
    Bonjour à tous,
    Je cherche à construire une macro pour faire les actions suivantes, mais mon faible niveau VBA me bloque malgré mes tentatives avec ou sans macros.
    Je vous explique mon besoin:

    2 colonnes:
    - une en A avec une liste de 1 à N (liste de bons de commandes)
    - une en B avec un code (quelquonque, en fonction du compteur nécessaire aux formules, par défaut j'avais prit 1 et 0)

    Lorsqu'un numéro de BdC est utilisé, la colonne B affiche 1, lorsque le numéro de BdC est libre, la colonne B affiche 0.

    Dans la cellule D5, lorsqu'on clique sur un bouton attaché à la macro, je souhaite qu'apparaisse le 1er numéro de BdC "libre" (avec le code 0 dans mon exemple), puis que son code 0 se transforme en 1 automatiquement (mais le numéro qui s'affiche reste bien celui dont on parlait juste avant).

    Merci d'avance pour votre aide!
    Cdlt,
    Etienne

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Attache cette macro à ton bouton :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test1()
        Dim Ligne As Long
        With Sheets("Feuil1")
            Ligne = Application.Match(0, .[B:B], 0)
            .[D5] = Application.Index(.[A:A], Ligne)
            Application.Index(.[B:B], Ligne) = 1
        End With
    End Sub

  3. #3
    Membre expérimenté
    Homme Profil pro
    Ressources humaines
    Inscrit en
    Janvier 2011
    Messages
    205
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : Algérie

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Distribution

    Informations forums :
    Inscription : Janvier 2011
    Messages : 205
    Par défaut
    Bonjour,

    si j'ai bien compris, tu veut être averti si tu saisie un numéro déjà existant et dans la colonne A par le 1 ou 0 de la colonne B, je te propose une solution sans VBA (Mise en forme conditionnelle), alors sélectionner la colonne A et ajouter cette formule avec une mise en forme si le numéro saisie existe déjà:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SI(NB.SI(INDIRECT(ADRESSE(1;1;4;1)&":"&ADRESSE(LIGNE()-1;1;4;1));A1)>0;1;0)
    , et pour la cellule D4 tu pourra mettre cette formule qui te donnera le prochain numéro:Cordialement

    Gestionnaire rh

  4. #4
    Membre à l'essai
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 6
    Par défaut
    Daniel.C
    Merci bcp ca fonctionne.

    Gestionnaire RH
    Merci pour votre aide mais je veux que le numéro s'incrémente automatiquement, rien à faire à la main, il est vrai que c'était impossible sans un petit bouton.

    Je reviendrai vers vous très vite pour la fin de la macro
    Cdlt,
    Etienne

    Je reviens plus vite que prévu,
    Est-il possible d'associer une rechercheV à une 2ème macro ?
    Lorsque je la copie colle cella ne fonctionne pas.
    Il s'agit de la formule suivante:
    =RECHERCHEV(0;$B:$C;2;FAUX)-1
    Merci d'avance!
    Etienne

  5. #5
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Tu n'as rien dit de la colonne C

    Ca donne :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Résultat = Application.VLookup(0, .[B:C], 2, False) - 1

  6. #6
    Membre à l'essai
    Homme Profil pro
    Chargé d'affaire
    Inscrit en
    Décembre 2011
    Messages
    6
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Chargé d'affaire
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2011
    Messages : 6
    Par défaut
    Exact désolé La colonne C est égale à la colonne A (C1=A1) , mais les valeurs doivent être à droite pour la recherche V.

    J'ai omis de préciser que je voulais le résultat de la macro recherche V en cellule D7 .
    Merci d'avance

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

Discussions similaires

  1. [VBA-E] incrémenter des valeurs excel grâce à des boutons
    Par keiserjo dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 19/07/2006, 11h32
  2. Copier une zone de liste dans excel
    Par geo.mar94 dans le forum Access
    Réponses: 42
    Dernier message: 15/06/2006, 15h34
  3. check liste sous Excell
    Par edmotets dans le forum Excel
    Réponses: 1
    Dernier message: 30/11/2005, 11h51
  4. [excell]Creation d'une check Liste sous excell
    Par edmotets dans le forum Windows Forms
    Réponses: 2
    Dernier message: 29/11/2005, 21h20
  5. [D6] Incrémenter le numéro de version
    Par Lung dans le forum EDI
    Réponses: 3
    Dernier message: 08/08/2005, 10h12

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