Trouver la 1ere ligne vide d'un tableau et écrire dans les cellules

Trouver la 1ere ligne vide d'un tableau et écrire dans les cellules - VB/VBA/VBS - Programmation

Marsh Posté le 10-04-2013 à 19:01:38    

Bonsoir A Toutes et Tous !
 
Un vrai néophyte en VBA s'adresse aux pros pour tenter d'éclaircir sa lanterne ! Merci d'avance à toutes celles et ceux qui se pencheront sur mon souci (sûrement modeste pour nombre d'entre Vous !).
a) J'ai un fichier A dans lequel j'enregistre des infos diverses et variées.
b) J'ai un fichier B que je fais ouvrir à travers une macro. maintenant j'aimerai connaitre l'ensemble du code pour :
        - positionner dans B sur la première ligne vide,
        - recopier des infos de A dans les cellules de cette ligne.
Pourriez-vous me donner un coup de main ? D'avance merci et excellente soirée
JPierre,

Reply

Marsh Posté le 10-04-2013 à 19:01:38   

Reply

Marsh Posté le 10-04-2013 à 19:50:02    

 
           Bonsoir !
 
           Cela manque de précision !
 
           Voir l'aide intégrée de VBA concernant la méthode  Copy  d'un  Range  avec sa  Destination  …
 

Code :
  1. Sub Demo()
  2.     With ActiveWorkbook.ActiveSheet
  3.         R = .UsedRange.Rows(.UsedRange.Rows.Count).Row + 1
  4.         If R <= .Rows.Count Then ThisWorkbook.ActiveSheet.UsedRange.Copy .Cells(R, 1)
  5.     End With
  6. End Sub


Message édité par Marc L le 11-04-2013 à 02:39:38
Reply

Marsh Posté le 15-04-2013 à 15:39:18    

Merci de vous être penché sur mon problème alors pour vous répondre :
 
a) je souhaite copier la plage AN7:BG7 de la feuille "Prospect" du fichier "Erola".
 
b) vers la plage (B(première ligne vide) à U(première ligne vide)) de la feuille "Patrimoine" du fichier "Opérations".
 
Ai-je été plus clair ? Merci d'avance de votre aide ! Bien sincèrement,
JPierre

Reply

Marsh Posté le 15-04-2013 à 15:55:37    

 
      En fait tout est présent dans mon code précédent :
 
 

  • ligne n° 2 :


    With Workbooks("{classeur destination}" ).Worksheets("{feuille destination}" )
 
 

  • ligne n° 4 :


        If R <= .Rows.Count Then Workbooks("{classeur source}" ).Worksheets("{feuille source}" ).[ AN7:BG7].Copy .Cells(R, 2)


Message édité par Marc L le 15-04-2013 à 16:01:09
Reply

Sujets relatifs:

Leave a Replay

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