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
 

Pièces jointes

  • test VBA.xlsx
    14.8 KB · Affichages: 19

Discussions similaires

Réponses
2
Affichages
196

Statistiques des forums

Discussions
292 797
Messages
1 926 335
Membres
183 028
dernier inscrit
FabG17