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
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