Comment mettre en évidence toutes les cellules référencées par une formule dans Excel ?
Cet article explique comment mettre en évidence toutes les cellules référencées par une formule dans Excel. Veuillez suivre les deux méthodes ci-dessous pour y parvenir.
Mettre en évidence toutes les cellules référencées par une formule avec un raccourci clavier
Mettre en évidence toutes les cellules référencées par une formule avec du code VBA
Mettre en évidence toutes les cellules référencées par une formule avec un raccourci clavier
Vous pouvez utiliser un raccourci clavier pour sélectionner toutes les cellules référencées par une formule, puis appliquer manuellement une couleur de remplissage.
1. Supposons que E1 est une cellule contenant une formule, et vous devez mettre en évidence toutes les cellules qui sont référencées par celle-ci. Veuillez sélectionner la cellule de formule E1, puis appuyez simultanément sur Ctrl + [ (la touche crochet ouvert).
2. Maintenant, les cellules référencées par cette formule sont sélectionnées, veuillez spécifier une couleur de remplissage pour les mettre en évidence. Voir capture d'écran :
Mettre en évidence toutes les cellules référencées par une formule avec du code VBA
Vous pouvez également exécuter du code VBA pour mettre en évidence toutes les cellules référencées par une formule dans Excel.
1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.
Code VBA : Mettre en évidence toutes les cellules référencées par une formule dans Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3. Appuyez sur la touche F5 pour exécuter le code. Dans la boîte de dialogue Kutools for Excel qui apparaît, sélectionnez une cellule de formule ou plusieurs cellules de formule à partir desquelles vous souhaitez mettre en évidence les cellules référencées, puis cliquez sur le bouton OK. Voir capture d'écran :
Toutes les cellules référencées basées sur la ou les cellules de formule sélectionnée(s) sont immédiatement mises en évidence en rouge comme le montre la capture d'écran ci-dessous.
Articles connexes :
- Comment garder la référence de cellule de formule constante dans Excel ?
- Comment référencer le nom d'un onglet dans une cellule dans Excel ?
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office, et facilite grandement votre travail
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 %, et réduit des centaines de clics de souris pour vous chaque jour !