XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient

CD38

XLDnaute Nouveau
Bonjour,
Ma demande est un peu difficile à exprimer désolé :)
Je cherche un code VBA me permettant de copier une valeur sur une plage de données jusqu'à la dernière ligne non vide de la colonne précédente.

Ci joint un fichier excel pour exemple.

J'ai un code qui fonctionne lorsque c'est la première fois que je dois copier l'information à partir de la ligne 2 jusqu'à la ligne 10.

Code:
Range("d2").FormulaR1C1 = "LBE_Y"
Selection.Copy
Selection.AutoFill Destination:=Range("d2:d" & Range("c" & Rows.Count).End(xlUp).Row)

Ensuite je copie/colle d'autres informations sur les colonnes A;B;C;E et F à partir de la ligne 11 puis en Cellule D11 je dois renseigner "BUD-Y1" puis copier/coller En valeur cette cellule sur les cellules en dessous jusqu'à la ligne 19.

Je répéte ces actions plusieurs fois donc mes lignes de départ et de fin varie.

J'ai trouvé un code mais je voulais savoir si il n'y avait pas plus simple

Code:
Range("d2").Select
Selection.End(xlDown).Select
ActiveCell.FormulaR1C1 = "BUD2"
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'espère avoir été claire
D'avance merci pour votre aide
Caroline
 

Fichiers joints

CD38

XLDnaute Nouveau
Bonjour,

Merci pour ton retour,
désolé pour ma réponse tardive j'étais en congés.
je vais regarder ta proposition afin de l'appliquer à mon fichier. Je te tiens au courant si cela fonction

caroline
 

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