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

[Menhir]

Si je la met dans le classeur PERSONAL des macros,

En pièces jointes, tu as mis un classeur nommé Copie de REFERENCES CHANTIER MODIF 12-04-19.xlsm .
Ta macro (celle que tu exécute quand ça ne fonctionne pas) est-elle dans ce classeur ou dans le classeur PERSONAL ?

ThisWorkbook désigne le classeur dans lequel se trouve la macro.
Si la macro est dans PERSONNAL, alors ce sont les onglets de ce classeur qui seront scrutés.
Est-ce bien ce que tu souhaites ?

[sambernard]

Bonjour.
Merci Menhir.
En effet, la macro est actuellement dans le fichier que j'ai mis en PJ et lorsque je la copie dans le fichier "personal" puis que je la lance, il ne se passe rien. Mais c'est normal d'après ce que te notes, c'est à dire que "Thisworkbook" renvoie au classeur du fichier où se trouve la macro. Par quoi dois-je alors remplacer "Thisworkbook" pour que ma macro effectue ses recherches sur le classeur où je travaille et pas celui du fichier "personal"?

Merci encore pour votre aide.

Bonne journée.

Samuel

[Menhir]

ActiveWorkbook
https://docs.microsoft.com/fr-fr/off...activeworkbook

[sambernard]

Salut.
Merci Menhir. C'était exactement ça qu'il me fallait.

C'est top de rencontrer comme ça des gens qui donnent un bon coup de main.