Dupliquer le contenu de cellules
Bonsoir,
Des infos sont présentes sur les colonnes A et B de ma feuille, mais pas partout. Je cherche à dupliquer les données présentes sur ces colonnes dans les cellules vides présentes immédiatement en-dessous.
Concrètement, dans le fichier joint, il faudrait que A2 et A3 contiennent 4567, B2 et B3 aaaaa. De même, A5 doit contenir 456/64 et B5 bbbb, etc., quelque soit la taille des colonnes.
Sur un autre forum, on m'a déjà proposé une solution via une formule. C'est en effet ce qu'il y a de plus simple, mais j'aurais aimé avoir une solution différente en VBA.
Pourriez-vous me proposer une telle solution svp ?
Merci d’avance.
Bonsoir,
Peut-être ainsi :
Sub Macro1()
With Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End SubBonne soirée