XL 2016 RÉSOLU - copier et coller valeurs de plusieurs colonnes sur prochaine ligne vide

xUpsilon à dit:

Bonjour,

En reprenant sensiblement la même structure, comme ceci ?

VB:

Sub AvecPaiement()

' copier_coller ligne avec paiement

    With Range("B65536").End(xlUp).Offset(1, 0).Resize(, 8)
        .Value = Range("B1:I1").Value
        .Select
    End With
    With Range("BH65536").End(xlUp).Offset(1, 0).Resize(, 3)
        .Value = Range("BH1:BJ1").Value
        .Select
    End With
   
  Range("A9").Select
   

End Sub

Bonne journée,

Cliquez pour agrandir...

​

sylvanu à dit:

Bonjour Micie,
Je ne comprends pas votre offset 60.
Si c'est pour copier coller juste 3 cellules alors faites la recherche range sur la colonne BH et un offset de 3:

VB:

Sub AvecPaiementA()
' copier_coller ligne avec paiement
    With Range("BH65535").End(xlUp).Offset(1, 0).Resize(, 3)
        .Value = Range("BH1:BJ1").Value
        .Select
    End With
End Sub

Sinon donnez de plus amples informations.

Cliquez pour agrandir...

micie1509 à dit:

Bonjour Sylvanu,
Je voudrais tellement comprendre chacun des codes que je pige à gauche et à droite ou que je réussi à faire avec enregistrer une macro. LOL!
C'est pourquoi j'essaie plein de choses à partir de codes qui fonctionnent pour leur faire faire ce que moi j'ai besoin qu'elle fassent. Comme vous pouvez voir, c'est pas toujours gagnant.
Je n'était pas certaine si le offset servait à copier 3 cellules ou à coller à partir de la 3e colonne. Puisque ça ne semblait pas fonctionner avec 3, j'ai essayé avec 60. Là, j'ai perdu patience et j'ai contacté les experts. LOL !

Vraiment merci du temps que vous m'avez accordé et de l'explication de l'offset.

Cliquez pour agrandir...