|
Si vous avez une feuille de calcul où votre table contient des données dans les cellules avec un fond de couleur différente , vous trouverez peut-être à portée de main pour trier ces cellules par des cellules de couleurs . Excel 2003 ne possède une fonctionnalité qui vous permet de trier par couleur de cellule . Cependant, il existe une solution : vous pouvez insérer un Visual Basic pour Applications ( VBA) macro pour effectuer la tâche pour vous. VBA est un langage de programmation spécifiquement conçu pour adapter vos applications Office à vos besoins . Instructions
1 Appuyez sur " Alt et " F11 " ensemble de la feuille de calcul Excel que vous souhaitez trier . Cela ouvre Visual Basic Editor ( VBE ) .
2 Cliquez " insérer " puis cliquez sur " Module "
3 couper et coller le code suivant dans la fenêtre vide : .
Sous SortByColor ()
Error GoTo SortByColor_Err
sRangeAddress Dim As String
sStartCell Dim As String
sEndCell Dim As String
rngSort As Range Dim
vMb Comme Range
Application.ScreenUpdating = False
sStartCell = InputBox (" Entrez l'adresse de cellule de la " & _
" cellule supérieure dans la plage à trier par couleur "& _
Chr (13 ) &" ie "A1" "," Entrez l'adresse Cell " )
Si sStartCell >" "Then
sEndCell = Range ( sStartCell ) . End ( xlDown ) . Adresse
Range ( sStartCell ) . EntireColumn.Insert
Set rngSort = Range ( sStartCell , sEndCell )
For Each rng En rngSort
rng.Value = rng.Offset (0, 1 ) Interior.ColorIndex
Suivant
Range ( sStartCell ) Trier Key1 : . . = Range ( sStartCell ) , _
Order1 : = xlAscending , Header : = xlNo , _
Orientation: = xlTopToBottom
Range ( sStartCell ) EntireColumn.Delete
. End If
SortByColor_Exit :
Application.ScreenUpdating = True
Set rngSort = Nothing
Exit Sub
SortByColor_Err :
MsgBox Err.Number & ":" & Err.Description , _
vbOKOnly , " SortByColor "
CV SortByColor_Exit
End Sub
4 Appuyez sur " F5" pour exécuter la macro la macro vous demandera le début de la plage que vous voulez trier par couleur : . . entrer dans la cellule supérieure gauche de la plage
< br >
|
