Liaisons fichiers

job75

XLDnaute Barbatruc

• 3 Décembre 2008

• #2

Re : Liaisons fichiers

Bonjour mcj1997, le forum,

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

A+

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 3 Décembre 2008

• #3

Re : Liaisons fichiers

job75 à dit:

Bonjour mcj1997, le forum,

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

A+

Cliquez pour agrandir...

Bonjour,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2008

• #4

Re : Liaisons fichiers

Re,

Quel est le code utilisé pour entrer les formules ?

A+

 

Vote positif 0 Vote négatif

M

mcj1997

XLDnaute Accro

• 3 Décembre 2008

• #5

Re : Liaisons fichiers

job75 à dit:

Re,

Quel est le code utilisé pour entrer les formules ?

A+

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2008

• #6

Re : Liaisons fichiers

Re,

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

Code:

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+

 

Dernière édition: 3 Décembre 2008

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Décembre 2008

• #7

Re : Liaisons fichiers

Bonjour,


Voir PJ

Code:

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

 

Pièces jointes

• Classeur1.xls

  28.5 KB · Affichages: 67
• Classeur1.xls

  28.5 KB · Affichages: 69
• Classeur1.xls

  28.5 KB · Affichages: 70

Dernière édition: 3 Décembre 2008

Vote positif 0 Vote négatif

H

hellle

Guest

• 9 Avril 2009

• #8

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 ?? 😱

 

Vote positif 0 Vote négatif