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

Question

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

Configuration: Windows 7 / Mozilla 11.0

Yago · Answer

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.

Frenchie83 · Answer

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

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

2 réponses

Discussions similaires