tri par couleur

[C@thy]

Bonjour le forum,

j'ai un fichier avec des colonnes de couleurs correspondant à 3 groupes,
à l'intérieur de chaque groupe couleur, je souhaiterais trier les colonnes selon leur intitulé,
et que ce tri soit pris en compte lorsque j'insère une colonne dans la couleur

Merci pour vos conseils et votre aide,

Bises

C@thy

 

[Papou-net]

Re : tri par couleur

Bonsoir C@thy,

Voici ton fichier modifié.

Dans un premier temps, les trois boutons sont opérationnels, mais je n'ai pas encore résolu l'ajout de colonnes supplémentaires.

J'ai commencé à y regarder mais je n'arrive pas, pour le moment, à éradiquer un bug. J'ai obtenu plusieurs plantages consécutifs, alors je te transmets cette version provisoire.

Je continue d'y regarder.

Amicalement.

PS : je n'ai pas commenté mon code, mais si tu as besoin de renseignements, n'hésite pas.

 

[C@thy]

Re : tri par couleur

Merci pour ton aide, papou-net, je regarde ce que je peux faire avec ce que tu m'a fourni

Bises

C@thy

 

[C@thy]

Re : tri par couleur

Eh bien, ça m'a l'air très bien tout ça,

vu qu'il y a 3 boutons on n'a qu'à cliquer à chaque fois qu'on rajoute une colonne...

Bises et merci,

C@thy

 

[Papou-net]

Re : tri par couleur

vu qu'il y a 3 boutons on n'a qu'à cliquer à chaque fois qu'on rajoute une colonne...

Re C@thy,

C'est aussi ce que je me disais : si la mise-à-jour se faisait automatiquement en ajoutant des colonnes, les 3 boutons auraient-ils encore une utilité ?

A +

Bises.

 

[C@thy]

Re : tri par couleur

par contre ce qui ne va pas c'est ça :
Key1:=Range("H8" dans les 3 cas...

Biz

C@thy

 

[Papou-net]

Re : tri par couleur

C'est un bug de mon cerveau fatigué et de mes yeux mi-clos.

Corrige comme ceci :

Sub Tri()
With Sheets("Flux 154")
  For c = 6 To 130
    If .Cells(8, c).Interior.ColorIndex = CoulFond Then
      ColDeb = c
      Exit For
    End If
  Next
  d = 1
  While .Cells(8, ColDeb).Offset(0, d).Interior.ColorIndex = CoulFond
    ColFin = .Cells(8, ColDeb).Offset(0, d).Column
    d = d + 1
  Wend
  Set Zon = .Range(.Cells(8, ColDeb), .Cells(232, ColFin))
  Zon.Sort Key1:=.Range(.Cells(8, ColDeb), .Cells(8, ColFin)), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
      DataOption1:=xlSortNormal
End With
End Sub

Bonne soirée.

Bises.

 

[C@thy]

Re : tri par couleur

Merci Papou!!!🙂🙂🙂

C'est SUPER!!

Bises

C@thy