Clic, double clic, et lien hypertexte combinaison des 3

Océane à dit:

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.

Cliquez pour agrandir...

sousou à dit:

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

Cliquez pour agrandir...

bérylion à dit:

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

Cliquez pour agrandir...

Océane à dit:

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

Cliquez pour agrandir...

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

Océane à dit:

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+

Cliquez pour agrandir...

Océane à dit:

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+

Cliquez pour agrandir...

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