Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 VBA Fusion de cellules

tall56

XLDnaute Nouveau
Bonjour,
j'aimerai faire un fichier excel avec dans un tableau divers données type BDD mais j'aimerai également pour facilité la lecture de l'utilisateur et donc avec 2 macro et 2 bouton.
En sélectionnant les colonnes ou non pouvoir fusionner les valeurs en double qui sont proches.
et le deuxième bouton pour défusionner tout pour pouvoir faire des modifs.


J'ai essayé différentes macro trouvé sur un internet mais rien ne fonctionne.

Si un connaisseur en VBA pouvait m'aider.
Merci.
 

Pièces jointes

  • test.xlsm
    23.3 KB · Affichages: 4

chris

XLDnaute Barbatruc
Bonjour
la fusion de cellules est une plaie qui limite l'utilisation d'Excel (difficulté à sélectionner, copier, trier, filtrer...)

Il est conseillé de masquer la répétition des valeurs par MFC, ce qui apporte le même confort de lecture sans les inconvénients de la fusion.

ou en colorant en + en blanc
 

job75

XLDnaute Barbatruc
Bonjour tall56, chris,

La fusion de cellules ne pose pas de vrais problèmes mais le tableau ne doit pas être structuré.

Voyez le fichier joint et cette macro dans le code de la feuille :
VB:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
If Target.MergeCells Then
    Cancel = True
    Set r = Target(1).MergeArea
    Target.UnMerge 'défusionne
    r = Target(1)
    r.Borders.Weight = xlThin 'bordures (facultatives)
    r(1).Select
Else
    Application.DisplayAlerts = False
    Set r = Target(1)
    While r(2) <> "" And r(2) = Target(1) And Not r(2).MergeCells
        Cancel = True
        Set r = r(2)
    Wend
    If Cancel Then Range(Target, r).Select: Selection.Merge 'fusionne
End If
End Sub
Le double-clic recherche les cellules identiques sous la cellule cliquée et les fusionne.

Le double-clic sur une cellule fusionnée la défusionne.

A+
 

Pièces jointes

  • test.xlsm
    18.9 KB · Affichages: 2

chris

XLDnaute Barbatruc
RE

Tout dépend de ce que qu'on appelle de vrais problèmes...

J'ai passé un trajet entier de train (45mn) debout au-dessus d'une personne qui à passé tout ce temps à défusionner, insérer une ligne, refusionner n fois sur son tableau... et n'avais manifestement pas fini à l'arrivée... que de temps perdu inutilement...

Perdre tous les avantages des tableaux structurés, ne pouvoir ni trier ni filtrer sans passer par du code...
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…