XL 2019 Macro copier coller valeurs de cellules non jointes qui plante

[rounil09]

Bonjour la liste,
La macro suivante (du module1) plante sur la dernière ligne, sachant que je cherche à copier les valeurs des cellules G5,J5,K5 de la feuille « PARAM » sur les cellules correspondantes G,J,K, de l’avant dernière ligne de la feuille « PORTF_DE »
J’ai essayé une variante avec derlign que j’ai récupéré sur le forum qui plante également…
Merci de m’indiquer la correction à apporter

Ligne qui plante : Selection.PasteSpecial Paste:=xlPasteValues

Sub Copie2()
Sheets("PARAM").Select
Range("G5,J5,K5").Select
Selection.Copy
'Aller "PORTF_DE", se caler à l'avant dernière cellule vide de la colonne G, sélectionner de cette cellule
Sheets("PORTF_DE").Select
Sheets("PORTF_DE").Unprotect
Range("G" & Rows.Count).End(xlUp).Offset(-1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

 

[Gégé-45550]

Bonjour,

Avez-vous essayé Selection.pasteSpecial xlPasteValues ?

Cdlt

 

[Compte Supprimé 979]

Bonjour Rounil09

Problème de "Offset(-1, 0)" je pense si tu n'as pas d'entête

Ensuite il faut éviter de faire des Select, cela ralenti le code

 

[mapomme]

Bonjour @rounil09, @BrunoM45 🙂,

Essayez :

With Sheets("PORTF_DE")
   .Unprotect
   derlig = .Cells(Rows.Count, "g").End(xlUp).Row + 1
   For Each xcell In Sheets("PARAM").Range("G5,J5,K5")
      .Cells(derlig, xcell.Column) = xcell.Value
   Next xcell
   .Protect
End With

 

[rounil09]

Merci de vos contributions
J'ai adopté le code de "Ma pomme" qui fonctionne très bien
Bonne journée