Macro information

[SRBIJA]

Bonjour,

J'ai ce code suivant :


Sub référence_dans_onglet_correspondant()

For n = 15 To ActiveSheet.Range("C65536").End(xlUp).Row
feuil = Range("C" & n).Value
derlin = Sheets(feuil).Range("A65536").End(xlUp).Row + 1
ActiveSheet.Range("A" & n & ":C" & n).Copy Destination:=Sheets(feuil).Cells(derlin, 1)
Next n
End Sub


Ce que je voudrais faire c'est que lors des copies dans les feuilles de destination correpondante, le format (mise en page) soit supprimé

Merci d'avance pour vos réponses.

 

[job75]

Re : Macro information

Bonjour,
Essayez la méthode PasteSpecial. A+

 

[SRBIJA]

Re : Macro information

Non ça ne marche pas cela.

Quelq'un aurait t-il une autre suggestion.

 

[cbea]

Re : Macro information

Bonjour SRBIJA, job75,

Pourrais-tu joindre un extrait du fichier avec un exemple de la solution souhaitée ?

Merci