M
marieke
Guest
Bonjour,
Je debute en langage VBA et j'ai cree mes premieres formules...
Tout marche impeccable et maintenant, je souhaiterai que mes macro marche a l'ouverture de mon onglet.
Et la, ca me fonctionne plus ....
Ci dessous ma formule :
Range('B4').Select
MsgBox '1...'
Sheets('Suivi livraison papier dept').Select
ActiveWindow.SmallScroll Down:=-57
Range('C5:C52').Select
Selection.Copy
Sheets('suivi').Select
Range('B4').Select
MsgBox '2'
ActiveSheet.Paste
Sheets('Suivi livraison papier dept').Select
Range('B5:B52').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi').Select
Range('C4').Select
MsgBox '3'
ActiveSheet.Paste
En automatique, la formule bloque au n° 1 et je ne vois pas pourquoi.
Si quelqu'un a une solution ( en plus j'suis sure que c'est tout simple !! :woohoo: ) je le remercie par avance de m'aider.
@+
Marieke
VBAtiste girl depuis 1 semaine alors soyez indulgent !
Je debute en langage VBA et j'ai cree mes premieres formules...
Tout marche impeccable et maintenant, je souhaiterai que mes macro marche a l'ouverture de mon onglet.
Et la, ca me fonctionne plus ....
Ci dessous ma formule :
Range('B4').Select
MsgBox '1...'
Sheets('Suivi livraison papier dept').Select
ActiveWindow.SmallScroll Down:=-57
Range('C5:C52').Select
Selection.Copy
Sheets('suivi').Select
Range('B4').Select
MsgBox '2'
ActiveSheet.Paste
Sheets('Suivi livraison papier dept').Select
Range('B5:B52').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('suivi').Select
Range('C4').Select
MsgBox '3'
ActiveSheet.Paste
En automatique, la formule bloque au n° 1 et je ne vois pas pourquoi.
Si quelqu'un a une solution ( en plus j'suis sure que c'est tout simple !! :woohoo: ) je le remercie par avance de m'aider.
@+
Marieke
VBAtiste girl depuis 1 semaine alors soyez indulgent !