Rajouter le signe $ dans toutes les formules d'un tableau

Bonjour,

J'ai un tableau qui contient 2 feuilles, Feuil1 et Feuil2.

dans Feuil2, les données du tableau pointent vers les données du tableau de la Feuil1.

Je voudrais au faite mettre le signe $ partout dans le tableau de la Feuil2.

Exemple en A2 j'ai =Feuil1!A2 et je veux avoir =Feuil1!$A$2 sans utiliser F4 mais avec rechercher-remplacer ou n'importe du moment que que j'ai ce résultat la sur toutes les cases du tableau de la Feuil2.

J'ai tout essayé avec des *, des ? ... sans réussite.

Ci-joint le fichier.

Merci d'avance

Bonjour

A 1ère vue je n'ai vu que des formules simples

Fais un Recherche/Remplace

Recherche !

Remplace !$

EDIT : Désolé il faut figer la ligne aussi

Bonjour,

Un début de réponse pour débuter.

Cdlt.

Option Explicit
'Convert_Reference Type Macro
'A Visual Basic module to convert absolute references to relative
'references or relative references to absolute references.
Public Sub Conv_RefType()

      Dim Conv As String
      Dim Mycell As Range
      Dim MyFormula
      Dim NewFormula
      Dim MyMsg, MyTitle, MyBox

      'Prompt user to change to relative or absolute references
10    Conv = Application.InputBox _
          ("Type A to convert to Absolute, R to Relative Reference(s)", _
              "Change Cell Reference Type")
      'If changing relative to absolute references
20    If UCase(Conv) = "A" Then
          'Loop through each cell selected
30        For Each Mycell In Selection
40            If Len(Mycell.Formula) > 0 Then
                  'Stores cell's formula as variable
50                MyFormula = Mycell.Formula
                  'Converts formula to absolute reference style
60                NewFormula = Application.ConvertFormula _
                      (Formula:=MyFormula, _
                          fromReferenceStyle:=xlA1, _
                              toReferenceStyle:=xlA1, _
                                  toAbsolute:=xlAbsolute)
                  'Replaces old formula with new absolute formula
70                Mycell.Formula = NewFormula
80            End If
90        Next

      'If changing absolute to relative references
100   ElseIf UCase(Conv) = "R" Then
          'Loop through each cell selected
110       For Each Mycell In Selection
120           If Len(Mycell.Formula) > 0 Then
                  'Stores cell's formula as variable
130               MyFormula = Mycell.Formula
                  'Converts formula to relative reference style
140               NewFormula = Application.ConvertFormula _
                      (Formula:=MyFormula, _
                          fromReferenceStyle:=xlA1, _
                              toReferenceStyle:=xlA1, _
                                  toAbsolute:=xlRelative)
                  'Replaces old formula with new relative formula
150               Mycell.Formula = NewFormula
160           End If
170       Next

      'Display Error message if choice entered is invalid
180   ElseIf UCase(Conv) <> "FALSE" Then
190       MyMsg = "Enter A for Absolute, R for Relative Reference(s)"
200       MyTitle = "Option Not Valid"
210       MyBox = MsgBox(MyMsg, 0, MyTitle)
220   End If
End Sub

Bonjour

Bonjour Jean-Eric

Avec une macro toute simple

Re,

Bonjour Banzai64,

J'ai trouvé ce code sur le site de Microsoft

http://support.microsoft.com/kb/116028/fr

J'ai trouvé intéressant l'idée de passer les réfs. relatives en réfs. absolues et vice-versa

Bon week-end. Cdlt

Bonjour

Oui j'ai été voir (je ne connaissais pas la page)

Je sais que ce qui peut le plus peut le moins

Cela fait compliqué pour sa demande

Mais bon, le lien est intéressant à connaitre

Bonjour,

Merci a tous pour vos réponses. Moi j’essayais de le faire avec remplacer mais c’était impossible. Je ne pouvais pouvais que remplacer ! par !$.

La macro marche très bien, ça va beaucoup m'aider.

Merci encore

Re-Bonjour,

Je viens de tester la macro sur mon fichier original qui était trop lourd pour le charger sur le forum, et ça ne marche pas.

J’envoie donc un nouveau fichier. La feuille ou je souhaite appliquer la macro est Feuil1.

Merci

Bonjour

Comme tu fournis un fichier sans macro, pas facile de savoir à qui tu t'adresses

Pour info : J'ai essayé la macro que je t'ai fourni et pas de problème particulier à signaler

J'ai utilisé ta macro BANZAI

elle marche bien sur mon premier fichier mais pas sur le nouveau.

Bonjour

Ton fichier : Reste qu'à appuyer sur le bouton

Bonjour,

Tu pourrais expliquer le problème que ça te pose que ce soit en relatif ou en absolu ?

A part le fait que tu ne pourras plus faire de recopie incrémentée je ne vois pas l'intérêt pour l'instant...

eric

C'est bon ca marche nickel.

Merci les gars pour votre aide.