Compteur à partir un lien Hypertexte

S

Seb67210

XLDnaute Junior

• 27 Mai 2010

• #2

Re : Compteur à partir un lien Hypertexte

Une personne à une idée ? svp

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 27 Mai 2010

• #3

Re : Compteur à partir un lien Hypertexte

Bonjour Seb,

voir fichier joint,
à adapter selon tes besoins

à+
Philippe

 

Pièces jointes

• 111.xls

  26.5 KB · Affichages: 141
• 111.xls

  26.5 KB · Affichages: 142
• 111.xls

  26.5 KB · Affichages: 140

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 28 Mai 2010

• #4

Re : Compteur à partir un lien Hypertexte

Merci beaucoup !!!
Je vous tiens au courant

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 28 Mai 2010

• #5

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Mai 2010

• #6

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 ?

 

Dernière édition: 28 Mai 2010

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 28 Mai 2010

• #7

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...

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 28 Mai 2010

• #8

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 28 Mai 2010

• #9

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:

Code:

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

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 28 Mai 2010

• #10

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"

 

Vote positif 0 Vote négatif

S

Seb67210

XLDnaute Junior

• 31 Mai 2010

• #11

Re : Compteur à partir un lien Hypertexte

Une personne aurait une idée ? svp

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 31 Mai 2010

• #12

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

Cliquez pour agrandir...

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"

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Juin 2010

• #13

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

 

Dernière édition: 1 Juin 2010

Vote positif 0 Vote négatif