remplir case vide

[mumu]

Bonjour,

J'ai fais le tour du forum sans vraiment trouver mon bonheur.....
Je voudrais pourvoir combler les vides d'une colonne.... (fichier en exemple).
En fait, je voudrais qu'à chaque fois que dans la colonne A il y a une valeur la copier dans toutes les cellules vides qui sont en dessous jusqu'à la suivante.

J'espère que je suis claire, le mieux est de regarder l'exemple qui est très parlant.
Je pense que ce doit être simple, mais je ne maîitrise pas encore les procédures de recherche dans les cellules..... 🙁
D'avance merci !!

Mumu

 

[Pierrot93]

Re : remplir case vide

Bonjour mumu

regarde la macro ci-dessous si elle peut t'aider :

Sub test()
Dim c As Range
For Each c In Range("A2:A" & Range("B65536").End(xlUp).Row)
    If IsEmpty(c.Value) Then c.Value = c.Offset(-1, 0).Value
Next c
End Sub

bon après midi.
@+

 

[Cousinhub]

Re : remplir case vide

Bonjour, mumu

Salut Pierrot 🙂

une autre approche :

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

 

[Pierrot93]

Re : remplir case vide

Re, bonjour bhbh

bravo bhbh, joli code, juste a change le [A65000].End par [B65000].End mais tu l'as déjà fait... lol bonne fin d'après midi🙂

 

[mumu]

Re : remplir case vide

Bonjour à tous les deux,

Je suis désolée de répondre si tard, fêtes de bayonne oblige 😛
Je vous remercie pour ce code qui répond exactement à mon problème ! c'est super.

Ce site est vraiment génial !! bravo à tous les contributeurs !

@ bientôt.

Mumu