copie de ligne

[setauh]

Bonjour,

Voilà j'ai cette macro qui selectionne 4 lignes d'une hauteur de ligne differente puis les copies en dessous
sur 4 nouvelles lignes malheureusement il ne garde pas la hauteur de ligne
comment puis je faire ?

Sub Macro1()
Range("A10").Select
While ActiveCell.Offset(4, 0).Value <> ""
ActiveCell.Offset(4, 0).Select
Wend
ActiveCell.Range("A1:z4").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:z8"), Type:=xlFillDefault
End Sub


Merci

 

[camarchepas]

Re : copie de ligne

Bonjour,

Je viens d'essayer sur une feuille bricolée vite fait pour test, cela fonctionne bien avec ta macro, donc le soucis vient soit des données où de la structure de ta feuille,
Peux tu déconfidentialiser la feuille et nous la mettre en pièce jointe ?

Sinon , cela va être de la boule de cristal

 

[setauh]

Re : copie de ligne

Re,

Voilà le fichier

 

[setauh]

Re : copie de ligne

desole j'ai oublié la pj