[VBA-E] copier /coller sur test cellule

Bonjour,

J'aurai besoin de votre aide pour développer une routine VBA dans Excel.

Pour une colonne donnée (par ex. A), j'ai des valeurs dans certains champs de cette colonne (par ex. A1 = BRS, A5 =TLN, A12=AC ...), les autres cellules de la colonne sont vides. J'aurai voulu automatiser la recopie de la valeur A1 jusqu'à A4 puis de la valeur A5 jusqu'à A11 et ainsi de suite....

Je tourne en rond depuis des jours, pourriez-vous me proposer une solution.

Merci d'avance

Yann

Je souhaite remplir dans la colonne A les cellules vides entre 2 cellules renseignées de la valeur de la cellule du dessus (voir exemple ci-dessous)
Pièce jointe 1229

J'ai utiliser la fonction Do Loop et cette synthaxe : Cells(Selection.Row + 1, Selection.Column) = Selection.Value mais cela ne marche pas

Le problème, c'est qu'il s'agit d'un fichier de plus de 12000 lignes avec des valeurs aléatoires et qui peuvent évoluer (cellule de la valeur à copier) lors de la mise à jour du fichier.

Il me faut trouver un code pour tester si la cellule est renseignée, si oui je copie la valeur, je descends d'une ligne si la cellule est vide je colle la valeur sinon je copie la valeur et ainsi de suite

Merci

Juste avant d'aller me coucher

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Recopie() Dim iLastLine As Long Dim rCell As Range Dim rRange As Range iLastLine = Cells.SpecialCells(xlLastCell).Row Set rRange = Range([A1], Cells(iLastLine, 1)) For Each rCell In rRange If IsEmpty(rCell) Then rCell = rCell.Offset(-1, 0) End If Next rCell End Sub

---

Merci beaucoup, cela correspond tout à fait à mon besoin !!!

Bonne nuit