Comment remplacer le nom d’une cellule par ses références de cellule dans Excel ?
Lorsque vous travaillez avec des plages nommées dans Excel, celles-ci s’avèrent particulièrement utiles pour améliorer la lisibilité et la gestion de vos formules. Toutefois, il arrive que vous souhaitiez supprimer ces noms et rétablir les références de cellule d’origine — notamment pour partager des fichiers, résoudre des problèmes ou standardiser des modèles. Dans cet article, nous vous présentons différentes méthodes efficaces pour remplacer les plages nommées par leurs références de cellule correspondantes dans Excel.
Remplacer Nom de la cellule par des références de cellule à l’aide d’un code VBA
Par exemple, dans cette feuille de calcul, je vais nommer la plage A2:A6 saleprice et la cellule B2 discount, puis utiliser ces deux noms dans une formule pour calculer le nouveau prix. Voir les captures d’écran :
Après avoir appliqué ces astuces rapides, les Nom de la cellule seront remplacés par des références de cellule, comme illustré ci-dessous :
Remplacer Nom de la cellule par des références de cellule à l’aide d’un code VBA
Pour utiliser VBA afin de remplacer les Nom de la cellule des formules par des références de cellule, procédez étape par étape comme suit :
1. Sélectionnez la plage contenant les formules dont vous souhaitez remplacer les noms par des références de cellules.
2. Appuyez sur Alt + F11 pour ouvrir une nouvelle fenêtre Microsoft Visual Basic pour Applications, puis cliquez sur Insertion > Module et copiez-collez le code suivant dans le module :
Code VBA : Remplacer Nom de la cellule par une référence absolue
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
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 : Remplacer Nom de la cellule par une référence relative
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
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. Appuyez ensuite sur la touche F5 pour exécuter le code. Une boîte de dialogue s’affiche alors, vous permettant de sélectionner une plage à remplacer. Voir la capture d’écran :
4. Cliquez ensuite sur OK, et tous les noms dans les cellules des formules sélectionnées auront été remplacés.
Remplacer rapidement et facilement Nom de la cellule par des références de cellule à l’aide de Kutools pour Excel
Bien que cette opération, qu’elle soit effectuée manuellement ou via VBA, puisse être longue et sujette aux erreurs, Kutools pour Excel propose une solution en un seul clic pour simplifier tout le processus. Grâce à son utilitaire Convertir les noms en plage de référence, vous pourrez remplacer rapidement et facilement les noms de cellules par leurs références de cellule.
1. Appliquez cet utilitaire en cliquant sur Kutools > Outils de nom > Convertir les noms en plage de référence.
2. Une boîte de dialogue s’affiche. Cliquez sur l’onglet Plage, puis sélectionnez la plage que vous souhaitez remplacer par des références de cellule dans Basé sur la plage. Ensuite, cliquez sur le bouton Remplacer. Voir la capture d’écran :
3. Une autre boîte de dialogue s’affiche pour vous indiquer le nombre de formules modifiées et inchangées. Cliquez sur OK, et les noms des cellules dans la plage sélectionnée auront été remplacés par des références de cellule.
🔚 Conclusion
Que vous travailliez sur quelques formules ou sur un classeur entier, remplacer les plages nommées par des références de cellules réelles est une excellente façon d’améliorer la transparence, la compatibilité et la facilité de collaboration.
- Pour les utilisateurs avancés, VBA propose une solution flexible et entièrement programmable pour automatiser le remplacement.
- Pour tous les autres, Kutools pour Excel offre la solution la plus rapide et la plus intuitive pour accomplir cette tâche en quelques clics seulement – sans codage ni modification de formules.
En choisissant la méthode qui correspond le mieux à votre flux de travail, vous nettoierez efficacement vos formules et garantirez que vos feuilles de calcul restent claires et faciles à maintenir. Si vous souhaitez découvrir davantage d’astuces et de conseils Excel, notre site web propose des milliers de tutoriels pour vous aider à maîtriser Excel.
Article connexe :
Modifier la référence de cellule dans les formules en Nom de la cellule dans Excel
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels