Case à cocher

[Boby71C]

Bonjour à tous
J'ai une case à cocher dans un UserForm.
Avec le code que j'ai renseigné, lorsque je coche la case, je n'arrive pas à rester sur ma feuille ('Ouverture') ça m'nméne sur la feuille de résultats.
Voici mon code:

Private Sub FC_Standard_Click()
Sheets('Galaxis').Select
Range('F36:G49').Select
With Selection.Interior
.ColorIndex = 48
End With
Range('E20').Activate

End Sub

Pourriez-vous me venir en aide. Je ne peux pas joindre mon fichier qui est trés volumineux.

Merci pour votre aide.
@+

 

[AV]

Salut,


J'ai pas testé mais ça pourrait se simplifier comme ça :

Private Sub FC_Standard_Click()
[Galaxis!F36:G49].Interior.ColorIndex = 48
[Ouverture!E20].Activate
End Sub

AV [aaa]

 

[Boby71C]

Bonjour AV
Merci pour la réponse.
tout fonctionne
Meri beaucoup. Je débute et c'est assez compliqué pour moi sans formation.

@+

 

[Bebere]

bonjour Bobby,Av

oublie les select

Private Sub FC_Standard_Click()

With Sheets('Galaxis')
.Range('F36:G49').Interior.ColorIndex = 48
End With

With Sheets('Ouverture')
.Range('E20').Activate
End With

End Sub
à bientôt