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.
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
J'espère avoir été claire
D'avance merci pour votre aide
Caroline
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:=FalseJ'espère avoir été claire
D'avance merci pour votre aide
Caroline