De références relatives à absolues

[Picouto]

Bonjour à tous et à toutes,

Voilà mon ambition, je voudrais modifier rapidement toutes les cellules d'un onglet pour que les références relatives (sans $) deviennent absolues (avec $ donc).

Si l'un d'entre vous a une technique facile à mettre en oeuvre, merci par avance.

A+
Picouto

 

[mbbp]

Il suffit d'appuyer sur la touche F4 pour transformer une cellule relative en cellule absolue.

 

[jp14]

Bonsoir

En utilisant la fonction rechercher et remplacer on peut se simplifier le travail.
Par exemple si dans les formules on a 'Somme(B' on recherche 'Somme(' et et remplace par 'Somme($'.
Il faudra donc faire un récapitulatif des formules pour optimiser cette recherche.

Et il faudra vérifier manuellement l'ensemble des formules.

Bon courage

 

[Picouto]

Merci pour vos réponses !
Toutefois :unsure: j'ai plus de 1000 cellules à traiter avec des formules très différentes :silly: ... en gros c'est un énorme bazar et je voudrais pouvoir tout sélectionner et faire 'Remplacer les références relatives par absolues' + 'ok'

 

[pat1545.]

Salut,

essaie ceci sur une copie de ton classeur :

Option Explicit

Sub Relatif_To_Absolu()
Dim c As Range
Dim LaFormule As String
For Each c In Selection
LaFormule = c.Formula
c.Value = Application.ConvertFormula _
(Formula:=LaFormule, fromReferenceStyle:=xlA1, _
toReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
Next c
End Sub

Patrick

 

[Picouto]

Bonjour,

Alors là R E S P E C T B)

C'est parfait ! Merci beaucoup !!!!