Si vide, récupérer la ligne du dessus Excel

Question

Bonjour,

J'ai un tableau Excel présenté comme suit :

1ere ligne : (ColA)105 (ColB)TOTO (ColC)TITI (ColD)150 (ColE)2000
2eme ligne :                       (ColD)50  (ColE)2000
3eme ligne : (ColA)108 (ColB)TATA (ColC)TUTU (ColD)180 (ColE)2300
                        20   2300


Je voudrai pouvoir récupérer la ligne du dessus (105 TOTO TITI ) si mes cellules sont vides (Cf Col.A , B C de ma deuxième ligne, est-ce possible ?

Merci pour vos réponses,

michel_m · Answer

Bonjour

essaies cette macro (XL2003)

Sub reporter_sivide()
Dim derlig As Long, lig As Long
Dim plage As Range
Dim col As Byte, cptr As Byte

derlig = Range("A1:E1000").Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
Application.ScreenUpdating = False
For lig = 2 To derlig
    Set plage = Range(Cells(lig, 1), Cells(lig, 5))
    nbre = Application.CountA(plage)
    If nbre < 5 Then
        col = 256
        For cptr = 1 To 5 - nbre
            col = Rows(lig).Find("", Cells(lig, col), xlValues).Column
            Cells(lig, col) = Cells(lig - 1, col)
        Next
    End If
Next
End Sub


ci joint maquette de W
https://www.cjoint.com/?ckmYsPamOe

Si vide, récupérer la ligne du dessus Excel

1 réponse

Discussions similaires

Newsletters