Comment identifier où une plage nommée spécifique est utilisée dans Excel ?

Nous pouvons facilement utiliser la fonctionnalité Rechercher et remplacer d’Excel pour identifier toutes les cellules utilisant une plage nommée donnée. Procédez comme suit :

1. Appuyez simultanément sur les touches Ctrl + F pour ouvrir la boîte de dialogue Rechercher et remplacer.

Remarque : vous pouvez également ouvrir cette boîte de dialogue Rechercher et remplacer en cliquant sur Accueil > Rechercher et sélectionner > Rechercher.

2. Dans la boîte de dialogue Rechercher et remplacer qui s’ouvre, procédez comme indiqué dans la capture d’écran suivante :

(1) Saisissez le nom d’une plage nommée spécifique dans la zone Rechercher;

(2) Sélectionnez Classeurdans la liste déroulante Dans;

(3) Cliquez sur le bouton Rechercher tout.

Remarque : Si la liste déroulante « Dans » n’est pas visible, cliquez sur le bouton Options pour développer la boîte de dialogue Options de recherche.

Vous voyez désormais apparaître, en bas de la boîte de dialogue Rechercher et remplacer, la liste de toutes les cellules contenant le nom de la plage nommée spécifiée. Voir la capture d’écran :

Remarque : La fonction Rechercher et remplacer vous permet non seulement d’identifier toutes les cellules utilisant cette plage nommée spécifique, mais aussi toutes les cellules qu’elle couvre.

Cette méthode utilise une macro VBA pour identifier toutes les cellules utilisant une plage nommée spécifique dans Excel. Procédez comme suit :

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis copiez-collez le code suivant dans la fenêtre Module qui s’ouvre.

VBA : Identifier où une plage nommée spécifique est utilisée

Sub Find_namedrange_place()
Dim xRg As Range
Dim xCell As Range
Dim xSht As Worksheet
Dim xFoundAt As String
Dim xAddress As String
Dim xShName As String
Dim xSearchName As String
On Error Resume Next
xShName = Application.InputBox("Please type a sheet name you will find cells in:", "Kutools for Excel", Application.ActiveSheet.Name)
Set xSht = Application.Worksheets(xShName)
Set xRg = xSht.Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not xRg Is Nothing Then
xSearchName = Application.InputBox("Please type the name of named range:", "Kutools for Excel")
Set xCell = xRg.Find(What:=xSearchName, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
        If Not xCell Is Nothing Then
xAddress = xCell.Address
If IsPresent(xCell.Formula, xSearchName) Then
xFoundAt = xCell.Address
End If
            Do
Set xCell = xRg.FindNext(xCell)
If Not xCell Is Nothing Then
If xCell.Address = xAddress Then Exit Do
If IsPresent(xCell.Formula, xSearchName) Then
If xFoundAt = "" Then
xFoundAt = xCell.Address
Else
xFoundAt = xFoundAt & ", " & xCell.Address
End If
End If
Else
Exit Do
End If
Loop
End If
If xFoundAt = "" Then
MsgBox "The Named Range was not found", , "Kutools for Excel"
Else
MsgBox "The Named Range has been found these locations: " & xFoundAt, , "Kutools for Excel"
End If
On Error Resume Next
xSht.Range(xFoundAt).Select
End If
End Sub
Private Function IsPresent(sFormula As String, sName As String) As Boolean
Dim xPos1 As Long
Dim xPos2 As Long
Dim xLen As Long
Dim I As Long
xLen = Len(sFormula)
xPos2 = 1
Do
xPos1 = InStr(xPos2, sFormula, sName) - 1
If xPos1 < 1 Then Exit Do
IsPresent = IsVaildChar(sFormula, xPos1)
xPos2 = xPos1 + Len(sName) + 1
If IsPresent Then
If xPos2 <= xLen Then
IsPresent = IsVaildChar(sFormula, xPos2)
End If
End If
Loop
End Function
Private Function IsVaildChar(sFormula As String, Pos As Long) As Boolean
Dim I As Long
IsVaildChar = True
For I = 65 To 90
If UCase(Mid(sFormula, Pos, 1)) = Chr(I) Then
IsVaildChar = False
Exit For
End If
Next I
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(34) Then
IsVaildChar = False
End If
End If
If IsVaildChar = True Then
If UCase(Mid(sFormula, Pos, 1)) = Chr(95) Then
IsVaildChar = False
End If
End If
End Function

4. Dans la première boîte de dialogue de Kutools pour Excel qui s’ouvre, saisissez le nom de la feuille de calcul, puis cliquez sur le bouton OK ; ensuite, dans la deuxième boîte de dialogue, saisissez le nom de la plage nommée souhaitée et cliquez sur le bouton OK. Voir les captures d’écran :

5. La troisième boîte de dialogue Kutools pour Excel s’affiche alors et liste les cellules utilisant la plage nommée spécifique, comme illustré ci-dessous.

Après avoir cliqué sur le bouton OK pour fermer cette boîte de dialogue, les cellules trouvées sont immédiatement sélectionnées dans la feuille de calcul spécifiée.

Remarque : Ce code VBA ne peut rechercher les cellules utilisant une plage nommée spécifique que dans une seule feuille de calcul à la fois.

Si vous avez installé Kutools pour Excel, son utilitaire Remplacer Nom de la cellule vous permet d’identifier et de lister facilement toutes les cellules et formules utilisant une plage nommée spécifique dans Excel.

1. Cliquez sur Kutools > Plus > Remplacer Nom de la cellule pour ouvrir la boîte de dialogue Remplacer Nom de la cellule.

2. Dans la boîte de dialogue « Remplacer Nom de la cellule » qui s’ouvre, accédez à l’onglet Nom, cliquez sur la liste déroulante Basé sur le nom et sélectionnez la plage nommée spécifique, comme illustré ci-dessous :

Toutes les cellules et leurs formules associées utilisant la plage nommée spécifique s’affichent instantanément dans la boîte de dialogue.

3. Fermez la boîte de dialogue Remplacer Nom de la cellule.