Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 01/12/2011, 16h50   #1
Invité de passage
 
Homme
Inscription : décembre 2011
Messages : 1
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Secteur : Santé

Informations forums :
Inscription : décembre 2011
Messages : 1
Points : 0
Points : 0
Par défaut Lien hypertexte vers une cellule recherchée

Bonjour,
Je cherche à créer un lien hypertexte renvoyant vers une cellule recherchée :
ex :
en A1, la date d'aujourd'hui
de A2 à A366 les dates de tous les jours de l'année (1ère colonne d'un tableau).
Je cherche donc à créer un lien renvoyant vers la ligne correspondant à aujourd'hui.
A1 se modifie automatiquement tous les jours donc intérêt de fonctionner quel que soit le jour de l'année
J'ai déjà essayé de placer dans l'ancre du lien les fonctions
=LIEN_HYPERTEXTE(RECHERCHE(A1;A2:A366;A2:A366);"Ajouter une séance")
=LIEN_HYPERTEXTE(RECHERCHEH(A1;A2:A366;1;VRAI);"Ajouter une séance")
mais aucune des 2 ne fonctionne
Je n'ai jamais utilisé de macro donc si il est possible de continuer sans ça m'arrangerait, sinon tant pis il faudra bien que je m'y mette un jour
choco44 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/12/2011, 23h25   #2
Membre du Club
 
Homme
Inscription : novembre 2011
Messages : 37
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : novembre 2011
Messages : 37
Points : 45
Points : 45
Bonsoir,
J'ai une solution mais avec VBA.
Ce premier code est à copier dans un module standard.
Code :
1
2
3
4
5
6
7
8
9
10
Sub CelAujourdhui() 
Do 
Cells(i + 1, 1).Activate 
If Cells(i + 1, 1) = Date Then 
ActiveWindow.ScrollRow = i + 1 
Exit Do 
End If 
i = i + 1 
Loop 
End Sub
Ce second code est à copier dans ThisWorkBook.
Code :
1
2
3
4
Private Sub Workbook_Open() 
Worksheets("Feuil1").Activate 
CelAujourdhui 
End Sub
Mais pour que cela fonctionne il ne faut pas que la date du jour automatisée soit en A1.
Je joins un fichier en exemple.

Bonne soirée.
Fichiers attachés
Type de fichier : xls CelDateOuv.xls (56,0 Ko, 3 affichages)
grard est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h55.


 
 
 
 
Partenaires

Hébergement Web