Recopier une ligne dans une cellule active

Recopier une ligne dans une cellule active - VB/VBA/VBS - Programmation

Marsh Posté le 21-03-2018 à 10:02:57    

Bonjour,
Débutant en VBA, voici le problème que je rencontre.
 
La ligne A1 de ma feuille Excel contient des données
Mon objectif est, quelque soit la position de mon curseur sur une cellule, en cliquant sur la macro, celle ci recopie la ligne A1 à l'endroit ou est positionné mon curseur (ou la cellule)
Exemple, je sélectionne la cellule A5, je souhaite recopie l'ensemble de la ligne A1 sur la ligne A5
Merci de votre aide

Reply

Marsh Posté le 21-03-2018 à 10:02:57   

Reply

Marsh Posté le 04-04-2018 à 11:02:57    

Bonjour,
Aucune réponse, mon problème est de simplement recopier toujours la meme ligne (A1) quelque soit ou est placé mon curseur..
 
Merci de votre aide

Reply

Marsh Posté le 04-04-2018 à 15:08:04    

 
          Bonjour,
 
          rien qu'en activant l'Enregistreur de macro !
          Et puis la demande ne doit pas porter à confusion car d'un côté on a « la meme ligne » et de l'autre la cellule « (A1) » ‼
 
          Donc pour copier une cellule :  [A1].Copy ActiveCell  …
 
 

Reply

Marsh Posté le 04-04-2018 à 15:09:24    

 
           Pour une ligne, voir dans l'aide VBA interne la propriété EntireRow
 

Reply

Marsh Posté le 06-04-2018 à 11:33:20    

Bonjour,
La ligne 1 contient toujours des données de mon fichier Excel.
Mon objectif est de recopier cette ligne à l'endroit ou est positionné mon curseur, c'est a dire A2, A6, quelque soit l'endroit de la colonne A.
J'ai utilisé l'enregistreur et voila la réponse :
 
    Rows("2:2" ).Select
    Selection.Copy
    Range("A6" ).Select
    ActiveSheet.Paste
 
Le problème c'est que ce code va toujours être recopier dans la ligne 6.
 
Merci

Reply

Marsh Posté le 06-04-2018 à 13:44:06    

 
           Faudrait m'expliquer pourquoi alors ton code copie la ligne n° 2 ?!
 
           Sinon pour la destination, as-tu au moins consulté l'aide VBA interne concernant le "nécessaire" dans mes précédents messages ?
 
           Au passage, seule une ligne de code est nécessaire comme indiqué dans l'aide VBA de Range.Copy
           en indiquant directement la destination comme dans mon premier message …
 

Reply

Sujets relatifs:

Leave a Replay

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