comment trouver une formule > à 255 caracteres ....

Bonjour Fabrice,

Dans un module du classeur...
(affiche en colonne A d'un onglet récap., les adresses de toutes les
formules du classeur dépassant 255 caractères...)

Sub recCaractFormule()
Dim i As Integer, c As Range
Application.ScreenUpdating = False
Sheets.Add.Name = "For>255"
For i = 2 To Worksheets.Count
Sheets(i).Activate
nws = ActiveSheet.Name
On Error Resume Next
For Each c In Range("A1:" & Cells.Find("*", , , , xlByRows, xlPrevious)
_
.Address).SpecialCells(xlCellTypeFormulas, 23)
If Len(c.FormulaLocal) - 1 > 255 Then
If IsEmpty(Sheets("For>255").Range("A1")) Then
aD = "A1"
Else: aD = Sheets("For>255").Range("A65536").End(3)(2).Address
End If
Sheets("For>255").Range(aD) _
.Value = nws & " - " & c.Address(0, 0)
End If
Next c
Next i
Sheets("For>255").Activate
End Sub


ChrisV


"Fabrice COSTA" <fabricecosta@hotmail.com> a écrit dans le message de news:
btuafm$mg2$1@s1.read.news.oleane.net...

Salut a tous
lors du deplacement de feuilles vers un autre classeur j'ais un message
du

style "une formule comporte + de 255 caracteres elle sera ignoré lors du
deplacement "
comment trouver cette formule parmis mes 15 feuilles ?

merci

FaB

Un poil différent :

Sub zzz()
For i = 1 To 15
Set plg = Sheets(i).Cells.SpecialCells(xlCellTypeFormulas, 23)
On Error Resume Next
For Each c In plg
If Len(c.FormulaLocal) > 255 Then
MsgBox Sheets(i).Name & " - " & c.Address
Sheets(i).Range(c.Address).Interior.ColorIndex = 4
End If
Next
Next
End Sub

AV

"Fabrice COSTA" <fabricecosta@hotmail.com> a écrit dans le message news:
btuafm$mg2$1@s1.read.news.oleane.net...

Salut a tous
lors du deplacement de feuilles vers un autre classeur j'ais un message du
style "une formule comporte + de 255 caracteres elle sera ignoré lors du
deplacement "
comment trouver cette formule parmis mes 15 feuilles ?

merci

FaB