Discussion :

[ALEX80800]

Bonjour à la communauté,

Je suis à la recherche d'une piste ou d'un code qui permet de figer la référence externe à la cellule. Exemple : cellule A1 => Feuil1!A3 à passer en Feuil1!$A$3

J'ai essayé cela mais je bute sur comment affecter le "$" de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub remplacer()
Sheets("Feuil1").UsedRange.Replace What:="!", Replacement:="!$"
End Sub

J'ai essayé cela mais pas assez secure à mon sens

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Range("A1").Select
SendKeys "{F2}", True
SendKeys "{F4}", True
SendKeys "{ENTER}", True

et de plus je dois passer en revue toutes les cellules ayant un lien externe à la feuille.

Merci de vos pistes

[jurassic pork]

Hello,
c'est pas très clair ce que tu demandes : dans la cellule A1 il y a une formule ?
Ami calmant, J.P

[ALEX80800]

Hello,
c'est pas très clair ce que tu demandes : dans la cellule A1 il y a une formule ?
Ami calmant, J.P

Jurrassik,

oui A1=Feuil1!A3

[Franc]

Salut, teste ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub FigerReferences()
    Dim cell As Range
    For Each cell In Sheets("Feuil1").UsedRange
        If cell.HasFormula Then
            cell.Formula = Application.ConvertFormula(cell.Formula, xlA1, xlA1, xlAbsolute)
        End If
    Next cell
End Sub

[ALEX80800]

Merci Franc

impeccable.

Ci dessous adapté à mon besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub FigerReferences()
 
    Dim cell As Range
    Dim c As Range
 
 
    For Each cell In Sheets("Feuil1").UsedRange
    Set c = cell.Find("!", LookIn:=xlFormulas)
        If cell.HasFormula And Not c Is Nothing Then
            cell.Formula = Application.ConvertFormula(cell.Formula, xlA1, xlA1, xlAbsolute)
        End If
    Next cell
End Sub

Encore une fois merci!!!