Recopier valeur supérieure

Bonsoir à tous,

Je fais face à un petit problème, en effet j'essaye de recopier la valeur de la ligne "maître" jusqu'à atteindre la seconde ligne "maître".

Voici ci-dessous :

Pour faire simple, j'ai une cellule en colonne A avec "MB1" puis quelques lignes dessous "MB2" puis quelques lignes dessous "MB3" etc..

Entre ces lignes, j'aimerais récupérer la ligne supérieure.

J'ai donc essayer :

Sub test()

i = 3
Do While Cells(i - 1, 1) <> "" And Cells(i + 1, 1) = ""
Cells(i, 1) = Cells(i - 1, 1)
i = i + 1
Loop

End Sub

Le résultat :

Le résultat est logique mais je n'arrive pas à trouver la bonne logique !

Merci pour votre aide !

Cordialement

Bonjour,

à tester,

Sub RemplirVide()
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
If c.Value = 0 Then c.Value = c.Offset(-1, 0).Value
Next
End Sub

C'est parfait, mais pour pousser le truc plus loin, est il-possible de mettre recopier la valeur maître jusqu'à la dernière ligne non vide de la colonne B ?

re,

oui, il n'y a qu'un chiffre à changer

Sub RemplirVide()
For Each c In Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row)
If c.Value = 0 Then c.Value = c.Offset(-1, 0).Value
Next
End Sub

Merci à toi, c'est parfait