Vanita a demandé s’il existe un moyen de sélectionner des cellules contenant une couleur spécifique. Accomplir la tâche est facile si vous utilisez Excel 2003. Suivez simplement ces étapes:

  1. Appuyez sur Ctrl + F pour afficher l’onglet Rechercher de la boîte de dialogue Rechercher et remplacer. (Voir la figure 1.)

  2. Assurez-vous qu’il n’y a rien dans la zone Rechercher.

  3. Cliquez sur Format. (Vous devrez peut-être cliquer sur Options pour afficher le bouton Format.) Excel affiche la boîte de dialogue Rechercher un format.

  4. Assurez-vous que l’onglet Patterns est affiché. (Voir la figure 2.)

  5. Parmi les couleurs disponibles, choisissez la couleur que vous souhaitez trouver.

  6. Cliquez sur OK pour fermer la boîte de dialogue Rechercher un format.

  7. Cliquez sur Rechercher tout. La boîte de dialogue Rechercher et remplacer se développe pour afficher les adresses de toutes les cellules formatées avec la couleur que vous avez spécifiée à l’étape 5. (Voir la figure 3.)

  8. Cliquez sur l’une des adresses de cellule au bas de la boîte de dialogue. Excel sélectionne la cellule dans la feuille de calcul réelle.

  9. Appuyez sur Ctrl + A. Toutes les adresses de la boîte de dialogue sont sélectionnées.

  10. Cliquez sur Fermer. Toutes les cellules de la couleur souhaitée sont sélectionnées.

Si vous utilisez Excel 97, Excel 2000 ou Excel 2002, le seul moyen de sélectionner des cellules d’une couleur particulière consiste à utiliser une macro. Considérez la macro montrée ici:

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

Pour utiliser la macro, sélectionnez une plage de cellules avant de l’exécuter. La macro parcourt ensuite chaque cellule sélectionnée et compare sa couleur avec la couleur que vous spécifiez dans lColor. Si une correspondance est trouvée, la cellule est ajoutée à un jeu de sélection. Une fois terminé, la macro sélectionne uniquement les cellules correspondantes, puis se ferme.

Si vous souhaitez découvrir d’autres solutions basées sur des macros, vous pouvez vous référer à l’article suivant dans la base de connaissances Microsoft:

http://support.microsoft.com/kb/142122

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2396) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Finding_Cells_Filled_with_a_Particular_Color [Recherche de cellules remplies d’une couleur particulière].