Trie par couleur de cellule Résolu/Fermé

Question

Bonjour, 
Je possède la version 1997 d'excel. Je désir faire un tri par couleur de cellule dans une base de données excel. Je vais dans mise en forme conditionnelle mais je ne retrouve pas la possibilité de faire un tri par couleur comme dans la version la plus récente d'excel...

Merci beaucoup

Mike-31 · Answer

Bonjour,

1997, c'est loin mais bon comment mets tu en couleur tes cellules, manuellement ou avec une mise en forme conditionnelle, si c'est le cas quel est la formule, si non ce sera difficile pour ne pas pouvoir tester le code qui si j'ai bonne mémoire était écrit en français

Mike-31 · Answer

Re,

alors ça va être très difficile, je n'ai plus la possibilité de tester un code sous 1997 et je crains qu'on ne puisse te venir en aide

Mike-31 · Answer

Re,

Ah oui, la ça commence à être sérieux, ce code masque toute les cellules couleur sauf les cellules jaunes à partir des couleurs rencontrées en colonne A entre A2 et A30 à adapter bien sur
si tu veux afficher que les cellule rouge par exemple il faut remplacer =6 qui est l'index couleur par =3

Sub Filtre_Couleur()
Dim i As Integer
Cells.EntireRow.Hidden = False
For i = 2 To 30
If Not Range("A" & i & ":A" & i).Interior.ColorIndex = 6 Then
Range("A" & i & ":A" & i).EntireRow.Hidden = True
End If
Next i
End Sub

Mike-31 · Answer

Re,

tu peux perfectionner le code en faisant référence à une cellule contenant l'index couleur exemple tu saisis le code couleur dans la cellule G1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G1]) Is Nothing Then
Dim i As Integer
Cells.EntireRow.Hidden = False
For i = 2 To 30
If Not Range("A" & i & ":A" & i).Interior.ColorIndex = Target Then
Range("A" & i & ":A" & i).EntireRow.Hidden = True
End If
Next i
End If
End Sub

Trie par couleur de cellule

4 réponses

Discussions similaires