Discussion :

[sambernard]

Bonjour.
Ma macro ci dessous fonctionne parfaitement dans un classeur EXCEL. Si je la met dans le classeur PERSONAL des macros, ça ne fonctionne plus (la macro passe sur toutes les feuilles de la boucle du départ sans rien faire). C'est la macro "NOMENCLATURE" dans le classeur ci joint.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub NOMENCLATURE()
 
 
Dim Wsh As Worksheet, Plage(), DrLig As Long
 
Application.ScreenUpdating = False
For Each Wsh In ThisWorkbook.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
 
 
 
 
    Sheets.Add After:=ActiveSheet
    Sheets.Add After:=ActiveSheet
    Sheets("Feuil1").Select
    Sheets("Feuil1").Name = "NOMENCLATURE"
    Sheets("Feuil2").Select
    Sheets("Feuil2").Name = "TEMPO1"
    Sheets("RECAP").Select
    Rows("7:7").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$7:$U$65000").AutoFilter Field:=10, Criteria1:="=0", _
        Operator:=xlOr, Criteria2:="="
    Rows("8:65000").Select
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-91

Merci de votre aide.

Bonne journée.

Samuel