Bonjour à tous,
Y a-t-il un moyen rapide de transformer, dans une série de cellules, les
adresses relatives en adresses absolues ?
Je cherche à copier des formules et à les coller ailleurs en gardant le
contenu. Une méthode m'avait été proposée ici, consistant à remplacer le
signe = par .., copier, coller et faire ensuite l'inverse (merci encore),
mais je cherche plus simple.
Merci de vos lumières.
AB
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Sélectionne la plage à copier, puis exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1, xlAbsolute) End If Next c End Sub
Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB
Bonjour.
Sélectionne la plage à copier, puis exécute la macro suivante :
Sub test()
Dim c As Range
For Each c In Selection
If c.HasFormula Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1,
xlAbsolute)
End If
Next c
End Sub
Cordialement.
Daniel
"AB" <ABspamophobe1@marseille.com> a écrit dans le message de news:
uysgMckYHHA.992@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Y a-t-il un moyen rapide de transformer, dans une série de cellules, les
adresses relatives en adresses absolues ?
Je cherche à copier des formules et à les coller ailleurs en gardant le
contenu. Une méthode m'avait été proposée ici, consistant à remplacer le
signe = par .., copier, coller et faire ensuite l'inverse (merci encore),
mais je cherche plus simple.
Merci de vos lumières.
AB
Bonjour. Sélectionne la plage à copier, puis exécute la macro suivante :
Sub test() Dim c As Range For Each c In Selection If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, xlA1, xlAbsolute) End If Next c End Sub
Cordialement. Daniel "AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB
MichDenis
Tu adaptes la plage de cellules :
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test() For Each c In Range("A1:A2") If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute) End If Next End Sub
"AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB
Tu adaptes la plage de cellules :
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test()
For Each c In Range("A1:A2")
If c.HasFormula Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute)
End If
Next
End Sub
"AB" <ABspamophobe1@marseille.com> a écrit dans le message de news:
uysgMckYHHA.992@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Y a-t-il un moyen rapide de transformer, dans une série de cellules, les
adresses relatives en adresses absolues ?
Je cherche à copier des formules et à les coller ailleurs en gardant le
contenu. Une méthode m'avait été proposée ici, consistant à remplacer le
signe = par .., copier, coller et faire ensuite l'inverse (merci encore),
mais je cherche plus simple.
Merci de vos lumières.
AB
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test() For Each c In Range("A1:A2") If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute) End If Next End Sub
"AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB
AB
Excellent ! Merci à vous deux ! André
"MichDenis" a écrit dans le message de news:
Tu adaptes la plage de cellules :
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test() For Each c In Range("A1:A2") If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute) End If Next End Sub
"AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB
Excellent ! Merci à vous deux !
André
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OvyefukYHHA.3824@TK2MSFTNGP02.phx.gbl...
Tu adaptes la plage de cellules :
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test()
For Each c In Range("A1:A2")
If c.HasFormula Then
c.Formula = Application.ConvertFormula(c.Formula, xlA1, ,
xlAbsolute)
End If
Next
End Sub
"AB" <ABspamophobe1@marseille.com> a écrit dans le message de news:
uysgMckYHHA.992@TK2MSFTNGP04.phx.gbl...
Bonjour à tous,
Y a-t-il un moyen rapide de transformer, dans une série de cellules, les
adresses relatives en adresses absolues ?
Je cherche à copier des formules et à les coller ailleurs en gardant le
contenu. Une méthode m'avait été proposée ici, consistant à remplacer le
signe = par .., copier, coller et faire ensuite l'inverse (merci encore),
mais je cherche plus simple.
Merci de vos lumières.
AB
Pour transformer le contenu des adresses de formules en adresses absolues
Sub test() For Each c In Range("A1:A2") If c.HasFormula Then c.Formula = Application.ConvertFormula(c.Formula, xlA1, , xlAbsolute) End If Next End Sub
"AB" a écrit dans le message de news:
Bonjour à tous, Y a-t-il un moyen rapide de transformer, dans une série de cellules, les adresses relatives en adresses absolues ? Je cherche à copier des formules et à les coller ailleurs en gardant le contenu. Une méthode m'avait été proposée ici, consistant à remplacer le signe = par .., copier, coller et faire ensuite l'inverse (merci encore), mais je cherche plus simple. Merci de vos lumières. AB