Liaisons fichiers

[mcj1997]

Bonjour,

J'ai fait un fichier avec beaucoup de liaisons pour rappatrier des résultats dans un autre fichier, toutefois je n'ai pas mis dans les formules "$" pour figer les références. Y a-t-il un moyen de le faire rapidement sans passer case par case ?

merci d'avance,

 

[job75]

Re : Liaisons fichiers

Bonjour mcj1997, le forum,

Touches Ctrl+H puis Rechercher : $ et Remplacer par : on ne met rien.

A+

 

[mcj1997]

Re : Liaisons fichiers

Bonjour mcj1997, le forum,

Touches Ctrl+H puis Rechercher : $ et Remplacer par : on ne met rien.

A+

Bonjour,

C'est le contraitre je n'ai pas mis les $ et je veux les mettre !

 

[job75]

Re : Liaisons fichiers

Re,

Quel est le code utilisé pour entrer les formules ?

A+

 

[mcj1997]

Re : Liaisons fichiers

Re,

Quel est le code utilisé pour entrer les formules ?

A+

ex : j'ai ça :
=[Classeur2]Feuil1!A8

et je voudrais ça :
=[Classeur2]Feuil1!$A$8

 

[job75]

Re : Liaisons fichiers

Re,

Voici une macro qui convertit toutes les références relatives en absolues :

Sub Convertir()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
If Not IsEmpty(Cel) Then Cel.Formula = Application.ConvertFormula( _
Cel.FormulaLocal, FromReferenceStyle:=xlA1, ToAbsolute:=xlA1)
Next
End Sub

A+

 

[BOISGONTIER]

Re : Liaisons fichiers

Bonjour,


Voir PJ

Sub convert()
    For Each S In Worksheets
        On Error Resume Next
        Set champ = S.Cells.SpecialCells(xlCellTypeFormulas)
        Set C = champ.Find(What:="[", LookIn:=xlFormulas, LookAt:=xlPart)
        If Not C Is Nothing Then
          premier = C.Address
          Do
             C.Formula = _
               Application.ConvertFormula(C.Formula, fromReferenceStyle:=xlA1, toAbsolute:=xlAbsolute)
             Set C = champ.FindNext(C)
          Loop While Not C Is Nothing And C.Address <> premier
         End If
    Next S
End Sub

JB

 

[hellle]

Re : Liaisons fichiers

Un grand merci à Job 75 pour le tuyau du Ctl + H. Mais comment ai-je pu survivre jusqu'à présent sous excel ?? 😱