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 :

Problème de macro [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2020
    Messages : 2
    Par défaut Problème de macro
    Bonjour,
    je débute et j'ai fait une macro afin de pourvoir récupérer des informations de différente feuille et de stocker ces différentes informations sur une autre feuille(RECAP), mais elle ne fonctionne pas. Cette macro a pour but également d'éviter les feuilles DONNEES et TARIFS ( a vrai dire il fonctionnait et tout a coup il ne fonctionnait plus).
    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
    Sub Macro()
     
    Dim Wsh As Worksheet, Plage(), DrLig As Long
     
    Application.ScreenUpdating = False
    For Each Wsh In ActiveWorkbook.Worksheets
        If Wsh.Name <> "RECAP" Then
        If Wsh.Name <> "DONNEES" Then
        If Wsh.Name <> "TARIFS" Then
              With Wsh
                DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
                Plage = .Range("A12:T" & DrLig)
            End With
            With Sheets("RECAP")
                DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
                .Range("A" & DrLig).Resize(UBound(Plage, 1), UBound(Plage, 2)) = Plage()
            End With
        End If
        End If
        End If
    Next Wsh
    Je vous remercie de votre aide.

  2. #2
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2007
    Messages
    2 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 478
    Par défaut
    Bonjour,

    Essaies :
    Code VBA : 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 Macro()
     
    Dim Wsh As Worksheet, Plage, DrLig As Long
     
    Application.ScreenUpdating = False
    For Each Wsh In ActiveWorkbook.Worksheets
        If Wsh.Name <> "RECAP" Then
        If Wsh.Name <> "DONNEES" Then
        If Wsh.Name <> "TARIFS" Then
            With Wsh
                DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
                If DrLig >= 12 Then
                  Plage = .Range("A12:T" & DrLig).Value
                Else
                  Plage = 0
                End If
            End With
            If IsArray(Plage) Then
                With Sheets("RECAP")
                    DrLig = .Range("L" & Rows.Count).End(xlUp).Row + 1
                    .Range("A" & DrLig).Resize(UBound(Plage, 1), UBound(Plage, 2)).Value = Plage
                End With
            End If
        End If
        End If
        End If
    Next Wsh

  3. #3
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Janvier 2020
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Janvier 2020
    Messages : 2
    Par défaut
    je te remercie, cela fonctionne beaucoup mieux

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

Discussions similaires

  1. Problème de macro
    Par Zorko dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 29/05/2007, 18h15
  2. [Macro] problème de macro
    Par pouii dans le forum IHM
    Réponses: 2
    Dernier message: 02/05/2007, 13h58
  3. [VBA]Problème de macro et de dimension.
    Par Invité dans le forum Général VBA
    Réponses: 2
    Dernier message: 26/04/2007, 11h50
  4. Problème sur macro (2 exécutions de code)
    Par Tsuna78 dans le forum Access
    Réponses: 2
    Dernier message: 19/03/2007, 20h24
  5. [VBA-E] Problème activation macro
    Par kamshaa dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/02/2007, 17h02

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