Sujet Précédent Sujet Suivant

Macro feuille active

Fermé
rickinao Messages postés 1 Date d'inscription mercredi 16 novembre 2016 Statut Membre Dernière intervention 16 novembre 2016 - Modifié par rickinao le 16/11/2016 à 22:33
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 16 nov. 2016 à 22:55
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

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
16 nov. 2016 à 22:55
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

Discussions similaires

Enlever le pass. Telecomm. Active
Lisa -
Yves -

3 réponses
Feuille de score belote
nulleeninfo -
brucine -

7 réponses
Reporter valeur sur autre feuille avec critere
Otk168 -
via55 -

4 réponses