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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #25002022
Bonsoir,
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
Jacky
Le #25002092
Ou encore..
'---------------------
'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"
Bonsoir,
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

JP
Le #25002232
Bonjour 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
JP
Le #25002852
Le jeudi 29 novembre 2012 07:31:26 UTC+1, JP a écrit :
Bonjour 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
Publicité
Poster une réponse
Anonyme