Discussion :

[youlig]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[keygen08]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ???

[Kitty01560]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[youlig]

Bonsoir Kitty,

Alors là, je sèche ... Je ne vois pas comment compléter ce code... par une boucle ?

[keygen08]

Pourquoi tu n'essaie pas le code de Kitty au lieu de dire des sottises.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.NumberFormat = Cellule.NumberFormat

et ainsi de suite pour toutes les infos à dupliquer.

[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

[Kitty01560]

Hello youlig,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[youlig]

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