Compteur à partir un lien Hypertexte

[Seb67210]

Bonjour à toute et à tous !

Je souhaiterais savoir comment réaliser une fonction de comptage à partir d'un lien hypertexte, je m'explique...

J'ai réalisé un glossaire afin de faciliter la recherche de documents, j'ai crée un bouton " consulter " qui ouvre un document world, excel etc..
Donc 1 bouton = 1 lien hypertexte = 1 document.

J'aimerais savoir comment faire pour comptabiliser le nombre ouverture de chaque document ?
Lorsque je clique sur le lien hypertexte j'aimerais incrémenter un compteur afin de savoir combien de fois l'on a cliqué sur ce lien et donc combien de fois l'on a ouvert ce document ...

Avez vous une idée svp ?

Merci d'avance

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Une personne à une idée ? svp

 

[phlaurent55]

Re : Compteur à partir un lien Hypertexte

Bonjour Seb,

voir fichier joint,
à adapter selon tes besoins

à+
Philippe

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Merci beaucoup !!!
Je vous tiens au courant

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Je rencontre un soucis, cela ne fonctionne pas sur mon pc.
Les compteurs ne s'incrementent pas.

Peux tu m'expliquer comment cela fonctionne ? je ne trouve pas le code .

Merci d'avance

 

[jeanpierre]

Re : Compteur à partir un lien Hypertexte

Bonjour Seb67210, Philippe,

phlaurant étant déconnecté,

Le code se trouve dans le module de feuille.

Clic droit sur l'onglet Feuil1 et Visualiser le code.

Bonne journée.

Jean-Pierre

Edit : As-tu bien activé les macros à l'ouverture ?

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Merci pour ta réponse cependant si tu réalises cette opération tu verras qu'il n'y a pas de code...

 

[jeanpierre]

Re : Compteur à partir un lien Hypertexte

Re,

Le code est bien présent, je viens de tester.

Ne serais-tu pas sur un serveur d'entreprise qui vire les macros au téléchargement ?

Sinon le code de phlaurent :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4:A6")) Is Nothing Then
Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value + 1
End If
End Sub

A adapter à ton cas.


Jean-Pierre

 

[pierrejean]

Re : Compteur à partir un lien Hypertexte

bonjour a tous

Il existe bien un code dans le module de la feuille 1 (et il fonctionne)
le voici:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4:A6")) Is Nothing Then
Cells(Target.Row, 4).Value = Cells(Target.Row, 4).Value + 1
End If
End Sub

Cependant il est exigé :
1) que le lien fasse sortir de la feuille
2) que le retour soit assuré sur la feuille et dans la cellule comportant le compteur

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Serait il possible d'incrementer le compteur dès que l'on clique sur le lien ?
Dans mon cas le lien va ouvrir une procédure et celle-ci n'aura pas de bouton "retour"

 

[Seb67210]

Re : Compteur à partir un lien Hypertexte

Une personne aurait une idée ? svp

 

[phlaurent55]

Re : Compteur à partir un lien Hypertexte

Re, bonjour à tous,

@ pierre-jean

Cependant il est exigé :
1) que le lien fasse sortir de la feuille
2) que le retour soit assuré sur la feuille et dans la cellule comportant le compteur

Absolument pas PierreJean.......... le compteur s'incrémente dès le clic sur le lien; que le lien dirige vers une autre feuille, une autre cellule de la même feuille, vers une adresse url ou autre chose, cela n'a pas d'importance

@ seb67210

Serait il possible d'incrementer le compteur dès que l'on clique sur le lien ?
Dans mon cas le lien va ouvrir une procédure et celle-ci n'aura pas de bouton "retour"

c'est ce qui se passe
mais il n'y a pas besoin de bouton retour.
pour t'en convaincre, prends la peine de rouvrir le fichier, clique sur un lien de la première feuille qui va forcément te diriger vers une autre feuille.
Maintenant, au lieu de cliquer sur le bouton retour, tu reviens sur la première feuille en cliquant sur l'onglet de la première feuille ( dans le bas de ton écran côté gauche) et tu verras que le compteur a bien été incrémenté .................. cqfd

à+
Philippe

 

[pierrejean]

Re : Compteur à partir un lien Hypertexte

Re

A une condition cependant c'est que les liens hypertexte soient situés en A4 a A6 , la macro etant declenchée par la selection de la cellule
Il y a donc a faire une adaptation de la macro au positionnement des hypertextes
Au surplus si on reste sur la même feuille le compteur du lien en dessous va egalement s'incrementer