Discussion :

[assiec]

Bonjour,

Je suppose que c'est très simple à faire mais je n'y arrive pas.

J'ai effectué une partie de code fonctionnel dans un module.
Cependant, je veux basculer celui-ci dans une worksheet "B" car ce code ne s'applique qu'a celle-ci mais est il est dépendant d'une valeur de la worksheet "A" qui peut changer fréquement.

Comment puis-je faire pour que le code de la worksheet "B" s'exécute a chaque changement de la worksheet "A"?

Merci par avance.

Cdlt,

[Daniel.C]

Bonjour,

Mets la macro suivante dans le module de la feuille A :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Sheets("B").MacroDeLaFeuilleB
    End If
End Sub

"MacroDeLaFeuilleB" s'exécutera chaque fois que la valeur de la cellule A1 de la feuille A changera.

NB Tu aurais aussi bien pu laisser la macro dans le module standard.

[jfontaine]

Bonjour,

As tu essayé d'appeler ton code dans l'évenement "Worksheet_Change" de la Feuille A

[assiec]

Le problème est que j'ai déja un worksheet_change dans ma worksheet "A" et que le nom de la worksheet "B" peut changer.

Peut on faire executer le code d'une worksheet quand celle-ci est sélectionnée?

[Daniel.C]

Tu peux combiner le code que tu as dans la macro avec celui à ajouter; par exemple :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Sheets("B").MacroDeLaFeuilleB
    End If
' ton code
End Sub

Pour le second point, laisse la macro appelée dans un module standard.

[assiec]

Ok bon la première solution je ne peux pas faire car la sheet B n'aura jamais le meme nom.

Donc il me faut impérativement un code/fonction dédié.

Merci pour votre aide.

Cdlt,

[Daniel.C]

Si tu mets la macro dans un module standard, le code devient :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        MacroTest
    End If
' ton code
End Sub

Et il n'est plus question de changement de feuille. Ou alors explique pourquoi tu DOIS mettre la macro dans un module feuille.