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 :

macro recherche d'un numéro


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Janvier 2009
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2009
    Messages : 6
    Par défaut macro recherche d'un numéro
    Bonjour je suis nouveau sur ce forum, j'ai un problème avec un macro.
    Je vous explique mon problème je dois réaliser une facture de base avec un bouton qui active une macro.

    Cette macro doit enregistrer la facture sous "Facture JJMMAA – N°" puis passer à la facture suivante. Le numéro de facture doit repartir à 1 lorsque je change de jour.
    J'ai réussi à réaliser cela, mais lorsque je lance la facture de base, le fichier excel doit afficher le numéro de la dernière facture +1 dans la cellule numéro de facture. Alors qu'actuellement lorsque je relance ce fichier je redémarre à 1. Je n'ai aucune idée comment réaliser cela.

    Un exemple pour illustrer:
    J'ai réaliser 10 factures ce matin, je pars en pause, je lance à nouveau ma facture de base je dois avoir le numéro 11 qui s'affiche dans la cellule n° de facture.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub save2()
     
    ActiveWorkbook.SaveAs Filename:="C:\Users\Victor\Documents\BIWI\info\exercice\entrainement maison" & Range("E4")
    Range("B9,A14:A24,E14:E24").ClearContents
        If Range("i1") = Date Then
            Range("b8") = Range("b8") + 1
        Else
            Range("b8") = 1
        End If
            Range("b9").Select
            Range("i1") = Date
    End Sub
    N'hésitez pas à me demander de plus ample information, si mon explication n'est pas très claire.

    En pièce jointe vous trouverai la facture de base.
    Merci d'avance
    Fichiers attachés Fichiers attachés

  2. #2
    Membre émérite
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    592
    Détails du profil
    Informations personnelles :
    Âge : 75
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 592
    Par défaut
    Deux solutions possible:
    1- Mémoriser le dernier numéro de facture dans la feuille pour le retrouver à la prochaine ouverture

    2- Analyser le contenu du répertoire des factures pour retrouver la numéro qui est dans le nom de la facture.

    A+

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Janvier 2009
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2009
    Messages : 6
    Par défaut
    Bonjour et merci pour votre réponse, je suis intéressé par les 2 solutions mais je n'ai aucune idée comment les réaliser.

    Pourriez vous m'indiquer comment y arriver.

    Merci.

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Dans l'enregistrement de tes factures, respectes-tu la chronologie ?
    - La facture 4 d'aujourd'hui suit-elle la facture 3 d'aujourd'hui ?
    - La facture 1 d'aujourd'hui suit-elle la facture 25 d'hier ?
    - Peux-tu avoir des lignes vides entre les factures ?
    Bref, les factures se suivent-elles ?

  5. #5
    Membre à l'essai
    Profil pro
    Inscrit en
    Janvier 2009
    Messages
    6
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2009
    Messages : 6
    Par défaut
    J'ai un fichier de base appelé facture, je le rempli, j'active la macro, un fichier excel se crée facture 070209 1.xls ainsi de suite... le numéro de la facture est dans la cellule B8 qui à chaque activation de la macro augmente d'un. Cette cellule permet de nommer le fichier avec la date.

    Je souhaites lorsque je relance mon fichier de base retrouver le numéro de la dernière facture +1 en cellule B8 si je relance ce fichier le même jour si je lance le fichier un autre jour le compte de facture redémarre à 1.

  6. #6
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Donc, le rôle de la macro est de vérifier la date du dernier enregistrement puis, soit d'incrémenter le N° de facture si la date n'a pas changé, soit ré-initialiser le N° de facture à 1
    Dans B8 tu n'as que le n° ou as-tu aussi la date ? Le mieux serait que tu aies les deux, soit dans la même cellule, soit dans des cellules différentes.
    - On lit la date
    - On la compare avec "aujourdhui"
    Si elle n'a pas changé on incrémente B8,
    Sinon on met 1 dans B8
    Tu nous dis ce qu'il te manque ?

Discussions similaires

  1. recherche code macro recherche excel.
    Par baldron dans le forum VB.NET
    Réponses: 2
    Dernier message: 04/04/2008, 14h52
  2. macro recherche et insertion ligne
    Par jul85 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/02/2008, 19h45
  3. Débutant - Macro recherche de date
    Par joums dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 18/12/2007, 23h06
  4. Macro recherche dans le classeur
    Par Max485 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/04/2007, 15h07
  5. Comment rechercher si un numéro existe déja ?
    Par Fredri dans le forum Access
    Réponses: 14
    Dernier message: 06/01/2006, 16h58

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