Macro feuille active

rickinao Messages postés 1 Statut Membre -  
gbinforme Messages postés 14930 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

1 réponse

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    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