Trie par couleur de cellule
Résolu
chaï
-
chaï -
chaï -
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
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
A voir également:
- Trie par couleur de cellule
- Excel cellule couleur si condition texte - Guide
- Excel trier par ordre croissant chiffre - Guide
- Excel compter cellule couleur sans vba - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Proteger cellule excel - Guide
4 réponses
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
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
chaï
Bonjour, la couleur a été mise manuellement...
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
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
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
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
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
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
