Bloquer macro à une feuille

Version imprimable

30/07/2019, 08h01
filou80

Bloquer macro à une feuille

Bonjour à tous,

J'aurai aimer savoir comment faire, pour que ma macro même si je la lance a partir d'une autre feuille, elle impact que la feuille qui est concernée.
Je suis peut être pas trés clair....

Exemple
J'ai une macro "x" fait pour ma feuille lundi.
Je voudrais que quand je suis sur ma feuille mardi et que je lance ma macro "x" elle impact que ma feuille lundi et non mardi.

Merci par avance de vos réponses.

@+ Filou
30/07/2019, 08h30
Philippe Tulliez

Bonjour,
Il faudrait être plus clair.
Cette procédure ("macro") doit elle toujours utiliser les cellules de la feuille nommée Lundi ou bien faut-il utiliser les cellules de la feuille qui précède celle qui est active ?
Si c'est toujours la feuille nommée Lundi, il suffit de le préciser dans la procédure ou prévoir un argument (nom de la feuille ou directement l'objet feuille) à la procédure
30/07/2019, 08h39
filou80

Merci pour votre réponse rapide.

La macro s'applique toujours à la même feuille, comment inclure le nom de la feuille à la procédure ?

@+ Filou
30/07/2019, 08h56
halaster08

Bonjour,

Citation:

La macro s'applique toujours à la même feuille, comment inclure le nom de la feuille à la procédure ?

Ce serait plus simple de te répondre si tu nous montrais ton code

A priori rajouter sheets("nomdelafeuille"). devant tout objets cells/range/columns/rows (pas sûr que la liste soit exhaustive) devrait marcher
Note que tu peux éventuellement utiliser un with pour simplifier l'écriture

Voici le code demander :

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
Sub Importation_effacer()
'
' Importation_effacer Macro
'
 
'
    Range("L3:XFD1048576,G3:J1048576,B3:E1048576").Select
    Range("B3").Activate
    ActiveWindow.SmallScroll ToRight:=14
    Range( _
        "AA3:XFD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576"). _
        Select
    Range("B3").Activate
    ActiveWindow.SmallScroll ToRight:=10
    Range( _
        "AK3:XFD1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
        ).Select
    Range("B3").Activate
    ActiveWindow.SmallScroll ToRight:=9
    Range( _
        "AU3:XFD1048576,AP3:AS1048576,AK3:AN1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
        ).Select
    Range("B3").Activate
    ActiveWindow.SmallScroll ToRight:=12
    Range( _
        "BE3:XFD1048576,AZ3:BC1048576,AU3:AX1048576,AP3:AS1048576,AK3:AN1048576,AF3:AI1048576,AA3:AD1048576,V3:Y1048576,Q3:T1048576,L3:O1048576,G3:J1048576,B3:E1048576" _
        ).Select
    Range("B3").Activate
    Selection.ClearContents
    Range("B3").Select
End Sub

30/07/2019, 09h08
Philippe Tulliez
Bonjour,

Citation:

La macro s'applique toujours à la même feuille, comment inclure le nom de la feuille à la procédure ?

Une cellule a pour parent une feuille et celle-ci a pour parent un classeur. Cela s'appelle la parentalité d'un objet.
Si tu écris
Code:

1 2 3 Sub t() ThisWorkbook.Worksheets("Lundi").Range("B1").Value = "Toto" End Sub
La chaîne Toto sera écrite dans la feuille nommée Lundi du classeur où se trouve le code VBA et ce quel que soit la feuille active.

Autre cas. On écrit une procédure qui ira écrire dans une feuille précise
Code:

1 2 3 Sub WriteCell(sht As Worksheet) sht.Range("B1").Value = "Toto" End Sub
Que l'on invoque avec cette procédure
Code:

1 2 3 Sub t() WriteCell ThisWorkbook.Worksheets("Lundi") End Sub
30/07/2019, 09h42
filou80

J'ai trouver ma solution, à mettre au debut du code

Code:

Sheets("nom de la feuille").Select

Merci encore pour tout

@+ Filou