Mettre feuille active en conditionnelle

[Coco-31]

Mettre feuille en conditionnelle

Bonsoir le Forum,

Je me tourne encore un fois vers vous pour essayer de simplifier mes codes, actuellement j'ai un code dans chaque propriété feuille du genre

pour la feuille 1
Private Sub Worksheet_Activate()
'code macro ex. [C10]. Select etc ...
End Sub

pour la feuille 2
Private Sub Worksheet_Activate()
'code macro ex. [G20]. Select etc ...
End If

etc

A partir de la Thisworkbook est il possible d'écrire

Private Sub Workbook_Activate()
If Worksheet(1).Activate Then [C10].sélect ou If Sheet(1).Activate then [C10].select
If Worksheet(2).Activate Then [G20].sélect
End Sub

Je remercie vivement tous ceux qui donne de leurs temps pour leurs participations.

 

[Robert]

Re : Mettre feuille active en conditionnelle

Bonsoir Coco, bonsoir le forum,

Essaie comnme ça :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Index 'action en foncton de l'index du classeur
    Case 1 'cas 1
        ActiveSheet.Range("C10").Select 'sélectionne C10
    Case 2 'cas 2
        ActiveSheet.Range("G20").Select 'sélectionne G20
    Case 3 'cas 3
        ActiveSheet.Range("A1").Select 'sélectione A1
End Select 'fin de l'action en fonction de...
End Sub

 

[Coco-31]

Re : Mettre feuille active en conditionnelle

Bonsoir Robert,

Merci pour ta réponse qui répond à ma demande, ton code est parfait pour les trois premières feuilles, mais si on souhaite utiliser le code sur la feuille 1, feuille 3 et 5 par exemple et il possible d'utiliser sheet (1) par exemple et non le nom de l'onglet.

En tout cas merci pour ce code que j'adapterai

 

[Robert]

Re : Mettre feuille active en conditionnelle

bonsoir Coco, bonsoir le forum,

le code utilise l'index de l'onglet et pas le nom comme je te l'ai indiqué dans les commentaires ! Pour l'onglet Feuil5 il suffit de faire une Case 5 et d'y rajouter la plage à sélectionner.