Recopier la valeur de la cellule dans première cellule non vide de la colonne

[strawberry]

Hello le forum !!!!

Avant tout, comme il se doit....meilleurs voeux à tous !
Avez-vous une idée simple qui me permettrait de recopier la valeur d'une cellule dans la cellule de la ligne du dessous, si cette dernière est vide.
Je joins un fichier en exemple.

Merci d'avance si vous pouvez me dépanner.
Strawberry.

 

[MJ13]

Re : Recopier la valeur de la cellule dans première cellule non vide de la colonne

Bonjour,

Tu séléctionnes ta zone puis tu lance cette macro

Sub Copie_Cel_Vides_Val_Cel_dessus
Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"
End Sub

 

[Robert]

Re : Recopier la valeur de la cellule dans première cellule non vide de la colonne

Bonjour Strawberry, MJ, bonjour le forum,

Une autre proposition sans sélection préalable :

Sub Macro1()
Dim celA As Range, celB As Range 'déclare les variables celA et celB
 
'boucle sur toutes les cellules éditées de la colonne A moins la dernière (calculée par rapport à la colonne D)
For Each celA In Range("A2:A" & Range("D65536").End(xlUp).Row - 1)
    'si la cellule du dessous est vide, elle prend la valeur de la cellule du dessus
    If celA.Offset(1, 0).Value = "" Then celA.Offset(1, 0).Value = celA.Value
Next celA 'prochaine cellule de la boucle
 
'idem pour la colonne B
For Each celB In Range("B2:B" & Range("D65536").End(xlUp).Row - 1)
    If celB.Offset(1, 0).Value = "" Then celB.Offset(1, 0).Value = celB.Value
Next celB
 
End Sub

 

[strawberry]

Re : Recopier la valeur de la cellule dans première cellule non vide de la colonne

MERCI MJ13 et Robert....
Deux supers solutions !!!!