Copier/Coller sélection plusieurs cellules d'une ligne

[Résolu/Fermé]
Signaler
-
 Yago -
Bonjour,

J'aimerai copier les cellules de la colonne A à M de la ligne sur laquelle se trouve ma cellule active (la cellule active peut se trouver n'importe où sur la feuille) pour la copier sur une autre feuille

J'arrive à copier/coller d'une feuille à l'autre, j'arrive à copier la ligne entière, mais je n'arrive pas à faire une sélection pour ne copier que la ligne de la cellule active pour les cellules des colonnes A à M ?

Quelqu'un a-t-il une idée ?

Merci de votre aide.

       
Cells(1,ActiveCell.Column).Resize(1, 13).Copy
Sheets("Réparations").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Exit Sub


2 réponses

Voici ce que j'ai fait pour me dépanner

J'ai copier la ligne entière, je l'ai collée dans une autre feuille de classeur, puis j'ai sélectionné les cellules de la ligne 1, colonnes A à M, je les ai copiées et collées dans ma feuille de destination.


Sub copiedansfeuilleréparation
ActiveCell.EntireRow.Copy
Sheets("Ligne Rep").Visible = True
Sheets("Ligne Rep").Activate
ActiveSheet.Paste
Range("A1:M1").Copy
Sheets("Réparations").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Exit Sub


Cependant, si vous aviez une idée pour éviter cette "bidouille", merci de m'éclairer.

Bonne soirée.
Messages postés
2228
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
1 octobre 2021
330
Bonjour
Si j'ai bien compris, on recopie les valeurs de la ligne active comprises entre A et M dans la feuille "Réparation" en A et M.
Sub CopieDansFeuilleRéparation()
    ZoneSelect = Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "M")).Value
    Sheets("Réparations").Select
    DerLig = [A1000000].End(xlUp).Row + 1
    Range(Cells(DerLig, "A"), Cells(DerLig, "M")).Value = ZoneSelect
End Sub

Cdlt
Merci beaucoup Frenchie83, cela fonctionne parfaitement.
C'est cette ligne de code qui me posait problème :
ZoneSelect = Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row, "M")).Value

Résolu.
Bonne journée à tous.
Yago