1 pièce(s) jointe(s)
Copie d'une macro dans le PERSONAL
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:
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
