J'ai une partie de macro qui je pense peut =EAtre raccourcie d'une part et =
d'autre part am=E9lior=E9e car sur la plage que je copie, j'ai des cellules=
format=E9es en liste d=E9rouante mais aussi avec des bordures.
Comment importer sans le formatage des cellules?
Le code concern=E9 est:
If cl =3D Sheets("EqPeda").Cells(1, i) Then
col =3D Columns(i).Column
'Ecriture de l'=E9quipe p=E9dagogique colonne F
=20
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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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" a écrit dans le message de news:
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
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" <jthillard@gmail.com> a écrit dans le message de news:
050308bd-5d1b-4111-9674-bd3a2d80be7a@googlegroups.com...
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
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" a écrit dans le message de news:
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
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" a écrit dans le message de news: k967j4$2am$
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" a écrit dans le message de news:
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
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" <Dupond@marcel.fr> a écrit dans le message de news: k967j4$2am$1@speranza.aioe.org...
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" <jthillard@gmail.com> a écrit dans le message de news:
050308bd-5d1b-4111-9674-bd3a2d80be7a@googlegroups.com...
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
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" a écrit dans le message de news: k967j4$2am$
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" a écrit dans le message de news:
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
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
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.
