Discussion :

[filou80]

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

[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

[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

[halaster08]

Bonjour,

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

[filou80]

Voici le code demander :

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
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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub WriteCell(sht As Worksheet)
  sht.Range("B1").Value = "Toto"
End Sub

Que l'on invoque avec cette procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub t()
  WriteCell ThisWorkbook.Worksheets("Lundi")
End Sub

[filou80]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("nom de la feuille").Select

Merci encore pour tout

@+ Filou