XL 2016 Copier coller format : probleme cellule fusionnée

[nicroq]

Bonjour à tous,

Un probleme s'oppose à moi pour réaliser un copier coller (pasteformat) en VBA d'une ligne entière dans une feuille ayant des cellules fusionnée dans une colonne.

Existe t il une solution pour contourner le probleme par exemple détécter si il y a une cellule fusionnée sur lepasteformat, puis défusionner et refusionner ensuite au meme endroit avec une ligne en plus du coup?

Merci pour votre aide.
Je mets en PJ un fichier très simplifié avec l'hypothèse que je souhaiterai copier la ligne 3 de la sheet "feuil copie" vers la feuille sheet "feuille paste" en ligne 8 en pasteformat.

Bonne journée

 

[sylvanu]

Bonjour Nicroq,
Les cellules fusionnées c'est vraiment la peste. Ça créé plein de soucis en VBA.
Deux solutions radicales :
- Supprimer les cellules fusionnées
- Recopier la ligne cellule par cellule.

 

[nicroq]

Bonjour sylvanu!
Cest clair que les cellules fusionnées c est vraiment la peste ca complique tt...
du coup vous auriez une solution pour detecter les cellules fusionnées et le remttre en place comme dan l exemple du fichier joint?

en vous remerciant
Cordialement
Roques Nicolas

 

[sylvanu]

Bonjour,
J'ai trouvé çà :

If c.MergeCells Then MsgBox c.MergeArea.Address

Détection cellules fusionnées

Bonjour à tous, je viens encore demandé votre aide. Je voudrais détecter quelles sont les cellules fusionnées dans une colonnes sachant que je peux avoir deux séries de cellules fusionnées à la suite. Par exemple je peux avoir les cellules A1 à A5 fusionnées, puis celles de A6 à A10...

www.excel-downloads.com

ou encore :

If Cells(1,1).MergeArea.Count > 1 Then MsgBox "Fusionné" Else MsgBox "Pas fusionné"

[XL-2013] Comment savoir si une cellule est fusionnée - Macros et VBA Excel

Voilà, j'ai un petit souci avec une macro VBA, comment savoir si une cellule (ex A5) est fusionnée avec d'autre cellules (ex B5, C5,...). Cette fusion le sera qu'en ligne, aucune cellule n'est fusionnée avec

www.developpez.net

Mais ensuite il va falloir analyser combien de cellules sont fusionnées, calculer les colonnes où coller.
Bref l'usine.
D'où ma suggestion de supprimer les cellules fusionnées.

 

[job75]

Bonjour nicroq, sylvanu,

Je m'en suis toujours sorti avec les cellules fusionnées, voyez le fichier joint et cette macro :

Sub CopierColler()
Dim Source As Range, Dest As Range, memsel, rc&, cc%, i&, j%
Set Source = Sheets("feuil copie").[3:3]
Set Dest = Sheets("feuille paste ").[8:8]
Application.ScreenUpdating = False
Set memsel = Selection
With Intersect(Dest, Dest.Parent.UsedRange)
    rc = .Rows.Count: cc = .Columns.Count
    For i = 1 To rc
        For j = 1 To cc
            If Not .Cells(i, j).MergeCells Then
                Source.Cells(i, j).Copy
                .Cells(i, j).PasteSpecial xlPasteFormats
            End If
    Next j, i
End With
Application.CutCopyMode = 0
memsel.Select
End Sub

PS : il y a un espace inutile dans le nom "feuille paste ".

A+

 

[job75]

Je corrige en ne collant qu'à partir de la colonne C.

Fichier (1 bis) avec des plages de plusieurs lignes.

 

[nicroq]

Bonjour merci c est top

 

[nicroq]

est il possible de savoir rapidement si sur la ligne choisie se trouve une cellule fusionnée?
sinon je me reservirai de votre solution Job75 en checkant cellule par cellule

 

[sylvanu]

Bien le bonjour,
En PJ deux essais :
- par macro
- par fonction perso
Evidemment à personnaliser avec votre contexte.

 

[nicroq]

c est genial !!
merci à vous tous
bonne fin de journée

 

[thebestgamer]

c vraimeent la pesteuuh

 

[thebestgamer]

c vraimeent la pesteuuh