Clic, double clic, et lien hypertexte combinaison des 3

[Océane]

Bonjour le forum
C'est un appel aux spécialistes macro que je ne suis pas.
Merci d'avance, les explications sont avec la feuille 1 de l'exemple joint.

 

[sousou]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour Océane

Pour mettre une couleur sur la cellule utilise la gestion de l'évènement SheetFollowHyperlink
Pour supprimer, je n'arrive pas à ne pas lancer le lien, peut_être en utilisanat le dbclick sur la cellule du dessus??
Voir ci-dessous code dans workbook


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Offset(1, 0).Interior.ColorIndex = 5 Then ActiveCell.Offset(1, 0).Interior.ColorIndex = 0
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveCell.Interior.ColorIndex = 5
End Sub

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonsoir et merci SOUSOU
Pour changer la couleur? il me faudrait une couleur plus pale que le bleu foncé, je change quel paramètre ?
Si le double clic n'est pas possible, il y a t-il un moyen de revenir à la situation d'avant ...comme avec les petites flèches.
A+

 

[bérylion]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour le forum
C'est un appel aux spécialistes macro que je ne suis pas.
Merci d'avance, les explications sont avec la feuille 1 de l'exemple joint.

Salut

chui pas non plus spécialiste, mais en cherchant un peu on arrive à faire presque tout (sauf des frites...)

le fichier est un peu lourd avec les screenshots : dispo ici

Enjoy...

 

[bérylion]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour Océane

Pour mettre une couleur sur la cellule utilise la gestion de l'évènement SheetFollowHyperlink
Pour supprimer, je n'arrive pas à ne pas lancer le lien, peut_être en utilisanat le dbclick sur la cellule du dessus??
Voir ci-dessous code dans workbook


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Offset(1, 0).Interior.ColorIndex = 5 Then ActiveCell.Offset(1, 0).Interior.ColorIndex = 0
End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveCell.Interior.ColorIndex = 5
End Sub

Salut

pour pas lancer le lien, faut double-cliquer dans la cellule, mais pas sur le lien.

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour bérylion
Merci d'avoir répondu, je ne sais pas si chez toi çà fonctionne mais voila le message que j'obtiens en cliquant sur la cellule

Bon weekend

 

[JNP]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour le fil 🙂,

chui pas non plus spécialiste, mais en cherchant un peu on arrive à faire presque tout (sauf des frites...)

Notre ami serait-il Belge ? Pour moi, c'est uniquement le café qu'Excel ne sait pas faire 😛...

Merci d'avoir répondu, je ne sais pas si chez toi çà fonctionne mais voila le message que j'obtiens en cliquant sur la cellule

Notre ami a oublié un petit détail 🙄...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range(Target.Address).Style = "cliqué" Then Range(Target.Address).Style = "non cliqué"
Cancel = True
End Sub

le fait de passer Cancel à True annule l'action du double clic, et le lien repasse en non cliqué 😉.
Bon WE 😎
PS : Bien ton petit tuto Bérylion 😀.

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour JNP
S'agit-il d'une nouvelle instruction ou remplace t-elle une des deux; j'ai fais des essais mais j'arrive tjrs au même message d'erreur.
Si çà fonctionne chez toi, peux tu m'envoyez le fichier.
Merci d'avance

 

[JNP]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Re 🙂,
Il suffit juste d'ajouter

Cancel = True

dans le code existant.
Et il faut bien double cliquer à droite de la cellule, là où le lien n'apparait pas 😛.
Je te mets le fichier, mais j'ai changé le lien pour simplifier 🙄...
Bon WE 😎

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Re bonjour

Je suis en train d'étudier le tuto de Bérylion, mais je ne comprends pas comment au dessus de "Bon,mauvais et neutre" dans style de cellule, tu as "cliqué" "non cliqué"
A+

 

[bérylion]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Re bonjour

Je suis en train d'étudier le tuto de Bérylion, mais je ne comprends pas comment au dessus de "Bon,mauvais et neutre" dans style de cellule, tu as "cliqué" "non cliqué"
A+

Salut

tout simplement parce-que je les ai créés comme indiqué dans le tuto.

et oui, j'ai aussi le message d'alerte comme quoi le fichier "bip.mp3" est une menace potentielle.

à JNP :

oui, c'est mieux avec un cancel = true
(au passage, on peut faire du café avec excel !!! - mais pas des frites ni coller les timbres)

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour béryllon
C'est pas normal pour un début de semaine d'être fatigué au point de ne pas avoir compris ton tuto plus rapidement, mais cette fois c'est bon je suis arrivé à reproduire la même chose que toi, sauf qu(il ne se comporte pas de la même manière.
Je n'ai plus le message de mise en garde du fichier MP3, et après le double clic pour modifier la couleur, mon curseur clignote, et me donne la main pour changer le texte de la cellule....
A+

 

[bérylion]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Bonjour béryllon
C'est pas normal pour un début de semaine d'être fatigué au point de ne pas avoir compris ton tuto plus rapidement, mais cette fois c'est bon je suis arrivé à reproduire la même chose que toi, sauf qu(il ne se comporte pas de la même manière.
Je n'ai plus le message de mise en garde du fichier MP3, et après le double clic pour modifier la couleur, mon curseur clignote, et me donne la main pour changer le texte de la cellule....
A+

Salut,

oui, JNP en avait fait la remarque.

utilise ce code pour éviter ce désagrément :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Range(Target.Address).Style = "cliqué" Then _
    Range(Target.Address).Style = "non cliqué": Cancel = True
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Target.Range.Style = "cliqué"
End Sub

 

[Océane]

Re : Clic, double clic, et lien hypertexte combinaison des 3

Super bérylion, mon besoin est couvert, c'est exactement ce qu'il me fallait.
Bonne semaine