• Initiateur de la discussion Initiateur de la discussion Julien
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

Julien

Guest
Est il possible de trier une liste selon la couleur de fond?
C'est à dire mettre ensemble toutes les cellules jaunes.
MERCI
 
Salut Julien

Voila une copie de code pour trier sur les cellules A1 à A12

Sub TriCouleurs()
Dim CompteurTri As Integer, CelluleTri As Integer, PositionCellule As Integer
Dim CouleurA As Integer, CouleurB As Integer, CouleurTri As Integer
Dim FlagMut As Boolean
Range("A1:A12").Select
For CelluleTri = 1 To 12
FlagMut = False
CouleurTri = Cells(CelluleTri, 1).Interior.ColorIndex
PositionCellule = CelluleTri + 1
Do
CouleurB = Cells(PositionCellule, 1).Interior.ColorIndex
If CouleurB = CouleurTri Then
FlagMut = True
Cells(PositionCellule, 1).Interior.ColorIndex = Cells(CelluleTri + 1, 1).Interior.ColorIndex
Cells(CelluleTri + 1, 1).Interior.ColorIndex = CouleurTri
End If
PositionCellule = PositionCellule + 1
Loop While Not FlagMut And PositionCellule <= 12
Next CelluleTri
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
283
Réponses
7
Affichages
76
Réponses
7
Affichages
182
Réponses
3
Affichages
232
Réponses
7
Affichages
312
Retour