Comment remplacer les noms de plage par des références de cellule dans Excel?

Certaines personnes préfèrent utiliser de nombreux noms de plages dans leurs formules, car elles estiment qu'elles sont plus claires et plus faciles à lire et à comprendre. Mais si vous voulez voir les références de cellules réelles, comment faire? Ici, ce tutoriel présentera deux astuces rapides pour résoudre ce problème.

Remplacez les noms de plage par le code VBA;

Remplacez rapidement et facilement les noms de plages avec Kutools for Excel.

Par exemple, dans cette feuille de calcul, je nommerai la plage A2: A6 comme prix de vente, et nommez B2 comme réduction, puis en utilisant le nom de la plage dans une formule pour calculer le nouveau prix. Voir les captures d'écran :

          

Après avoir suivi les astuces rapides, le nom de la plage sera remplacé par la référence de cellule comme indiqué ci-dessous:

---

Remplacez les noms de plage par le code VBA

En utilisant VBA pour remplacer les noms de plage de formule par des références de cellule, vous pouvez le faire étape par étape comme suit:

1. Sélectionnez la plage contenant les formules dont vous souhaitez remplacer leurs noms par des références de cellule.

2. Cliquez Développeur > Visual Basic or Alt + F11 ouvrir un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affiche, cliquez sur insérer>Module, puis saisissez les codes suivants dans le module:

Code VBA: remplacez les noms de plage par une référence absolue

Sub AbsoleteNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
        End If
    Next
Next
End Sub

Code VBA: remplacez les noms de plage par une référence relative

Sub ReplaceNamesWithRelativeRefs()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
    For Each xName In ThisWorkbook.Names
        If InStr(Rng.Formula, xName.Name) > 0 Then
            Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
        End If
    Next
Next
End Sub

3. Puis clique  pour exécuter le code, une boîte de dialogue s'affiche pour sélectionner une plage à remplacer. Voir la capture d'écran:

4. Puis clique OK. et tous les noms de plage de formules sélectionnés ont été remplacés. Voir la capture d'écran:

Remplacer les noms de plage par des références de cellule relatives		Remplacer les noms de plage par des références de cellule absolues

---

Remplacez rapidement et facilement les noms de plages avec Kutools for Excel

Si vous avez Kutools for Excel, il est Remplacer les noms de plage L'utilitaire vous aidera à remplacer rapidement et facilement les noms de plage par des références de cellule.

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Étape 1. Veuillez appliquer cet utilitaire en cliquant sur Kutools > Plus d'outils > Remplacer les noms de plage. Voir la capture d'écran:

Étape 2. Une boîte de dialogue contextuelle nommée Remplacer les noms de plage s'affiche et cliquez sur Catégorie , puis sélectionnez la plage que vous souhaitez remplacer par des références de cellule dans le Gamme de base. Voir la capture d'écran:

Étape 3. Cliquez sur remplacer, Une autre Remplacer les noms de plage Une boîte de dialogue contextuelle s'affiche pour vous indiquer le nombre de formules modifiées et de formules inchangées, cliquez sur Ok, puis les noms de plage dans la plage sélectionnée ont été remplacés par des références de cellule. Voir la capture d'écran:

Pour plus d'informations sur Remplacer les noms de plage, S'il vous plaît visitez Description de la fonction Remplacer les noms de plage.

---

Article relatif:

Modifier la référence de cellule dans les formules en noms de plage dans Excel