Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1049 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier la ligne sélectionnée dans 1 ligne vide d'une autre feuille

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copier la ligne sélectionnée dans 1 ligne vide d'une autre feuille

n°2036368
lapin111
Posté le 16-11-2010 à 15:22:05  profilanswer
 

Bonjour à tous,
 
Comme beaucoup de ceux qui ont eu un jour l'idée de faire des macros excel... je m'arrache les cheveux.
Je pense que ce que je cherche à faire est tout simple mais je n'y arrive pas pour l'instant donc je n'ose même pas passer aux étapes suivantes.
 
J'ai deux feuilles dans mon classeur : Feuil1, Feuil2.  
Dans la Feuil1 j'ai une base de données brute.  
Dans la Feuil2 je souhaite mettre seulement les lignes de Feuil1 que j'aurai sélectionné.
 
Mon but est de pouvoir transférer les lignes en sélectionner une ligne avec la souris dans Feuil1 et cliquez sur le bouton de ma macro pour transférer la ligne dans Feuil2, à la première ligne disponible.
 
Grâce à l'Enregistreur de Macro et un peu de bidouillage j'ai obtenu ce code qui ne me satisfait pas complètement.
 

Code :
  1. Sub testcopy()
  2.     ActiveCell.Select
  3.     Selection.Copy
  4.     Sheets("BDDsélectionnés" ).Select
  5.     ActiveSheet.Paste
  6. End Sub


 
Je pensais que Activecell récupérait tout ce qui est sélectionné mais ce n'est apparemment pas le cas, ce code ne copie que la première cellule.
Et il copie seulement sur la première ligne de ma Feuil2.
 
Comment faire en sorte de copier toute la ligne sélectionnée dans ma feuille de destination et dans la première ligne vide?
 
Merci d'avance de me donner qq pistes pour que je comprenne comment faire cette macro par moi-même. Je suis conscient du potentiel du langage Visual Basic mais son apprentissage me semble de plus en plus insurmontable.
 
A bientôt.

mood
Publicité
Posté le 16-11-2010 à 15:22:05  profilanswer
 

n°2036435
Xxxaaavvv
Posté le 16-11-2010 à 18:03:41  profilanswer
 

Faut faire un peu d'anglais :o
 
ActiveCell = Cellule Active
 
tu chercherai plutot a copier la rangée complete (ligne -> row en anglais)
 
 
remplace :
ActiveCell.Select
 
par :
Rows(ActiveCell.row).Select
 
ça va te selectionner la ligne complete de ta cellule en cours.
 
ensuite, trouver la première ligne vide dans la nouvelle feuille, c'est assez casse couille :o
fait donc une insertion de ligne
 
    Sheets("BDDsélectionnés" ).Select
    ActiveSheet.Rows("1:1" ).Select
    Selection.Insert Shift:=xlDown
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copier la ligne sélectionnée dans 1 ligne vide d'une autre feuille

 

Sujets relatifs
[C#] Php hors ligne ?[résolu] Paramètre POST dans une ligne de commande wget
afficher une ligne d'un fichier .txt en C purprobleme saut de ligne avec scanf
[MySQL] choisir la ligne retournée par GROUP BYCopier une base MySQL dans SQL Server 2008 [Resolu]
copier des cellules d'une feuille vers une feuille spécifique[Macro Word] Copier/Coller depuis diff docs
Formulaire a envoyer / Mail vide / html + php 
Plus de sujets relatifs à : Copier la ligne sélectionnée dans 1 ligne vide d'une autre feuille


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR