Liens internes
Bonjour à toutes et à tous,
Je reviens sur cette procédure qui m'a été fourni sur le forum. Tout fonctionne lorsque je prends l'exemple des deux fichiers liés mais quand je le mets dans mon classeur général qui contient toutes les applications celà ne fonctionne plus. On a l'impression que les liens se crées puisqu'il passe en bleu souligné mais lorsque je clique dessus ils ne m'emmènent pas sur l'autre feuille à l'emplacement désiré.
Je dois surement oublier quelque chose, quelque part, mais où ?
ScreenUpdating = False
Range("Situation!A65536").Select
Selection.End(xlUp).Select
x = ActiveCell.Row
If x >= 3 Then
For Each cell In Range("A3:A" & x)
cell.Select
z = Right(cell.Formula, Len(cell.Formula) - 1)
cell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=z
Next cell
End If
End Sub
Désolé 123bondeal mais je suis un mauvais élève je crois -
Merci de bien vouloir me dire où je pêche. Je peux envoyer le fichier par e-mail, je dis celà car il est un peu gros pour passer sur le forum.
Merci à tout le monde pour votre aide.
@lain