R
Raptorzil
Guest
Bonjour a tous,
Je viens vers vous afin de que vous m'aidez a realisé une macro qui puisse me permettre d'etendre des données.
Donnée etendu en format copie de la cellule source.
Etendre tant qu'il y a des cellules vides, et une fois que la cellule pleine est rencontré faire la meme chose sur celle ci jusqu'a la prochaine pour encore faire la meme chose ^^
donc tout ca juste sur une collone.
Pour le moment j'ai ça mais c'est statique et que pour un intervalle que je connais deja. ( ensachant que el fichier source est sans doute amené a bouger..
J'ai mis en fichier piece joint un exemple.
Merci d'avance pour votre aide précieuse !
Raptorzil
Je viens vers vous afin de que vous m'aidez a realisé une macro qui puisse me permettre d'etendre des données.
Donnée etendu en format copie de la cellule source.
Etendre tant qu'il y a des cellules vides, et une fois que la cellule pleine est rencontré faire la meme chose sur celle ci jusqu'a la prochaine pour encore faire la meme chose ^^
donc tout ca juste sur une collone.
Code:
Sub ETENDRE()
'
' ETENDRE Macro
'
'
Range("A2").Select
Selection.AutoFill Destination:=Range("A2:A8"), Type:=xlFillCopy
End Sub
Pour le moment j'ai ça mais c'est statique et que pour un intervalle que je connais deja. ( ensachant que el fichier source est sans doute amené a bouger..
J'ai mis en fichier piece joint un exemple.
Merci d'avance pour votre aide précieuse !
Raptorzil