lien vers 1ere ligne vide d'une autre feuille

[man]

bonjour
j'aimerai créer un lien hyper texte dans une feuille qui me renvoie à la premiere ligne vide d'une autre feuille et dans la cellule A de cette ligne.

peut on lors de la creation du lien ajouter une fonction dans la réference de cellule ou bien faut il passer par une macro... ?

si vous avez la solution je suis tout ouie.
d'avance merci.

 

[vincent]

Bonjour

Voila un exemple par macro:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim classeur As Object
on error resume next
Set classeur = GetObject(Application.DefaultFilePath & "\" & Target.Value)
Windows(Target.Value).Visible = True
cancel=true
With classeur.Sheets(1)
.Cells(.Range("a65536").End(xlUp).Row + 1, 1).Select
End With
Set classeur = Nothing
if err<>0 then
msgbox "pas de fichier " & target & " dans " & application.defaultfilepath
err.clear
end if
End Sub

elle fonctionne sur un double click et la cellule concernée doit contenir le noms du fichier avec l'extension (toto.xls par exemple) et ce fichier doit ce trouver dans le chemin de sauvegarde par defaut.

@+Vincent

 

[man]

merci pour ta reponse vincent mais je debute et ne suis pas capable d'exploiter ta macro (impossible de l'affecter un bouton) et je ne sais pas ce qu'il faut modifier comme nom dans la macro.

ne connait pas le moyen d'y parvenir simplement avec un lien hypertexte dans lequel la reference de cellule ciblée contiendrait une fonction de recherche de cellule vide ?

Sinon peut tu m'expliquer comment exploiter ta macro.

pour rappel dans le meme classeur, je veux depuis la page d'accueil pouvoir créer rapidement un lien hypertexte ou un bouton qui me renvoie à la premiere ligne vide (et sur la cellule A) d'un autre feuille. je dois faire un lien pour 300 feuilles environ.....

 

[vincent]

Re

pas de pb,alors dans un premier temps tu peux copier le code directement du forum ensuite tu le code dans le code de la page (pour cela clique droit sur l'onglet de la feuille et ensuite sur visualiser le code et ensuite colle le code dans la fenetre 'classeur1 - feuil1(code)' par exemple pour un classeur nome classeur1.ensuite pas besoin de l'affecter a un bouton il faut juste double clique sur une cellule contenant un nom de fichier (tu peux ecrire classeur1.xls dans la cellule a1 et puis double cliquer dessus par exemple)

Voila
@+Vincent

Ps je ne connais pas le moyen de le faire par lien hypertext.Mais il y a plei de gens sur le forum alors avec un peu chance un specialiste lien hypertext passera par la .

 

[vincent]

Re

je viens de penser a un truc tout bête mais cela t'obligerais a modifier tous les fichiers qui sont appellés à être ouvert par les liens.

il faudrait rajouter dans le thisworkbook de chaque classeur le code suivant

Private Sub Workbook_Open()
Sheets(1).Cells(Range("a65536").End(xlUp).Row + 1, 1).Select
End Sub

ensuite tu crees des liens hypertextes tous simples vers tes fichiers

@+Vincent

Ps 1 mon programme evite la multiplication de procedure dans tes fichiers
ps 2 juste au cas la manipulation pour rajouter le code dans thisworkbook :
alt+f11 ensuite dans l'explorateur de projet (ctrl+r si il n'est pas ouvert) double click sur thisworkbook copie le code ci dessus puis colle le dans la fenetre que tu viens d'ouvrir

 

[man]

desolé vincent mais j'ai essayé tes 2 solutions et je n'arrive pas a les faire fonctionner.

 

[vincent]

Re

Essaye directement avec le fichier joint.


@+Vincent

 

[man]

ton fichier fonctionne pour ouvrir un autre classeur mais ce que je cherche c'est le moyen, au sein du meme classeur, d'aller a une feuille à partir de la page d'acceuil de mon classeur.
ci joint mon fichier avec un commentaire sur la feuille "Récap" et sur la feuille "tlm10 135".

 

[michel]

bonsoir Vincent , bonsoir Man

ci joint ton fichier modifié . j'espere que cela correspond à ta demande

pour le test , il faut doublecliquer sur la cellule que tu avais indiqué dans ton fichier exemple

bonne soirée
Michel

 

[vincent]

Re le fil ,bonjour michel

Comprend pas j'ai envoyer un post il y 2 minutes pas grave

je ne renvois pas mon fichier c'est le meme que michel a quelque variante pret dans la forme.

@+vincent

 

[man]

Merci Michel. ta macro foonctionne parfaitement. c'est exactement ce que je voulais.

merci aussi à Vincent. l'idée d'une cellule sur laquelle on double clic est finalement bien mieux qu'un lien hypertexte.

a grand merci à vous deux et surement à très bientot.