Trie et fusion de cellules

Bonjour

Pour trier selon la colonne choisie

Option Explicit

Const lideb = 1
Const codeb = 1

Sub trier()
Dim lifin As Long, cofin As Long, plage As Range
Dim cotri As String
cotri = InputBox("colonne clé (exemple F) ", "F")
With ActiveSheet
  cofin = .Cells(lideb, Columns.Count).End(xlToLeft).Column
  lifin = lideb
  While .Cells(lifin + 1, codeb).Value <> "Total général"
    lifin = lifin + 1
  Wend
  Set plage = .Range(.Cells(lideb, codeb), .Cells(lifin, cofin))
  plage.Select
  Selection.Sort Key1:=.Range(cotri & lideb + 1), Order1:=xlDescending, Header:=xlGuess, Orientation:=xlTopToBottom
  .Range("A1").Select
End With
End Sub

par contre, fusion et tri ne font pas bon ménage, une fois les cellules fusionnées, tu ne pourra plus trier

Cdlmnt

je veux fusionner d'une façon que les groupe ne se répètent pas dans la colonne G.merci

Bonjour,

Comme la précisé ccm81 (salutations) si vous fusionnez de cellules alors vous ne pourrai plus trier.

Dans ce cas pourquoi ne pas simplement colorer les cellules identiques... ?

Fichier exemple. https://www.cjoint.com/c/NAipeL1iQ2Z

bonjour,

pourquoi poser deux fois la même question?
https://forums.commentcamarche.net/forum/affich-37976551-code-vba-pour-trie-et-fusion-des-cellules

Au cas où

https://www.cjoint.com/c/NAiprBEvySB

Cdlmnt

Salut LePingou

Bonne remarque

https://www.cjoint.com/c/NAkjXJ4qcoB

Cdlmnt