recherche de cellule contenant une formule particulière

Le
domi
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4546321
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" 465754d0$0$23481$
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
JB
Le #4546211
Bonjour,

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

JB

On 25 mai, 23:27, "domi"
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


MichDenis
Le #4546021
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
Publicité
Poster une réponse
Anonyme