recopie de cellules

Bonsoir
je voudrais par macro recopier les infos de la colonne A et B dans les
cellules vides en dessous,
idem pour l'article 2 et ainsi de suite jusqu'a la fin.
le problème c'est que le nombre de lignes entre chaque article n'est pas le
même.

merci de votre aide



colonne A colonne B Colonne C

article 1 A 4
5
7
4
3
6
7
article2 B 4
5
7
4
3
6
7

Salut,

La macro suivante parcourt les cellules jusqu'au bas du tableau en
colonnes A à C et remplit chaque cellule vide par la valeur de la
cellule du dessus :

Sub Completer()
Dim l As Integer, c As Integer
l = 2
While Not (IsEmpty(Cells(l, 1)) And IsEmpty(Cells(l, 2)) And _
IsEmpty(Cells(l, 3)))
For c = 1 To 3
If IsEmpty(Cells(l, c)) Then Cells(l, c) = Cells(l - 1, c)
Next
l = l + 1
Wend
End Sub


A+
Nicolas B.

Bonsoir
je voudrais par macro recopier les infos de la colonne A et B dans les
cellules vides en dessous,
idem pour l'article 2 et ainsi de suite jusqu'a la fin.
le problème c'est que le nombre de lignes entre chaque article n'est pas
le

même.

merci de votre aide



colonne A colonne B Colonne C

article 1 A 4
5
7
4
3
6
7
article2 B 4
5
7
4
3
6
7