Passer au contenu principal

Comment changer / convertir une référence absolue en référence relative dans Excel?

Normalement, il existe plusieurs types de références de cellule que vous pouvez utiliser dans une formule, et chaque type de références de cellule peut vous aider à atteindre différents objectifs dans la formule. Vous pouvez avoir les types de références de cellule suivants, tels que la référence de cellule absolue, la référence de cellule relative, la référence de ligne relative, la référence de colonne absolue et la référence de ligne absolue et la référence de colonne relative. Mais parfois, vous devrez peut-être modifier l'utilisation de l'objectif de la formule en modifiant les références de cellule dans la formule. Les méthodes délicates suivantes vous indiqueront comment modifier la référence absolue en relative dans Excel.

Changer la référence absolue en référence relative avec la touche F4

Changer la référence absolue en référence relative avec le code VBA

Changez rapidement la référence absolue en référence relative avec Kutools for Excel

Référence absolue

Référence relative


flèche bleue bulle droite Changer la référence absolue en référence relative avec la touche F4

Avec la touche de raccourci F4, nous pouvons facilement basculer la référence absolue à la référence relative, procédez comme suit:

Placez le curseur derrière $ A $ 1, puis appuyez trois fois sur F4, il deviendra A $ 1, $ A1, A1 successivement. Voir la capture d'écran:

Selon cette étape, placez le curseur derrière $ B $ 1 pour obtenir B1.

Et cette référence de cellule deviendra une référence relative à partir d'une référence absolue.

Si plusieurs références de cellules de formules doivent être modifiées, cette méthode sera fastidieuse et prend du temps.


flèche bleue bulle droite Changer la référence absolue en référence relative avec le code VBA

Avec le code VBA, vous pouvez rapidement modifier une plage de références de cellules de formules, des références absolues aux références relatives à la fois.

1. Sélectionnez la plage que vous souhaitez modifier.

2. Cliquez Développeur > Visual Basic ou vous pouvez appuyer sur Alt + F11, une nouvelle fenêtre Microsoft Visual Basic pour applications s'affiche, cliquez sur insérer > Moduleet saisissez le code suivant dans le Module:
VBA: Convertit une référence absolue en référence relative.

Sub ConverFormulaReferences()
'Updateby20140603
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
Dim xIndex As Integer
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)
xIndex = Application.InputBox("Change formulas to?" & Chr(13) & Chr(13) _
& "Absolute = 1" & Chr(13) _
& "Row absolute = 2" & Chr(13) _
& "Column absolute = 3" & Chr(13) _
& "Relative = 4", xTitleId, 1, Type:=1)
For Each Rng In WorkRng
    Rng.Formula = Application.ConvertFormula(Rng.Formula, XlReferenceStyle.xlA1, XlReferenceStyle.xlA1, xIndex)
Next
End Sub

3. Puis clique doc-relative-absolue-6 pour exécuter le code, et une boîte de dialogue apparaîtra pour sélectionner une plage à convertir, puis cliquez sur OK et une autre boîte de dialogue s'affiche pour vous demander le type que vous souhaitez utiliser. Ensuite, vous pouvez choisir le bon type dont vous avez besoin. Pour cet exemple, je vais insérer 4. Voir les captures d'écran:

4. Puis clique OK. Toutes les références absolues de la sélection ont été remplacées par des références relatives dans la formule.

Ceci est un code VBA multifonction, avec ce code; vous pouvez également changer la référence absolue, changer la ligne absolue ou changer la colonne absolue.


flèche bleue bulle droite Changez rapidement la référence absolue en référence relative avec Kutools for Excel

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

Kutools for Excel vous permet de changer de référence absolue en référence relative ou vice versa rapidement et facilement. Veuillez procéder comme suit:

Étape 1. Sélectionnez la plage qui contient les formules que vous souhaitez modifier les références de cellule dans la feuille de calcul.

Étape 2. Cliquez sur Kutools > Convertir les références. Il affichera Convertir les références de formule boite de dialogue. Voir la capture d'écran:

Étape 3. Vérifier Au relatif et cliquez sur Ok or Appliquer dans l' Convertir la référence de formule dialogue. Cela changera la référence absolue en référence relative.

Si vous souhaitez modifier les références de cellule en absolu de colonne ou en absolu de ligne, veuillez vérifier Vers la colonne absolue Option ou Vers la ligne absolue option.

Pour plus d'informations sur Convertir la référence, S'il vous plaît visitez Description de la fonction de conversion de référence.


Article relatif:Changer la référence relative en référence absolue

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

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...

Description


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Function ConvertMyAddress(strRng As String) As String
Dim rngSelection As Range

Set rngSelection = Application.Range(strRng)
'// Test if empty
If rngSelection Is Nothing Then Exit Function

' MsgBox rngSelection.Address(0, 0) 'A1
' MsgBox rngSelection.Address(1, 0) '$A1
' MsgBox rngSelection.Address(0, 1) 'A$1
' MsgBox rngSelection.Address(1, 1) '$A$1
' MsgBox rngSelection.Address '$A$1
'
' MsgBox rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)
' MsgBox "[" & rngSelection.Parent.Parent.Name & "]" & rngSelection.Parent.Name & "!" & rngSelection.Address(0, 0)

ConvertMyAddress = rngSelection.Address(1, 1)

End Function
This comment was minimized by the moderator on the site
Wao Excellent teh VBA Code Works Perfect, Thank You very Much
This comment was minimized by the moderator on the site
Excel 2010. I clicked on cancel when the prompt comes up, but excel still ran the script and it froze my computer for several hours. I only had 1 cell highlighted anyway, so even if the script did run, why did it take so long to run? [i realize now that despite pressing cancel, the code ran and made every cell in the worksheet relative ! :( ] I was assigning it to a form button vs pressing play within VBA window. I've used other scripts from KuTools and never experienced this nonsense.
This comment was minimized by the moderator on the site
The F4 toggle works in all versions. but you MUST be in edit mode first. I always press F2 (puts you into edit mode) then F4 to toggle between the four options.
This comment was minimized by the moderator on the site
With the shortcut key F4, we can easily toggle the absolute reference to relative reference, please do //as// the following steps. Forgot to mention F4 didn't work with my excel (windows 7) but your macro and invite to Kutools is great. Sorry about repeat sends, I thought the code wasn't working.
This comment was minimized by the moderator on the site
Thank you very much. Descriptive, easy to follow information.
This comment was minimized by the moderator on the site
Thank you very much, descriptive, easy to follow information.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations