Aide sur code vba copier/coller

Version imprimable

1 pièce(s) jointe(s)

Bonsoir à tous

Je suis actuellement entrain de travailler sur un projet
mon soucis est que j'ai des données qui proviennent d'une première feuille et que je souhaiterais les coller sur une seconde. Après avoir regardé sur certains message, il s'avererait que mon souci provienne des cellules fusionnées... Y a t'il un moyen de détourner ce problème ?

Merci de votre aide

Voici mon code, ainsi une copie du fichier
Code:

1 2 3 4 5 Sub Copier() Sheets("Feuil1").Range("F4", Range("F4").End(xlDown)).Copy Sheets("Feuil2").Range("C4", Range("F4").End(xlDown)).PasteSpecial Paste:=xlPasteFormats Sheets("Feuil2").Range("C4", Range("F4").End(xlDown)).PasteSpecial Paste:=xlPasteValues End Sub

Bonjour
La formulation est incorrecte, essayer avec ceci. Mais je doute que le résultat obtenu soit celui qui est attendu.

Code:

1
2
3
4
5
Sub Copier()
Sheets("Feuil1").Range("F4", Sheets("feuil1").Range("F4").End(xlDown)).Copy
Sheets("Feuil2").Range("C4", Sheets("Feuil2").Range("F4").End(xlDown)).PasteSpecial Paste:=xlPasteFormats
Sheets("Feuil2").Range("C4", Sheets("Feuil2").Range("F4").End(xlDown)).PasteSpecial Paste:=xlPasteValues
End Sub

05/03/2013, 21h36
youlig

Bonsoir Keygen08,

Merci pour ta réponse mais effectivement cela ne marche pas, le code me défusionne les cellules fusionnées de la feuille 2 mais par contre me colle bien les cellules en C4 jusqu'à C9 mais me rajoute à des cases encadrées jusqu'à l'infini ???

Hello,

Ton souci, comme tu le dis, c'est que tu ne peux pas copier/coller tes cellules dans des cellules fusionnées; Parce qu'Excel le refuse.
Pour contourner ce problème, tu peux opter pour un copier/coller "pas à pas", c'est-à-dire cellule par cellule, l'une après l'autre, en copiant d'abord le contenu puis le format.

Voici un début de réponse :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Copier2() Plage = Sheets("Feuil1").Range("F4", Sheets("Feuil1").Range("F4").End(xlDown)) Sheets("Feuil2").Range("C4").Select For Each Cellule In Plage ActiveCell = Cellule ' ' ' ' ActiveCell.Offset(1, 0).Select Next End Sub

05/03/2013, 22h28
youlig

Bonsoir Kitty,

Alors là, je sèche ... Je ne vois pas comment compléter ce code... par une boucle ?
06/03/2013, 00h43
keygen08

Pourquoi tu n'essaie pas le code de Kitty au lieu de dire des sottises.
06/03/2013, 08h52
Kitty01560

Dans la boucle "For ... Next", tu insères autant de lignes correspondants aux informations que tu souhaites dupliquer. Dans mon exemple, je ne copie que le contenu de la cellule d'origine.
Pour dupliquer également le format numérique, tu insères la ligne :

Code:

ActiveCell.NumberFormat = Cellule.NumberFormat

et ainsi de suite pour toutes les infos à dupliquer.
06/03/2013, 21h38
youlig

Bonsoir Kitty,

Merci pour tes réponses.

Ton code fonctionne bien lorsque je suis positionné sur la feuille 2 et que j'active la macro à partir de visual basic.
Mais dés que je suis positionné sur la feuille 1 et que j'active la macro soit par visual basic, soit par bouton, j'ai un défaut "erreur 1004 :la méthode select de la classe Range a échoué".
Peux tu me dire d'où cela peut provenir ?

Merci d'avance

Hello youlig,

Si tu positionnes ta macro dans la feuille 1, le code associé est :

Code:

1
2
3
4
5
6
7
 
Sub Copier2()
    Plage = Range("F4", Range("F4").End(xlDown))
    Sheets("Feuil2").Range("C4").Select
        '
        '
End Sub

Si tu positionnes ta macro dans la feuille 2 ...:

Code:

1
2
3
4
5
6
7
 
Sub Copier2()
    Plage = Sheets("Feuil1").Range("F4", Sheets("Feuil1").Range("F4").End(xlDown))
    Range("C4").Select
        '
        '
End Sub

Et si tu positionnes ta macro dans un module ...:

Code:

1
2
3
4
5
6
7
8
 
Sub Copier2()
    Plage = Sheets("Feuil1").Range("F4", Sheets("Feuil1").Range("F4").End(xlDown))
    Sheets("Feuil2").Select
    Range("C4").Select
        '
        '
End Sub

07/03/2013, 11h28
youlig

Merci beaucoup Kitty, Ca marche !!! Je vais pouvoir avancer sur la suite...