Re : Laisons entre les feuilles d'un classeur
Bonjour, Kikou Said
Bon je me suis bien pris la tête, il doit carrément y avoir plus simple et je n'ai pas terminé mais il est tard
:
L'idée : récupérer en colonne Y toutes les feuilles qui sont dans les formules de la feuille active et en colonne Z toutes les feuilles ayant des formules pointant sur la feuille active.
Il reste à faire : supp des doublons sur Y et Z (pleins d'exemples dans la recherche) et la gestion des erreurs si aucune formule dans la feuille
Sub Liens()
Dim i As Integer
Dim Sh As Object
Dim ThisSh
ThisSh = ActiveSheet.Name
Columns("Y:Z").ClearContents
i = 1
On Error Resume Next
For Each Elmnt In Cells.SpecialCells(xlCellTypeFormulas, 23)
On Error GoTo 0
For Each Sh In Sheets
If Elmnt.Formula Like ("*" & Sh.Name & "*") Then
Cells(i, 25).Value = Sh.Name
i = i + 1
End If
Next
Next
i = 1
For Each Sh In Sheets
Sh.Select
On Error Resume Next
For Each Elmnt In Sh.Cells.SpecialCells(xlCellTypeFormulas, 23)
If Sh.Name = thish Then
ElseIf Elmnt.Formula Like ("*" & ThisSh & "*") Then
Sheets(ThisSh).Cells(i, 26).Value = Sh.Name
i = i + 1
End If
Next
Next
Sheets(ThisSh).Select
[A1].Select
End Sub
J'espère que çà t'ira
@ +
Juju