Formule .Cell.UnMerge

[maval]

Bonjour,

Je suis à la recherche d'une modification d'un code.

J'ai code comme ci-dessous pour copier une cellule vers une autre feuille.
La feuille de réception "Feuil1" à 4 cellules fusionnés "E19:H19", j'ai comme message d'erreur "400"

Sub copie()

Sheets("Feuil2").Cells(2, 19).Copy Sheets("Feuil1").Range("E19:H").Cell.UnMerge
Sheets("Feuil2").Cells(3, 21).Copy Sheets("Feuil1").Cells(18, 2)
End Sub

Je vous remercie de votre aide et vous souhaite bonne journée

 

[Paritec]

Re : Formule .Cell.UnMerge

Bonjour maval le forum
enfin deux réponses car pas compris comme il faut,
1)la première défusionnes la cellule et tu colles
2)la deuxième tu colles dans la cellule Fusionnée
Une cellule fusionnée n'a qu'une adresse celle de la cellule la plus en haut et à Gauche donc A2:B12 fusionnée = A2
a+
papou😱

Sheets("Feuil1").Range("E19").unmerge
Sheets("Feuil2").Cells(2, 19).Copy Sheets("Feuil1").Range("E19")

Sheets("Feuil2").Cells(2, 19).Copy Sheets("Feuil1").Range("E19")

 

[maval]

Re : Formule .Cell.UnMerge

Bonjour Papou,

Et merci de la réponse Alors le problème est que la feuille de destination "Feuil1" elle a les cellules fusionnées "E19:EH19" et je voudrais les garder comme sa!!!!

Bonne journée

 

[Paritec]

Re : Formule .Cell.UnMerge

Re Maval
alors c'est simple
a+
Papou😱

Sheets("Feuil2").Cells(2, 19).Copy Sheets("Feuil1").Range("E19")

 

[maval]

Re : Formule .Cell.UnMerge

Re

J'ai un message d'erreur "400" ?
@+

 

[Paritec]

Re : Formule .Cell.UnMerge

Re Maval le forum
ta feuil1 est protégée???
a+
papou😱

 

[maval]

Re : Formule .Cell.UnMerge

Re,

Non pas du tous.
@+

 

[maval]

Re : Formule .Cell.UnMerge

Re,

Papou tu est partie ??

@+

 

[Paritec]

Re : Formule .Cell.UnMerge

Re Bonjour maval
bon alors tu mets cela et c'est plus simple
a+
papou😱

Sub copîer()
Sheets("Feuil1").Range("E19") = Sheets("Feuil2").Cells(2, 19)
End Sub

 

[maval]

Re : Formule .Cell.UnMerge

Re,

Ok Merci Bonne soirée

@+