Comment remplir les cellules?!!

[hasardeux]

Bonjour,

Dans une feuille Excel, j'ai 3 colonne (A, B & C par exemple) qui contient des données de la sorte:

ABC
(vide)
(vide)
(vide)
ABD
(vide)
ABG
(vide)
(vide)
(vide)
(vide)
ABK

Je voudrais remplir les cellules vides par la valeur qui existe juste en haut, MAIS jusqu'à la cellule t qui contient une valeur.

Ainsi j'aurais:
ABC
ABC
ABC
ABC
ABD
ABD
ABG
ABG
ABG
ABG
ABG
ABK

Merci infiniment

 

[@Bobby]

Cher Hasardeux

Voici un petit code

Sub blabla()

Dim x As Long 'Nombre Lignes dans ton tableau
Dim y As Long 'Premiere Ligne

x = 10
y = 1

Do While y <= x

If Cells(y, 'A') = '' Then
Cells(y, 'A') = Cells(y - 1, 'A')
End If

y = y + 1
Loop

End Sub

Bonne chance

 

[hasardeux]

est ce qu'il est possible d'utiliser un code plus général et pas limité à un nombre spécifié de lignes en utilisant::

End(xlUp)


??

En plus comment intégrer les 3 colonnes (A; B et C) et pas seulement A

Merci bcp

 

[hasardeux]

Pourriez vous me débloquer svp?

 

[hasardeux]

Any suggestion?