re Startus, Jean-Marie,
Startus, tu trouveras ci-joint ton fichier modifié pour tenter de répondre à ta demande...
J'ai utilisé le code ci-dessous :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long
Dim H As String, Feuille As String, Cellule As String
Dim P As Byte
If Not Application.Intersect(Target, Range('E2')) Is Nothing Then
If Target.Value <> '' Then
L = Application.WorksheetFunction.Match(Target.Value, Columns(2), 0)
'Récupère l'adresse du lien cible
H = Cells(L, 7).Hyperlinks(1).SubAddress
'Active la feuille correspondante et selectionne la cellule cible
P = InStr(1, H, '!')
Sheets(Left(H, P - 1)).Activate
ActiveSheet.Range(Mid(H, P + 1)).Select
End If
End If
End Sub
Ayant
lamentablement échoué avec la méthode Cells(L, 7).Hyperlinks(1).
Follow qui n'a pas voulu fonctionner malgré tous mes efforts, j'ai dû me résigner à contourner le problème en forçant l'activation de la feuille et la sélection de la cellule cible par le code.
Cela dit, tu ne t'es pas 'mal expliqué' dans la question plus haut Startus... cette question n'a, en fait,
rien à voir avec le problème que tu viens de soumettre cette fois... Ce problème étant apparament celui que tu avais soumis dans l'autre fil de discussion
Lien supprimé et qui est vraissemblablement restée sans réponse, je tiens à te faire remarqué que ta méthode (bien qu'efficace !) n'est pas très sport et je t'informe que je n'ai guère apprécié... J'espère que la solution ci-jointe te conviendra car, pour ma part, il n'y aura pas d'autre version. Je te souhaite bonne chance pour la suite...
Cordialement, [file name=mDF_Analyse.zip size=27386]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_Analyse.zip[/file]
Message édité par: myDearFriend!, à: 07/06/2005 02:30