commande dépendant du numéro de feuille

commande dépendant du numéro de feuille - VB/VBA/VBS - Programmation

Marsh Posté le 28-01-2006 à 08:10:37    

J'ai réussi à enregistrer une macro permettant de copier une zone de cellule d'une une feuille2 depuis une feuille1. Ne rigolez pas j'en suis très fier.
Mais je voudrais que cette même macro fonctionne, sans que j'ai besoin de changer le code à chaque fois, pour que si je suis sur la feuille5, ça copie depuis la feuille4, si je suis sur la feuille12, ça copie depuis la feuille11, et ainsi de suite.
Suis-je assez clair?
merci de votre aide!

Reply

Marsh Posté le 28-01-2006 à 08:10:37   

Reply

Marsh Posté le 28-01-2006 à 12:56:35    

Salut Yonoso,
 
Tiens essaye ca ca devrait fonctionner. A grouper avec un bouton, sachant que le code copie a partir de la feuille active, c'est à dire que si tu es sur la feuille 2, la macro te copie en feuille 1.
 
Sub copie()
dim num as byte
 
   num = ActiveSheet.Index
   Range("A1:B5" ).Select
   Selection.Copy
   Sheets(num - 1).Select  
   Range("A1" ).Select
   ActiveSheet.Paste
End Sub
 
@+

Reply

Marsh Posté le 28-01-2006 à 14:17:33    

merci!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed