Copier et coler sur une ligne variable

Résolu
Bonjour,

est ce que vous pouvez m'aider svp
je doit copier une plage d'une feille par exemple de D3:D06 sur une la dernier ligne de la colone N vide de la meme feille , sachan cette ligne n'est pas fixe elle est variable

merci beacoup pour votre aide

6 réponses

  1. bonjour
    je doit copier la colone D3:D6 de la feille " recap" et coller les valeurs ( collage spécial ) sur la dernière ligne vide de la colonne N de la même feille récap.

    votre ancienne code marche très bien , mais ne me donne pas le collage spécial il me donne les valeur 00000 dans chaque cellule

    merci pour votre aide
    0
    1. Bonsoir magcine,

      Pour que l'on puisse t'aider, il faut déposer un fichier, en supprimant les données confidentielles bien sûr, sur un site de stockage tel que "www.cjoint.com" ..
      Ensuite tu mets lelien de ce fichier dans ton prochain message, merci pour les personnes qui veulent t'aider.

      Bon réveillon de Noël,
      Heliotte.
      0
  2. bonjour

    il me reste un trc cella marche tres bien sauf que lorseque je colle la colone sur la ligne desire elle ne me donne pas la valeur ( collage spécial)
    0
    1. Contributeur
      Bonjour,

      rien compris.
      Un fichier exemple est indispensable.

      eric
      0
  3. merci encore une foir pour votre support
    0
    1. bopnjour
      merci pour votre aide
      je suis un peut debutant , est ceque vous pourvez me rajoute le non de l'anglet esp 'reap'
      0
      1. Contributeur
        Re,

        [reap!D3:D6].Copy
        [reap].Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
        0
    2. Contributeur
      Bonjour,

      en plus précis :
      [D3:D6].Copy
      Cells(Rows.Count, "N").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True 

      eric
      0
      1. Bonsoir magcine,

        En macro VBA,

        Étape1:
        Récupérer la dernière ligne non-vide en colonne "N", la stocker dans une variable en lui ajoutant '1'.

        Étape2:
        Coller les lignes avec Range(Cells(NoLigne,NoColonne),Cells(NoLigne,NoColonne))
        0