Recopie en colonne

[mickaelB]

Bonjour,
quelqu'un pourrait-il m'aider ?
je souhaite créer une macro qui complète ma colonne A en fonction de la colonne B :
(Ignorer les ...... c'est juste pour visualiser les colonnes )
Avant:
Colonne A...............Colonne B
Fournisseur A
............................105212
............................141546
............................147113
Fournisseur B
............................370740
............................480304
............................510302
............................510304


Après exécution macro :
Colonne A...............Colonne B
Fournisseur A
Fournisseur A..........105200
Fournisseur A..........141111
Fournisseur A..........147113
Fournisseur B
Fournisseur B..........370740
Fournisseur B..........480304
Fournisseur B..........510302
Fournisseur B..........510304

et que la macro s'arrête lorsque colonne A et B sont vides
C'est tout simple mais j'ai oublié comment faire
Merci d'avance.

 

[pierrejean]

Re : Recopie en colonne

bonjour mickael

teste

For n = 2 To Range("B65536").End(xlUp).Row
If Range("B" & n) <> "" And Range("A" & n) = "" Then Range("A" & n) = Range("A" & n - 1)
Next n

 

[mickaelB]

Re : Recopie en colonne

Merci beaucoup
c'est exactement ce que je voulais !