XL 2016 Copier coller format : probleme cellule fusionnée

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Juin 2020

• #2

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.

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 20 Juin 2020

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 20 Juin 2020

• #4

Bonjour,
J'ai trouvé çà :

Code:

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 :

VB:

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juin 2020

• #5

Bonjour nicroq, sylvanu,

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

VB:

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+

 

Pièces jointes

• test copie colle cellule fusionnée(1).xlsm

  18.7 KB · Affichages: 25

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Juin 2020

• #6

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

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

 

Pièces jointes

• test copie colle cellule fusionnée(1 bis).xlsm

  19.9 KB · Affichages: 20

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 23 Juin 2020

• #7

Bonjour merci c est top

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 23 Juin 2020

• #8

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Juin 2020

• #9

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

 

Pièces jointes

• Classeur1.xlsm

  20.5 KB · Affichages: 37

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 23 Juin 2020

• #10

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

 

Vote positif 0 Vote négatif

T

thebestgamer

XLDnaute Nouveau

• 3 Mai 2021

• #11

c vraimeent la pesteuuh

 

Vote positif 0 Vote négatif

T

thebestgamer

XLDnaute Nouveau

• 3 Mai 2021

• #12

c vraimeent la pesteuuh

 

Vote positif 0 Vote négatif