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
 

BrunoM45

XLDnaute Barbatruc
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 édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @rounil09, @BrunoM45 :),

Essayez :
VB:
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

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas