Remplir des cellules

[spitfire378]

Bonjour comme présenté dans mon document ci joint, j'ai deux colonnes, la première partiellement remplie et la seconde parfaitement remplie... Ce que j'aimerai c'est pouvoir à l'aide d'un code en vba remplir dans la premiere colonne de 12 a 13 par des 12, de 13 a 14 par des 13 de 14 a 16 par des 14 et enfin plus compliqué remplir les cellules vides sous la référence 16 par des 16 jusqu'a la dernière valeur de la colonne B. J'espèe avoir été claire un minimum . Merci de votre aide

 

[Cousinhub]

Re : Remplir des cellules

Bonjour,

essaie avec ce code :

Sub remplir()
    With Range("A1:A" & [B65000].End(xlUp).Row)
        .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[spitfire378]

Re : Remplir des cellules

C'est nickel, merci bhbh