Déclencher une macro en même temps qu'une autre

[lexus92]

Bonjour à toutes et à tous,

J'ai actuellement une feuille "synthese" qui se déclenche automatiquement lorsque l'on clique dessus avec l'evenement Private Sub Worksheet_Activate().
J'aimerais savoir comment faire pour que lorsque cette macro se déclenche, il y est également une autre macro qui se déclenche sur une autre feuille.

Si je ne suis pas assez clair, dites le moi 🙂

Merci d'avance,

Cordialement,

Alexandre

 

[Paritec]

Re : Déclencher une macro en même temps qu'une autre

Bonjour Lexus92 le forum
deux macros ensemble c'est impossible, par contre tu peux les déclencher l'une derrière l'autre sans problème
a+
papou😱

 

[lexus92]

Re : Déclencher une macro en même temps qu'une autre

Bonjour Paritec,

Merci pour la réponse express 🙂
Pour les déclencher l'une derrière l'autre, je suppose que j'écris mon code de la feuille 2 à la suite de mon code de ma feuille synthese. Je me pose la question de savoir quel évènement je dois utiliser. J'ai compris l'évenement Worksheet_Activate, mais je ne connais pas l'évènement "déclencher la macro sur la feuille 2, à la suite du déclenchement de la macro de la feuille synthese"

Merci d'éclairer ma lanterne 🙂

Cordialement,

Alexandre

 

[Paritec]

Re : Déclencher une macro en même temps qu'une autre

Re lexus92 le forum
ta macro sur la feuille 2 elle s'appelle comment ? pourquoi elle est sur la feuille2 ? est-ce que c'est une événementielle ?
a+
papou😱

 

[lexus92]

Re : Déclencher une macro en même temps qu'une autre

Ma feuille 2 s'appelle Prix, et elle contient 2 macros:

La première copie colle bêtement de la feuille synthèse vers la feuille prix:

Sub Macromajprix()
Sheets("Synthese").Select
    Columns("C:D").Select
    Range("C:D,Y:Y").Select
    Selection.Copy
    Sheets("Prix").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub

Je sais, cette macro est moche, mais j'apprend au fur et à mesure 🙂

La deuxième va copier coller les valeurs n-1 dans la celulle D à chaque modifications de valeurs de la colonne A. On m'a énormément aidé pour le code, merci à Fring.

Dim vVal As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A30")) Is Nothing Then
        Target.Offset(0, 3) = vVal
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A1:A30")) Is Nothing Then
        vVal = Target.Value
    End If
End Sub

Donc en gros, ce que je souhaite faire, c'est:
1) cliquer sur ma feuille synthese, celle ci s'actualise, c'est parfait
2) la feuille prix actionne la premiere macro copier coller
3) la feuille prix active automatiquement la macro faites par fring
4) je cache cette onglet et je n'y touche plus

La macro de Fring marche très bien si je modifie les valeurs à la main, mais le problème c'est que ce sont des formules qui les modifient, donc je préfère passer par un onglet supplémentaire qui ferait office de "cache"


Je me prend sans doute la tête mais je fais du mieux que je peux.

Merci d'avance,

Cordialement,

 

[lexus92]

Re : Déclencher une macro en même temps qu'une autre

Bonjour,

j'ai finalement repensé mon tableau, et maintenant ça marche.

Merci pour votre aide,

Cordialement,

Alexandre