Ne pas copier le format
Le
JP

Re bonsoir,
J'ai une partie de macro qui je pense peut être raccourcie d'une part et =
d'autre part améliorée car sur la plage que je copie, j'ai des cellules=
formatées en liste dérouante mais aussi avec des bordures.
Comment importer sans le formatage des cellules?
Le code concerné est:
If cl = Sheets("EqPeda").Cells(1, i) Then
col = Columns(i).Column
'Ecriture de l'équipe pédagogique colonne F
Sheets("Eqpeda").Select
Range(Cells(2, col), Cells(8, col)).Copy
Sheets("Nov-Fev").Select
Range("F1:F6").Select
ActiveSheet.Paste
Sheets("Eqpeda").Select
Range(Cells(9, col), Cells(15, col)).Copy
Sheets("Nov-Fev").Select
Range("I1:I6").Select
Selection.PasteSpecial
End If
Merci
JP
J'ai une partie de macro qui je pense peut être raccourcie d'une part et =
d'autre part améliorée car sur la plage que je copie, j'ai des cellules=
formatées en liste dérouante mais aussi avec des bordures.
Comment importer sans le formatage des cellules?
Le code concerné est:
If cl = Sheets("EqPeda").Cells(1, i) Then
col = Columns(i).Column
'Ecriture de l'équipe pédagogique colonne F
Sheets("Eqpeda").Select
Range(Cells(2, col), Cells(8, col)).Copy
Sheets("Nov-Fev").Select
Range("F1:F6").Select
ActiveSheet.Paste
Sheets("Eqpeda").Select
Range(Cells(9, col), Cells(15, col)).Copy
Sheets("Nov-Fev").Select
Range("I1:I6").Select
Selection.PasteSpecial
End If
Merci
JP
Comment importer sans le formatage des cellules?
Quelque chose comme ceci
'----------------
'Ecriture de l'équipe pédagogique colonne F
Range(Sheets("Eqpeda").Cells(2, col), Sheets("Eqpeda").Cells(8, col)).Copy
Sheets("Nov-Fev").[F1].PasteSpecial Paste:=xlPasteValues
Range(Sheets("Eqpeda").Cells(9, col), Sheets("Eqpeda").Cells(15, col)).Copy
Sheets("Nov-Fev").[I1].PasteSpecial Paste:=xlPasteValues
'-----------------
Non testé
--
Salutations
JJ
"JP"
Re bonsoir,
J'ai une partie de macro qui je pense peut être raccourcie d'une part et d'autre part améliorée car sur la
plage que je copie, j'ai des cellules formatées en liste dérouante mais aussi avec des bordures.
Comment importer sans le formatage des cellules?
Le code concerné est:
If cl = Sheets("EqPeda").Cells(1, i) Then
col = Columns(i).Column
'Ecriture de l'équipe pédagogique colonne F
Sheets("Eqpeda").Select
Range(Cells(2, col), Cells(8, col)).Copy
Sheets("Nov-Fev").Select
Range("F1:F6").Select
ActiveSheet.Paste
Sheets("Eqpeda").Select
Range(Cells(9, col), Cells(15, col)).Copy
Sheets("Nov-Fev").Select
Range("I1:I6").Select
Selection.PasteSpecial
End If
Merci
JP
'---------------------
'Ecriture de l'équipe pédagogique colonne F
With Sheets("Eqpeda")
Range(.Cells(2, col), .Cells(8, col)).Copy
Sheets("Nov-Fev").[F1].PasteSpecial Paste:=xlPasteValues
Range(.Cells(9, col), .Cells(15, col)).Copy
Sheets("Nov-Fev").[I1].PasteSpecial Paste:=xlPasteValues
End With
'-----------------------
--
Salutations
JJ
"Jacky"
Je n'ai aucun doute sur la methode que tu proposes.
Je teste dans la journee et je te donne le résultat des courses.
A plus
JP
Jacky, je confirme le fonctionnement des lignes de codes.
Merci
JP