[VBA] Incrémentation

Incrémentation [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 31-05-2013 à 15:05:49    

Bonjour à tous,
 
Alors voila, je récupère via mon code VBA des données qui sont recopier dans une feuille de mon classeur sheet1, ces données sont alors traitées dans la feuille principale de mon classeur via des formules directement depuis Excel.
 
Je souhaiterai alors pouvoir effectuer une recopie incrémentée (vers le bas) automatiquement de ma cellule de la feuille principale contenant les formules via VBA pour que celle-ci couvrent les éventuelles nouvelles données enregistrées dans sheet1.
 
La question est donc : Comment effectuer une recopie incrémentée d'une cellule en VBA ?
 
En vous remerciant par avance  :ange: ,
 
Glaspow.


Message édité par glaspow le 31-05-2013 à 15:24:52
Reply

Marsh Posté le 31-05-2013 à 15:05:49   

Reply

Marsh Posté le 31-05-2013 à 15:23:38    

 
           Bonjour,
 
           le terme "incrémentée" me fait du coup douter quant à ton réel besoin …
 
           Sinon voir l'aide VBA et l'exemple de la classique méthode  Copy  associée à un  Range  …
 
           De toute manière, comme les données sont alimentées par programme, pas de souci alors pour la destination de la copie.
 
           Exemple ici.
 

Reply

Marsh Posté le 31-05-2013 à 15:33:09    

Je complète : Les formules de ma feuille principale vont chercher les cellules de sheet1 pour ensuite traiter les données. Mais si je rajoute des données dans la feuille sheet1 elles ne sont pas prise en compte à moins d'effectuer une recopie incrémentée manuellement depuis ma feuille principale.

Reply

Marsh Posté le 31-05-2013 à 15:48:22    

 
           Désolé mais je ne visualise toujours pas, j'suis p't'être mal embouché aujourd'hui …
 
           Un exemple clair & concret serait le bienvenu !
 

Reply

Marsh Posté le 03-06-2013 à 10:06:09    

J'ai trouvé ! Je cherchais en fait à faire :
 

Code :
  1. Set sourceRange = Worksheets("Sheet1" ).Range("A1:A2" )
  2. Set fillRange = Worksheets("Sheet1" ).Range("A1:A20" )
  3. sourceRange.AutoFill Destination:=fillRange


 
Merci tout de même pour l'attention porté à mon problème.
 
 :hello:

Reply

Marsh Posté le 03-06-2013 à 11:37:52    

 
           Bien !
 
           J'ai en fait buté sur l'incrémenté qui aurait été pourtant clair avec un exemple …
 

Reply

Sujets relatifs:

Leave a Replay

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