Pb de copie de plage de cellules avec variable

Pb de copie de plage de cellules avec variable - VB/VBA/VBS - Programmation

Marsh Posté le 16-07-2007 à 12:21:11    

Bonjour,
 
Je me croyais calé en VBA jusqu’au jour où je suis tombé sur ce forum ! en fait je me rends compte que je suis qu’un débutant ! Bon ceci étant dit, voilà mon problème :
 
J’ai deux classeurs et je souhaiterais copier une plage de cellule du premier vers le second, en fonction des mois de l’année. Je m’explique : mon premier classeur contient un budget etalé sur 12 mois, et suivant que l’on est en juin ou en juillet, je souahiterais copier la plage de cellules qui va de janvier à juin (ou juillet) dans mon autre classeur. Le problème c’est que j’arrive pas à écrire le bon code, j’ai bien essayé de rentrer le moi de l’année dans une « Inputbox » mais après rien à faire, je n’arrive pas à utiliser la variable correctement
 
Voilà, espérant que quelqu’un pourra m’aider, à vot’bon cœur m’sieurs dames…

Reply

Marsh Posté le 16-07-2007 à 12:21:11   

Reply

Marsh Posté le 16-07-2007 à 14:22:42    

que t'as donné le macro recorder stp ?

Reply

Marsh Posté le 16-07-2007 à 14:41:49    

jpcheck a écrit :

que t'as donné le macro recorder stp ?


 
ben le mieux que j'ai pu obtneir ressemble à ça :
 
Windows("Classeur de destination.xls" ).Activate
    Range("A2" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('[classeur d'origine.xls]feuille'!R7C2:R7C5)"
    Range("A3" ).Select
 
 
Alors j'ai bien compris que le "R7C2:R7C5" correspond à la plage de cellules que je veux copier mais je sais pas comment faire pour lui dire de changer cette plage en fonction d'une variable
 
j'ai aussi essayé avec un truc comme ça :
 
a = InputBox("Entrer le n° du mois" )
'
    Windows("Classeur de destination.xls" ).Activate
    Range("A2" ).Select
    ActiveCell.FormulaR1C1 = "=SUM('[classeur d'origine.xls]feuille'!R[7]C[2]:R[7]C[a])"
    Range("A3" ).Select


Message édité par kaizer 74 le 16-07-2007 à 14:48:37
Reply

Marsh Posté le 16-07-2007 à 14:49:20    

mais ça marche pas non plus !

Reply

Marsh Posté le 16-07-2007 à 14:59:00    


essaie avec ca
    ActiveCell.FormulaR1C1 = "=SUM('[classeur d'origine.xls]feuille'!R7C2:R7C" & a & " )"
 

Reply

Marsh Posté le 16-07-2007 à 15:07:43    

jpcheck a écrit :


essaie avec ca
    ActiveCell.FormulaR1C1 = "=SUM('[classeur d'origine.xls]feuille'!R7C2:R7C" & a & " )"
 


 
gagné ça marche !!  :bounce:  
 
merci beaucoup pour ton aide jpcheck !
 
je vais pouvoir avancer dans ma macro grâce à toi

Reply

Sujets relatifs:

Leave a Replay

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