copier/coller avec cellule fusionnée

[nicolas]

Bonjour le forum,

Je suis sur un problème auquel je n'ai pas trouvé de réponse dans l'historique.
Je souhaite copier/coller des lignes précises d'un classeur à un autre (par exemple celle ou on a 2 dans la colonne B dans l'exemple) en gardant la valeur de la cellule fusionnée.
Avec mon code tout bête dans mon programme :

WSsource.rows(i).copy destination:=WScible.rows("A" & j)

je récupère une ligne ou la première cellule n'est pas renseignée (ce qui est logique étant donné que le numéro de ligne correspondant à la cellule fusionnée n'est pas celui de la ligne que je souhaite copier).
Avez vous une solution??
En vous remerciant par avance...
a plus
koko

 

[chris]

Bonjour
Ne jamais fusionner de cellules : ça met le b... disons bazar.
Utiliser Centrer sur plusieurs colonnes.
Chris

 

[nicolas]

Bonjour Chris,

Je crois que dans mon cas, c'est centrer sur plusieurs lignes non?
Je vais essayer de cette manière, on verra bien.
Merci de ta réponse,
a plus
koko

 

[nicolas]

Bon ben apparemment ca existe pas le centrage sur plusieurs lignes.
Mon problème c'est que je peux pas modifier les fichiers (il restera toujours avec les cellules fusionnées) donc à priori, récupérer la valeur qui est dans la cellule fusionnée pour chaque ligne correspondant à la cellule fusionnée c'est pas possible???

 

[yeahou]

Salut Nicolas, Chris, le forum

ce petit programme fonctionnera si tes cellules fusionnées sont toujours au nombre de trois

Cordialement, A+

 

[Mytå]

Salut Nicolas, Chris, Yeahou et le Forum

Regarde si tu peux adapter cette petite macro a ton application

Sub Copier_Special()

Dim Fusion As String
Dim Nbre As Byte

If ActiveCell.MergeCells = True Then

With ActiveCell
Fusion = .MergeArea.Address
Nbre = .MergeArea.Count
.MergeCells = False
.AutoFill Destination:=Range(Cells(.Row, .Column), Cells(.Row + Nbre - 1, .Column))
End With

Else

Fusion = ActiveCell.Address

End If

'Inserer la macro copier/coller ici

Application.DisplayAlerts = False
Range(Fusion).Merge
Application.DisplayAlerts = True

End Sub


Mytå

 

[yeahou]

Re Salut tout le monde

utile le .MergeArea, Mytå.
Je ne connaissais pas
merci

A+

 

[nicolas]

Re tlm et merci pour vos réponses.

Face à ce problème de cellules fusionnées, je viens de prendre une grave décision, j'abandonne les cellules fusionnées!
Le fichier sera moins beau mais la macro sera plus efficace.
Encore merci!