XL 2016 convertir cellules fusionnées

fanfan38

XLDnaute Barbatruc

• 27 Juin 2023

• #2

Bonjour et bienvenu sur le forum...
Il suffit de cliquer sur le triangle au dessus du 1 et à gauche du A (pour selectionner toutes les cellules
et de cliquer sur fusionner et centrer...

A+ François

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 27 Juin 2023

• #3

Avec la macro ci joint les cellules ne sont plus fusionnées et sont remplies

A+ François

 

Pièces jointes

• extrait.xlsm

  17.5 KB · Affichages: 8

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 27 Juin 2023

• #4

Bonjour,
Pour le coup (tellement rare que je l'utilise), PowerQuery semble tout adapté car il existe une fonctionnalité "remplir" après avoir défusionné toutes les cellules en 2 clics : sélectionner tout l'onglet, puis annuler fusion

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 27 Juin 2023

• #5

nat54 à dit:

Bonjour,
Pour le coup (tellement rare que je l'utilise), PowerQuery semble tout adapté car il existe une fonctionnalité "remplir" après avoir défusionné toutes les cellules en 2 clics : sélectionner tout l'onglet, puis annuler fusion

Cliquez pour agrandir...

Bonjour Nat,
J'y avais également pensé, mais comme certaines cellules sont vides, comment différencier les cellules vides avant dé-fusion des cellules vides d'origine?
Car la fonction "Remplir vers le bas" ne va pas faire la différence...
A moins de remplacer toutes les cellules vides par un caractère quelconque AVANT de charger le Tableau (un caractère bien distinctif, et avec une probabilité d'utilisation tendant vers 0), puis de remplacer ce caractère avant de restituer la requête...
Bref, faisable, mais il faudra auparavant effectuer cette manipulation de remplacement...
Bonne journée
PS, je ne peux que t'encourager à l'utiliser plus souvent

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 27 Juin 2023

• #6

Re-,
Un autre code VBA pour traiter les cellules fusionnées :

VB:

Sub de_fusion()
Dim Cel As Range, Plg As Range
For Each Cel In Range("A1:H" & Cells(Rows.Count, "A").End(xlUp).Row)
    If Cel.MergeCells Then
        Set Plg = Cel.MergeArea
        Cel.UnMerge
        Plg.Value = Cel.Value
    End If
Next Cel
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

philsogood

XLDnaute Junior

• 29 Juin 2023

• #7

hello
comme le dit @Cousinhub il y a en effet des cellules vides (sinon j'aurai pu m'en débrouiller)
j'ai "essayé" de lancer ton script mais rien ne amrche?!? après c'est peut être moi (et mes doigts) qui déconne
@fanfan38 merci pour le ficheir, je vais regarder ça de plus, près, voir comment je peux extraire le truc et l'injecter dans mon fichier (le vrai fichier à 60 colonnes et plus de 2000 lignes)
pour la petite info, je ne suis pas nouveau sur ce forum, je le connais depuis au moins 10 ans je pense mais je ne viens pas souvent : XLS n'est pas mon coeur de métier
Phil

 

Vote positif 0 Vote négatif

philsogood

XLDnaute Junior

• 29 Juin 2023

• #8

Edit : j'en ai profité pour mettre un avatar...

 

Vote positif 0 Vote négatif

philsogood

XLDnaute Junior

• 29 Juin 2023

• #9

j'ai réussi!! grosse victoire, ton code marche très bien @fanfan38 merci =)

 

Vote positif 0 Vote négatif

philsogood

XLDnaute Junior

• 29 Juin 2023

• #10

@fanfan38 c'est pas si facile, pourrais-tu me contacter en MP, je n'y arrive pas de mon coté, merci =)

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 29 Juin 2023

• #11

Bonjour,

philsogood à dit:

j'ai "essayé" de lancer ton script mais rien ne amrche?!? après c'est peut être moi (et mes doigts) qui déconne

Cliquez pour agrandir...

Je pencherais vers la seconde option...
Regarde le fichier joint.
Bonne journée

 

Pièces jointes

• De_Fusion.xlsm

  16.2 KB · Affichages: 3

Vote positif 0 Vote négatif

philsogood

XLDnaute Junior

• 29 Juin 2023

• #12

@fanfan38 j'ai envoyé mon message sur ce qui semble être mon mur!!

 

Vote positif 0 Vote négatif