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 :

traitement de fichier XLS/ macro vba


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 8
    Par défaut traitement de fichier XLS/ macro vba
    bonjour ,

    jeune gestionnaire en stage , je souhaite écrire une macro m'aidant a extraire des données d"un fichier excel a partir d'un onglet et les mettre dans un autre onglet de la meme feuille ( constituant un onglet de donnees qui seront ensuite integre dans une base de données) ; j'ai lancé l'enregistreur pour ecrire la macro mais elle reste imprécise par rapport a la finalite
    pouvez vous m'aider ?

    ci-joint le fichier xls de travail , le premier onglet devrait varier(données) et le second devrait etre rempli par les données d'un premier onglet.

    Merci pour votre concours a tous,
    Fichiers attachés Fichiers attachés

  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,
    Essaie cette macro (la feuille "DB" est remplie seulement jusqu'à la colonne G). Si ça te convient, je t'ajouterai les explications.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    Sub Copie()
        Dim Ligne As Long, Sh As Worksheet, C As Range, ResAdr As String, Ctr As Integer
        Set Sh = Sheets("DB")
        With Sheets("HOLX_RAXINV_SEL_46907766_1")
            .Select
            .[A1].Select
            Set C = .[E:E].Find("INVOICE", , , xlWhole, , True)
            If Not C Is Nothing Then
                ResAdr = C.Address
                Do
                    Ligne = Sh.Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
                    Sh.Cells(Ligne, 1) = C.Offset(2)
                    Sh.Cells(Ligne, 2) = C.Offset(4)
                    Sh.Cells(Ligne, 3) = C.Offset(6)
                    Sh.Cells(Ligne, 4) = C.Offset(8)
                    Sh.Cells(Ligne, 5) = C.Offset(10)
                    Sh.Cells(Ligne, 6) = C.Offset(4, 1)
                    Ctr = 0
                    For i = C.Row + 12 To .Cells(C.Row + 11, 1).End(xlDown).Row
                        Sh.Cells(Ligne, 7).Offset(Ctr) = .Cells(i, 1)
                        Ctr = Ctr + 1
                    Next i
                    Set C = .[E:E].FindNext(C)
                Loop While C.Address <> ResAdr
            End If
        End With
    End Sub

  3. #3
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 8
    Par défaut
    bonjour ,

    merci beaucoup pour votre reponse ca me touche que quelqu'un me reponde de cette océan qu'est internet
    vous trouverez ci-joint les précisions de mon besoin

    merci encore de votre concours a tous
    ce code pourrais me permettre d' avoir mon premier contrat de travail ; en cette periode de crise économique toute aide expert est la bienvenue
    Fichiers attachés Fichiers attachés

  4. #4
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 8
    Par défaut traitement fichier excel / macro vba
    si vous avez une autre solution pour remplir l'onglet DB je suis preneur; l'idée est de copier les informations des cellules vertes
    factures par factures ; chaque facture étant bornées pour les lignes
    Ligne début : colonne A case commençant par “35 Crosby Drive”
    Ligne fin : colonne A case commençant par “17. WAIVER”

  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
    Bonjour,

    vous trouverez ci-joint les précisions de mon besoin
    Ce n'est pas trop l'habitude du forum de faire ce genre de choses. D'autant que ça représente pas mal de travail. Je veux bien cependant essayer à temps perdu. Quel est ton niveau de connaissances Excel et VBA ? parce que, si tu es débutant, je ne vois pas en quoi une belle appli peut t'aider.

    Regaarde le classeur joint. Le traitement a été fait pour les colonnes A à G de la feuille DB. Dis-moi si cc'est correct
    Fichiers attachés Fichiers attachés

  6. #6
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2010
    Messages
    8
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2010
    Messages : 8
    Par défaut retour fichier
    encore merci encore pour le temps passe sur ma demande ; pour repondre a tes precedents mails je suis debutant en programmation l'idee de mon projet c'est de constituer un fichier excel struturer pour creer une base de donnee des factures afin de faciliter le controle
    pour ce qui est de ton retour j'ai insere quelque indication ds l'onglet HOLX_RAXINV_SEL_46907766_1 et le traitement donnant les infos en vert son excellentes ce sont les infos attendu de la colonne A à G pour chaque facture (HOLX_RAXINV_SEL_46907766_1) ; il faudrait avoir les infos en vert uniquement facture par facture

    merci a vous
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2003] générer un fichier .xls via vba
    Par mehdibens dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 23/02/2012, 21h21
  2. [AC-2003] Enregistrer un fichier xls depuis vba access2003
    Par leonor dans le forum VBA Access
    Réponses: 1
    Dernier message: 10/06/2010, 20h06
  3. [AC-2002] Concatenation de fichiers XLS en VBA Access
    Par volganne dans le forum VBA Access
    Réponses: 9
    Dernier message: 22/03/2010, 09h52
  4. Réponses: 3
    Dernier message: 05/12/2009, 12h34
  5. probleme pour traitement de fichier xml en vba, lenteurs
    Par newcodeur dans le forum Macros et VBA Excel
    Réponses: 23
    Dernier message: 11/09/2008, 15h57

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