VBA coller en fonction des lignes ajoutés

martinigi

XLDnaute Nouveau
Bonjour,
J'ai un tableau que je colle en VBA dans une autre feuille en colonne D.
Je souhaiterai ensuite coller la valeur d'une cellule R6 dans la colonne B devant chaque ligne ajoutées.
Sachant que mon tableau que je colle n'est jamais collé sur la même ligne.
Si quelqu'un a la solution
Je vous remercie

Voici ma formule pour l'instant :
Range("D"&Rows.count).End(xlUp).offset(1).paste
 

gosselien

XLDnaute Barbatruc
Bonjour,

ceci (sur base de ton exemple) convient ?

P.
VB:
Option Explicit

Sub Copie()
Dim Sh1 As Worksheet
Dim Last1&, Last2, Nb
Dim Last As Long
Dim Pl, Devis
Set Devis = [C23]
Set Sh1 = Sheets("feuil1")
Set Last2 = [H65000].End(xlUp)
Set Pl = Range("B25").CurrentRegion
Set Pl = Pl.Offset(1, 0).Resize(Pl.Rows.Count - 1, Pl.Columns.Count)
Nb = Pl.Rows.Count
Pl.Copy Last2(2)
Last = [G65000].End(xlUp).Row
Range("G" & Last + 1 & ":G" & Last + Nb) = Devis.Value
End Sub
 

Discussions similaires

Réponses
22
Affichages
691

Statistiques des forums

Discussions
311 741
Messages
2 082 061
Membres
101 886
dernier inscrit
Toto31