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

Résolu/Fermé

Macro

Yago - 10 juin 2016 à 19:57
Yago - 13 juin 2016 à 15:19

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

A voir également:

Cette action ne fonctionne pas sur plusieurs sélections
Cette action ne peut pas être réalisée car le fichier est ouvert dans system - Guide
Tubidy film d'action telecharger - Télécharger - TV & Vidéo
Action requise sur le compte - Forum Gmail
Copier coller ds Excel - Forum Excel
L'indice n'appartient pas à la sélection vba - Forum VB / VBA

2 réponses

Réponse 1 / 2

Yago
10 juin 2016 à 20:23

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.

Réponse 2 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
13 juin 2016 à 07:21

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

Yago
13 juin 2016 à 15:19

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

Discussions similaires

Vba Remplir une cellule en fonction d'une autre

Effacer le contenu d'une cellule

Sauvegarder un fichier avec le nom d'une cellule d'une autre feu

VBA effacer contenu cellule si elle même contient...

rechercher texte dans colonne puis afficher une cellule

Faire Clignoter une Cellule Excel

Discussions similaires

Newsletters