Macro feuille active

rickinao Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
bonjours a tous j'ai besoin de votre aide , ces une première pour moi sur un forum de discussion , j’espère trouver satisfaction car mon cerveaux va explosé

je voudrais sur cet macro excel , que la feuil "devis" que je souhaite sélectionner soit remplacer par la feuille active et aussi la feuil précédente a celle active , mes je ne c'est pas quoi mettre a la place de devis .. svp aidai moi

ub page2plus()
'
' page2plus Macro
'

'
Worksheets("devis").Select
Sheets("devis").Copy After:=Sheets(1)
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
Range("E18:L47").Select
Range("L18").Activate
A voir également:

1 réponse

gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
Bonjour,

Déjà tu peux enlever tes
ActiveWindow.ScrollRow = 2 
qui ne servent à rien.

Ensuite remplacer par la feuille active
ActiveSheet.Copy

et aussi la feuil précédente a celle active
Sheets(ActiveSheet.Index - 1).Copy

0