Zone dynamique

Zone dynamique - VB/VBA/VBS - Programmation

Marsh Posté le 02-05-2005 à 15:00:30    

Bonjour,
 
Tout nouveau en VBA, J'aimerai réaliser une recopie d'une plage de données à la suite d'une autre plage de données.
Je m'explique :
 
Mon fichier Données contient :
 
     A                   B       C
1 Bernard   Josianne       3
2 Dupont   Marcel
3 Van Zietten   Anatole
 
mes nouvelles données Noms et prénoms sur une zone A1:B3 que j'aimerai rendre dynamique selon le nombre de données inscrites. J'arrive à répérer le nombre de champs en insérant en C1 la fomule : =65536-NB.VIDE(B:B) ce qui donne dans mon exemple 3
 
Mon fichier Traitement contient :
 
     A                  B
1 Noms               Prénoms  
2 Untel              Truc    
3 Van Zietten        Brigitte
4 Machin             Bidule  
 
Ce que je voudrais C'est copier les données dynamiques de "Données" pour les insérer Derrière les données dynamiques (Elles aussi) de "traitement".
 
Par avance merci à tous ceux qui essayeront de m'aider à progresser
 
 
 
 

Reply

Marsh Posté le 02-05-2005 à 15:00:30   

Reply

Marsh Posté le 03-05-2005 à 01:49:28    

Sub Fusion()
  Dim iNextRow As Long
  Dim rSource As Range
   
  Sheets("Traitement" ).Activate
  iNextRow = Cells.SpecialCells(xlLastCell).Row + 1
  Sheets("Données" ).Activate
  Set rSource = Range([A1], Cells.SpecialCells(xlLastCell))
  rSource.Copy (Sheets("Traitement" ).Cells(iNextRow, 1))
End Sub

Reply

Sujets relatifs:

Leave a Replay

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