XL 2010 Si cellule vide recopier la ligne du dessous

fanch55 à dit:

Bonsoir, macro modifiée :

VB:

Sub Copie()
Dim Derlig&, Maval As Range
    Derlig = Range("H" & Rows.Count).End(xlUp).Row
    If Derlig < 8 Then Derlig = 8
    Range("H2:H" & Derlig).Resize(, 6).ClearContents
   
    For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("A" & i) = "" Then
            Range("H" & i).Resize(, 6).Value = Maval.Value
        Else
            Range("H" & i).Resize(, 6).Value = Range("A" & i).Resize(, 6).Value
            Set Maval = Range("A" & i).Resize(, 6)
        End If
    Next i
End Sub

Cliquez pour agrandir...

job75 à dit:

Bonsoir BRUNO62,

Exécutez cette macro :

VB:

Sub a()
On Error Resume Next 'si aucune SpecialCell
With [A2:F12] 'à adapter
    .NumberFormat = "0.000"
    .SpecialCells(xlCellTypeBlanks) = "=R[1]C"
    .Value = .Value
End With
End Sub

A+

Cliquez pour agrandir...

Phil69970 à dit:

Bonjour @BRUNO62
Edit Bonjour Job et François

Je te propose

Merci de ton retour

Cliquez pour agrandir...