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 la capture 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 SubCode 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 Sub3. 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
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 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
- Activer l'édition 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é de 50% et réduit des centaines de clics de souris chaque jour!
