[XL-2007] Exécution code d'une worksheet en fonction de données d'une autre worksheet

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

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 :

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 :

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.

[assiec]

Merci pour la réponse mais désolé je n'y arrive pas (certainement du a mon niveau).

Pour etre je l'espère plus explicite voici mon code:

Worksheet "A":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub worksheet_change(ByVal Answer As Range)
Select Case Answer.Address(0, 0)
Case "H8"
    If UCase(Answer.Value) = "YES" Then
        Shapes("Picture 2").Visible = True
        Shapes("Picture 3").Visible = False
        ActiveSheet.Cells(8, 9).Value = "Explanation mandadory"
        ActiveSheet.Cells(12, 8).Value = ""
        .....
Else 
....
End If
End Select
End Sub

Worksheet "B":

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Route As String
Dim FF As String
Dim FE As String
 
FE = ActiveSheet.Cells(4, 10).Value
'Ici on récupère le nom de la feuille qui nous interresse (Worksheet "A")
FF = Left(FE, 2)
Route = Worksheets(FF).Cells(26, 12).Value
 
If Route = "5" Then
    ActiveSheet.Cells(9, 10).Value = "5A"
    ActiveSheet.Cells(11, 10).Value = ""
    ....
End If

Je viens de m'apercevoir que je suis obligé d'etre dans la worksheet "B" pour executer le code à cause des "Activesheets"....

[Daniel.C]

Voici le code à mettre dna le module de la feuille A :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub worksheet_change(ByVal Answer As Range)
Select Case Answer.Address(0, 0)
Case "H8"
    If UCase(Answer.Value) = "YES" Then
        Shapes("Picture 2").Visible = True
        Shapes("Picture 3").Visible = False
        ActiveSheet.Cells(8, 9).Value = "Explanation mandadory"
        ActiveSheet.Cells(12, 8).Value = ""
        '.....
    End If
End Select
    If Target.Address = "$A$1" Then 'si A1 est la cellule à tester
        Sheets("B").MacroAppelée
    End If
End Sub

Pourquoi dis-tu que la feuille ne s'appelle pas toujours "B" ? Qu'est-ce qui détermine le nom ?

[assiec]

Vous etes sûr pour le target?

En fait, les feuilles fonctionnent par couple, une worksheet "A" donne
lieu à une ou plusieurs worksheet "B"...

C'est pour ca que pour simplifier (pour moi) dans la worksheet "B" j'ai utilisé pas mal de Activeworksheet.cells(...).value..... et je n'ai pas a gerer les differents noms de la worksheet "B"

[Daniel.C]

Je persiste. Tu mets la macro appelante et tu passes le nom de la feuille en paramètre :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub worksheet_change(ByVal Answer As Range)
Select Case Answer.Address(0, 0)
Case "H8"
    If UCase(Answer.Value) = "YES" Then
        Shapes("Picture 2").Visible = True
        Shapes("Picture 3").Visible = False
        ActiveSheet.Cells(8, 9).Value = "Explanation mandadory"
        ActiveSheet.Cells(12, 8).Value = ""
        '.....
    End If
End Select
    If Target.Address = "$A$1" Then 'si A1 est la cellule à tester
 
MacroAppelée "B"
    End If
End Sub

et tu mets la macro suivante dans module standard :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MacroAppelée(NomFeuille)
    Dim Route As String
    Dim FF As String
    Dim FE As String
 
    With Sheets(NomFeuille)
        FE = .Cells(4, 10).Value
        'Ici on récupère le nom de la feuille qui nous interresse (Worksheet "A")
        FF = Left(FE, 2)
        Route = Worksheets(FF).Cells(26, 12).Value
 
        If Route = "5" Then
            .Cells(9, 10).Value = "5A"
            .Cells(11, 10).Value = ""
            '....
        End If
    End With
End Sub

[assiec]

Je comprends la démarche mais je mets quoi pour le "NomFeuille" sachant que je ne connais pas a l'avance son nom et que je n'ai pas de moyen de le générer par avance?

[Daniel.C]

Bonjour,

Comment cette feuille arrive-t-elle dans ton classeur sans que tu en connaisses le nom ? Donne plus d'explications.

[assiec]

Alors je reprends

Ma worksheet A donne lieu a une ou plusieurs worksheet (appellées A1, A2, A3...) qui sont créées/renommées au besoin par copie d'une feuille template:

Ex:
A donne lieu a créer une A1
ou bien
A donne lieu a créer une A1 et une A2
ou bien
A donne lieu a créer une A1, une A2 et une A3
....

Donc je ne peut pas savoir en avance si j'aurais A1, A2 ou A3 ou bien deux d'entre elles ou bien les trois voire 4 ou 5...

Et la je recommence avec une nouvelle worksheet au meme format que la worksheet A qui donne lieu a d'autre worksheet équivalentes aux A1, A2...


Au final, des valeurs dans les worksheet A1, A2, A3... sont inscrites en fonction d'un paramètre de la worksheet A qui lui peut etre mis a jour au besoin.

Pour le moment j'ai donc ma macro qui se recopie and les worksheet A1, A2, A3... du au copier/coller de chaque feuille et en entete de ma macro mes worksheet se mettent a jour automatiquement par le worksheet_activate...

[Daniel.C]

Ex:
A donne lieu a créer une A1
ou bien
A donne lieu a créer une A1 et une A2
ou bien
A donne lieu a créer une A1, une A2 et une A3

Il y a bien une logique qui sous-tend cela ?

[Qwazerty]

Envoyé par assiec

Vous etes sûr pour le Target?

Salut

Disons que dans l'idée, je ne vois pas trop pourquoi tu as modifié le nom de la cellule passée en paramètre de Worksheet_Change, normalement par défaut VBa la nomme "Target"... pourquoi avoir mis "Answer"?
Ce qui bien sur doit poser des problèmes en utilisant le mot Target puisque celui-ci n'existant pas... son contenu est donc vide.

++
Qwaz

[assiec]

Daniel.C
Il y a bien une logique qui sous-tend cela ?

Non car cela depends des resultats d'études techniques qui en decoulent.

Qwazerty
Ce qui bien sur doit poser des problèmes en utilisant le mot Target puisque celui-ci n'existant pas...

Oui effectivement.

Bon mon problème est pour le moment réglé avec le worksheet_activate