Trie et fusion de cellules

cylia2015 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention   -  
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   -

Bonjour,

j'aimerais automatiser à l'aide de vba certaines tâches sur un tableau. , je veux trier de manière décroissante en fonction de la colonne F, et dans la colonne G, je veux fusionner les cellules identiques.

Merci d'avance

https://www.cjoint.com/c/NAihm3Dj3wC
Windows / Chrome 120.0.0.0

6 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

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

0
cylia2015 Messages postés 53 Date d'inscription   Statut Membre Dernière intervention  
 

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

0
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

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


0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 584
 

bonjour,

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

0
bazfile Messages postés 58612 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   19 808
 

Elle a même été posée trois fois les doublons ont été supprimés.

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
0
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Bonjour ccm81,

Petite remarque, c'est bien la macro pour fusionner, cependant lors du prochain tri votre remarque initial (par contre, fusion et tri ne font pas bon ménage, une fois les cellules fusionnées, tu ne pourra plus trier) prend tous son sens....

Peut-être pensée de supprimer les fusions dans la macro de tri...!

Amical salut.

0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 

Salut LePingou

Bonne remarque

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

Cdlmnt

0
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Merci c'est super.

Amical salut

0