Trie par couleur de cellule
Résolu/Fermé
A voir également:
- Trie par couleur de cellule
- Excel cellule couleur si condition texte - Guide
- Somme si couleur - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Changer la couleur d'une cellule selon son texte - Forum Excel
4 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 mars 2015 à 13:30
17 mars 2015 à 13:30
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 mars 2015 à 13:46
17 mars 2015 à 13:46
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 mars 2015 à 14:40
17 mars 2015 à 14:40
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 mars 2015 à 14:53
17 mars 2015 à 14:53
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
17 mars 2015 à 13:41