Discussion :

[nono1712]

Bonjour,

J'ai une macro dans un module et j'aimerais pouvoir la lancer à partir de n'importe quel onglet mais qu'elle s'execute uniquement dans un onglet défini

quelqu'un a-t-il une idée ?

[aalex_38]

Bonjour,

Je ne suis pas sur de comprendre :

mais qu'elle s'execute uniquement dans un onglet défini

Tu veux déclencher une macro lorsque tu active un onglet ou bien que ta macro ne traite des données que dans un onglet ?

Par rapport à ce qui est écrit je penche plutôt pour la deuxième solution.
Il te suffit donc de faire référence à ton onglet pour ne travailler que sur celui-ci

Ce qui serait bien c'est que tu donnes un bout de code pour que l'on puisse t'aider concrètement. En attendant un exemple qui je l'espère répondra a ta question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Exemple
Dim Maplage As Range
Dim F1 As Worksheet
 
Set F1 = Sheets("Feuil1")
F1.Visible = True
Set Maplage = F1.Range("A10:A35")
' Ici tu peux travailler sur test cellule par exemple en parcourant toute la
'plage :
Dim Macellule As Range
For Each Macellule In Maplage
   ...
Next
end sub

[Gorfael]

Salut nono1712 et le forum
Explications insuffisantes
Quelle macro ? Quel module ?
Pour aider on doit avoir un minimum de données!
A+

[nono1712]

Pour être plus complet, j'ai une macro dans Module 1 qui devrait se lancer automatiquement grâce à un code contenu dans rhis Workbook,

j'aimerais ajouter une ligne à la macro contenue dans le module pour qu'elle réalise ce pourquoi elle est concue dans un onglet dénini (sheet21) mais pas dans un autre

je pense qu'il faudrait uniquement rajouter une ligne en faisant référence à la feuille souhaitée mais je ne sais pas le faire,

pour info voici le code actuel de la macro dans le module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub report()
 
Dim cell As Range
ToDay = Date 'Défini la date du jour
For Each cell In Range("a:a") 'ballaie la plge mentionnée
 
    If cell.Value = ToDay Then
    cell.EntireRow.Copy
    cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    End If
Next
End Sub

[aalex_38]

dans un onglet dénini (sheet21)

Dans ce cas l'exemple que je t'ai fourni devrait te convenir en remplacant

Code :

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

Set F1 = Sheets("Feuil1")

par

Code :

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

Set F1 = Sheets("sheet21")

[Gorfael]

Salut nono1712 et le forum

Pour être plus complet, j'ai une macro dans Module 1 qui devrait se lancer automatiquement grâce à un code contenu dansTrhisWorkbook

Il existe plusieurs solutions :
- Soit dans la macro automatique de ThisWorkBook (??? laquelle ?) tu introduis un test qui ne lance la macro que si la feuille concernée est la bonne
- Soit tu fais le test dans ta macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub report()
 
Dim cell As Range
if ucase(activesheet.name)<>ucase("sheet21")
ToDay = Date 'Défini la date du jour
For Each cell In Range("a:a") 'ballaie la plge mentionnée
 
If cell.Value = ToDay Then
cell.EntireRow.Copy
cell.PasteSpecial Paste:=xlPasteValues
End If
Next
Application.CutCopyMode = False
End Sub

A+