quitter groupe de travail

[Romain31]

Bonjour à tous,

Je lance cette macro à l'aide d'un bouton qui me met en groupe de travail

Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

Je souhaiterai, une fois la valeur entrée (qui sera donc copiée dans toutes les feuilles), quitter ce groupe de travail automatiquement.

Avez-vous des idées ?

Merci, et bonne soirée

Romain

 

[Pierrot93]

Re : quitter groupe de travail

Bonjour Romain

essaye en selectionnant une feuille :

Sheets("Feuil1").Select

bonne soirée
@+

 

[Romain31]

Re : quitter groupe de travail

Effectivement, c'est la méthode pour quitter un groupe de travail.
Mais je voudrais que cela se fasse automatiquement

Je viens de tester ceci

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Sheets("Feuil4").Activate
End Sub

En tout cas, merci pour ta réponse qui m'a permis d'avancer

 

[Pierrot93]

Re : quitter groupe de travail

Re

comprends pas trop, si tu mets cette ligne de code avant le "end sub" de ta macro, où après avoir valorisé les cellules des différentes feuilles, cela aura pour effet de désactiver "automatiquement" le groupe de travail, enfin me semble t il...

@+

 

[Romain31]

Re : quitter groupe de travail

La macro est dans un module et l'évènementiel la désactive.
Je te joins le fichier que j'ai fait.

 

[Pierrot93]

Re : quitter groupe de travail

Re

modifies comme suit...

    Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
    MsgBox "Entrez une valeur ou cliquez sur la feuille synthese pour sortir"
    
    Sheets("Synthese").Select

mais bon, pas sur d'avoir tout compris, supprime peut être la macro événementielle dans "thisworkbook", elle active la feuille "synthèse" à chaque fois que tu fais une modif dans ton classeur...


@+

 

[Romain31]

Re : quitter groupe de travail

Effectivement, l'activation est le "truc" pour quitter ce groupe de travail.

@+

Romain