quitter groupe de travail

Pierrot93

XLDnaute Barbatruc

• 31 Mars 2008

• #2

Re : quitter groupe de travail

Bonjour Romain

essaye en selectionnant une feuille :

Code:

Sheets("Feuil1").Select

bonne soirée
@+

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 31 Mars 2008

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mars 2008

• #4

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...

@+

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 31 Mars 2008

• #5

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.

 

Pièces jointes

• groupe de travail.zip

  10.8 KB · Affichages: 52

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mars 2008

• #6

Re : quitter groupe de travail

Re

modifies comme suit...

Code:

    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...


@+

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 31 Mars 2008

• #7

Re : quitter groupe de travail

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

@+

Romain

 

Vote positif 0 Vote négatif