tri par couleur

Papou-net

XLDnaute Barbatruc

• 24 Mai 2012

• #2

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.

 

Pièces jointes

• Copie 01 de projet PRCORPA.xls

  104 KB · Affichages: 43

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 24 Mai 2012

• #3

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 24 Mai 2012

• #4

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

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 24 Mai 2012

• #5

Re : tri par couleur

C@thy à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 24 Mai 2012

• #6

Re : tri par couleur

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

Biz

C@thy

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 24 Mai 2012

• #7

Re : tri par couleur

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

Corrige comme ceci :

Code:

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.

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 24 Mai 2012

• #8

Re : tri par couleur

Merci Papou!!!🙂🙂🙂

C'est SUPER!!

Bises

C@thy

 

Vote positif 0 Vote négatif