XL 2019 BOUTON A DOUBLE OPTION

[LEPATOCHE]

Bonsoir le forum
j'ai un classeur excel avec 3 feuilles , donc feuil 1 , feuil 4 et feuil 5 , dans ma feuille 4 j'ai mis un bouton controle formulaire quand je clique dessus il me calcul certaine choses
voila ce que je voudrai sur le meme bouton dé qu'il a fini de calculer je voudrai qu'il me dirige vers la feuil 1 !
je ne peus pas vous joindre mon fichier car trop volumineux . en dessous de cette discution c'est ce que j'ai mi dans mon bouton .
merci de votre aide ...




Sub fini()
'
' fini Macro
'

'
Windows("5 sur 10 keno ameliorer.xlsm:3").Activate
Range("AQ1:AQ3485").Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Selection.End(xlUp).Select
Range("AQ1:AR37588").Select
Selection.Copy
Range("Y1:Z37588").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("5 sur 10 keno ameliorer.xlsm:2").Activate
End Sub

 

[sylvanu]

Bonjour Lepatoche,
Sans PJ, un peu au pif. Terminez votre macro par :

Windows("5 sur 10 keno ameliorer.xlsm:2").Activate

Sheets("Feuil 1").Select    ' A adapter'

End Sub

 

[LEPATOCHE]

Merci sylvanu mais ca ne marche pas je fait comment ?
la marche a suivre pas a pas merci

 

[sylvanu]

Re,

je voudrai qu'il me dirige vers la feuil 1

Dans ce cas il suffit de faire juste avant le End Sub un Sheets("Feuil 1").Select en mettant correctement le nom de la feuille. Comme le montre le gif ci dessous. Si ça ne marche pas difficile de trouver le problème sans PJ.

je ne peus pas vous joindre mon fichier car trop volumineux

On demande juste un petit fichier test représentatif, pas votre fichier de travail.

 

[LEPATOCHE]

Merci sylvanu cette fois ci ca marche bonne soiree a toi et a vous tous !