recherche de cellule contenant une formule particulière

Une macro de J.E.McGimpsey, Office/Mac MVP
que j'ai adapté à ton besoin

'----------------------------------
Sub SearchAllSheets()
Dim StrSearchString As String
Dim FoundCell As Range
Dim loopAddr As String

Application.ScreenUpdating = False
'Fichier à chercher dans les cellules
StrSearchString = "aaaa1.xls" ' à déterminer
With Worksheets("Feuil1")
With .UsedRange.SpecialCells(xlCellTypeFormulas)
Set FoundCell = .Find( _
What:=StrSearchString, _
LookIn:=xlFormulas, _
LookAt:=xlPart)
If Not FoundCell Is Nothing Then
loopAddr = FoundCell.Address
Do
With FoundCell
'à toi de déterminer le format de cellule que tu désires.
.Font.ColorIndex = 5
.Interior.ColorIndex = 22
.Font.Bold = True
End With

Set FoundCell = .Cells.FindNext( _
After:=FoundCell)
Loop While Not FoundCell Is Nothing And _
FoundCell.Address <> loopAddr
End If
End With
End With

End Sub
'----------------------------------





"domi" <domi.rognon@free.fr> a écrit dans le message de news:
465754d0$0$23481$426a34cc@news.free.fr...
Bonjour,

Pouvez vous me dire comment faire pour mettre en forme automatiquement
toutes les cellules d'un classeur contenant une formule particulière ? Par
ex celles qui contiennent un lien avec des cellules d'un autre classeur ?

Merci pour votre aide

Bonjour,

http://boisgontierjacques.free.fr/fichiers/FindMultiFeuilles2.xls

JB

On 25 mai, 23:27, "domi" <domi.rog...@free.fr> wrote:

Bonjour,

Pouvez vous me dire comment faire pour mettre en forme automatiquement
toutes les cellules d'un classeur contenant une formule particulière ? Par
ex celles qui contiennent un lien avec des cellules d'un autre classeur ?

Merci pour votre aide

Pour application dans tout le classeur :

Sub SearchAllSheets()

Dim StrSearchString As String
Dim FoundCell As Range
Dim loopAddr As String
Dim Sh As Worksheet

Application.ScreenUpdating = False
'Fichier à chercher dans les cellules
StrSearchString = "aaaa1.xls" ' à déterminer
On Error Resume Next
For Each Sh In Worksheets
With Sh.UsedRange.SpecialCells(xlCellTypeFormulas)
Set FoundCell = .Find( _
What:=StrSearchString, _
LookIn:=xlFormulas, _
LookAt:=xlPart)
If Not FoundCell Is Nothing Then
loopAddr = FoundCell.Address
Do
With FoundCell
'à toi de déterminer le format de cellule que tu désires.
.Font.ColorIndex = 5
.Interior.ColorIndex = 22
.Font.Bold = True
End With

Set FoundCell = .Cells.FindNext( _
After:=FoundCell)
Loop While Not FoundCell Is Nothing And _
FoundCell.Address <> loopAddr
End If
End With
Next

End Sub