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 inactive suite a une aquisition de donnees


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Septembre 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2016
    Messages : 1
    Par défaut Macro inactive suite a une aquisition de donnees
    Bonjour
    Je suis débutant dans le VBA et j'essaye d’écrire un code en vba qui me permet de enregistrer un tableau de 2 colonne 15 lignes.Les données arrivent dans la plage a2:b15 ensuite je veux le copier dans un emplacement voisin,un cote l'autre vers la droite,(pour instant j'arrive a ecrire que sur la verticale)ensuite effacer les données dans la plage a2:b15 en attente de nouvelle données.En fait j'ai un automate qui m'envoie les données dans le tableau (a2:b15).Mon problème c'est que le macro s’arrête a chaque fois et je suis oblige de le relancer manuellement.Voici le code que j'ai écrit ainsi que le fichier excel.Comment je peux faire pour avoir la macro active en permanence .Merci par avance

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub boucle_while()
     
                     While Range("A3") <> ""
     
                    'derniere_col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
                    With Sheets("Feuil1").Range("a2:b15").Copy
                        dernière_ligne = ActiveSheet.Range("a650000").End(xlUp).Row + 2
                        Range("A" & dernière_ligne).PasteSpecial (xlPasteAll)
                        Sheets("Feuil1").Range("a2:b15").Value = ""
     
                    End With
                    Wend
     
    End Sub
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Réponses: 4
    Dernier message: 22/03/2012, 20h35
  2. Macro %AIDEACM suite à une PROC CORRESP sur SAS
    Par Felizzy dans le forum Macro
    Réponses: 3
    Dernier message: 19/01/2011, 19h20
  3. recherche dans une base de donnees; copier coller via une macro
    Par yannlvr dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 06/04/2010, 17h58
  4. Macro Import de donnees de plusieurs fichier excel ds une base de donnees
    Par usualpierrot dans le forum Macros et VBA Excel
    Réponses: 22
    Dernier message: 21/08/2007, 17h31
  5. declencher une macro suite a une modification d une feuille Excel
    Par chamus dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 11/01/2007, 09h50

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