Problème de macro

Version imprimable

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:

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.

Bonjour,

Essaies :

Code:

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

21/01/2020, 17h31
terminaorre

je te remercie, cela fonctionne beaucoup mieux :D