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 qui fonctionne en pas à pas mais pas en automatique


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Conducteur de chantier
    Inscrit en
    Octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Conducteur de chantier
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2017
    Messages : 9
    Par défaut Macro qui fonctionne en pas à pas mais pas en automatique
    Bonjour à tous,

    J'ai une macro dont une partie fonctionne bien en pas à pas mais ne copie pas tout en automatique.
    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
     
    'Copie données
     
    Sheets(Nchan).Range("A3:B7").Copy
     
        Sheets("Tft").Range("A3:B7").PasteSpecial Paste:=xlValues
    Dim a As Variant
    a = 0
    Dim cell As Range
        For Each cell In _
            Sheets(Nchan).Range("A9:A313").SpecialCells(xlCellTypeVisible)
        Sheets("Tft").Rows(10 + a).Insert Shift:=xlDown
            Sheets("Tft").Cells(10 + a, 1) = cell.Value
            b = cell.Row
            Sheets(Nchan).Cells(b, 7).Copy
            Sheets("Tft").Cells(10 + a, 3).PasteSpecial Paste:=xlValues
            Sheets("Tft").Range("H9").Copy
            Sheets("Tft").Cells(10 + a, 8).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
            Sheets(Nchan).Cells(b, 6).Copy
            Sheets("Tft").Cells(10 + a, 6).PasteSpecial Paste:=xlValues
     
                a = a + 1
        Next

    Pourriez-vous m'aider?

    Merci d'avance

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour Spidertry,

    Sujet résolu ou non !? car il est indiqué comme l'étant

    A+

  3. #3
    Membre habitué
    Homme Profil pro
    Conducteur de chantier
    Inscrit en
    Octobre 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Belgique

    Informations professionnelles :
    Activité : Conducteur de chantier
    Secteur : Bâtiment

    Informations forums :
    Inscription : Octobre 2017
    Messages : 9
    Par défaut
    Oui, il est résolu.
    Merci

    La macro fonctionne bien comme elle est.

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

Discussions similaires

  1. [XL-365] Macro qui fonctionne en pas à pas (F8) mais pas en une fois.
    Par guigol dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 13/07/2020, 10h02
  2. Macro qui fonctionne en pas à pas et se plante en exécution automatique
    Par Steve999 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 23/04/2018, 11h31
  3. [XL-2013] Macro qui fonctionne en pas à pas mais pas en "direct"
    Par alex955 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 06/10/2017, 17h24
  4. Macro qui fonctionne en faisant F8 mais pas en auto
    Par krapoulos dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 05/06/2015, 13h20
  5. [XL-2007] Macro qui fonctionne sur un poste mais pas sur un autre
    Par Runsh63 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/06/2012, 10h24

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