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

rounil09

XLDnaute Occasionnel
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
 
C

Compte Supprimé 979

Guest
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
 
Dernière modification par un modérateur:

Discussions similaires