Annuler fusion et remplissage des cellules

[Fermé]
Signaler
-
 Gus -
Bonjour,
voilà j'ai un tableau excel destiné à l'impression, il y'a dedans beaucoup de cellules fusionnées.

je veux exploiter ce tableau dans une base de données, je voudrais annuler la fusion des cellule et les remplir avec la valeur qui figure dans la cellule fusionnée, donc avoir la même valeur qui se répéte dans plusieurs cellules au lieu d'une seule cellule fusionnée.

j'espère que c'est assez claire
merci







3 réponses

Messages postés
24201
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2021
6 936
Bonsoir,

Avec une petite macro vba c'est faisable :
Sub défusionner()
    ' supprime toutes les fusions de cellules
    ' toutes les cellules d'une fusion reçoivent la valeur ou la formule d'origine
    Dim c1 As Range, c2 As Range, plage As Range, valeur As Variant
    Application.ScreenUpdating = False
    For Each c1 In ActiveSheet.UsedRange
        If c1.MergeCells Then
            valeur = c1.Formula
            Set plage = c1.MergeArea
            plage.UnMerge
            For Each c2 In plage
                c2.Formula = valeur
            Next c2
        End If
    Next c1
    Application.ScreenUpdating = True
End Sub

La macro traite la feuille active.
Fichier exemple : http://www.cijoint.fr/cjlink.php?file=cj201104/cij0buJaLN.xls

eric
11
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41713 internautes nous ont dit merci ce mois-ci

un exemple
http://www.cijoint.fr/cjlink.php?file=cj201104/cijVwXy79O.xls
Messages postés
24201
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2021
6 936
Ah, ok
Sub recopie() 
    Dim c As Range, v As Variant 
    For Each c In Selection 
        If c.Value = "" Then c = v Else v = c 
    Next c 
End Sub

Dans ton exemple tu sélectionne A2:A11 et tu lances la macro.

eric
ça marche à merveille!
merci eric, tu es mon "ange informaticien"
bonne continuation
magnifique je vous remercie
:-(
merci qd mme
Messages postés
54877
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 octobre 2021
16 775
Très claire.

Tu n'as plus qu'à prendre ton courage à 2 mains et te mettre au travail !

Si tu savais que tu allais devoir gérer une base de données, il ne fallait évidemment pas fusionner de cellules.

Si c'est quelqu'un d'autre qui t'a refilé le bébé, préviens-le qu'il lui faudra de la patience, avant que tu ne remettes tout ça comme il faut, une cellule après l'autre ...