Discussion :

[Bubale]

Bonsoir à tous,
j'aimerai savoir s'il est possible de créer un lien hypertexte qui redirigerait vers une macro: en gros, je voudrais que dès que je clique sur une phrase (ou sur une cellule), une macro se lance!
Quelqu'un pourrait-il m'aider?
Merci!

[zyhack]

bonsoir

dans le code de ta feuille utilise ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = Range("C2").Address Then
    msgbox "le traitement que tu veux faire" 'ligne à modifier
  End If
End Sub

le code est exécuté a chaque fois que tu clic sur une cellule et quand tu clic sur la cellule C2 le msgbox apparait

[Bubale]

Bonsoir!
Merci pour ton code, ca marche, mais j'ai un soucis qui fait que je ne peux pas l'utiliser dans mon programme car dès que je rentre une valeur dans la cellule par VBA, il lance la macro, alors que je voudrais qu'elle se lance uniquement lorsque c'est l'utilisateur qui clique sur la cellule!!
On ne peux pas atteindre un macro via un lien hypertexte? Y a-t-il une autre solution?
Merci!

[fring]

Bonsoir,

Je me permet d'intervenir, ce que zyhack t'a proposé est pourtant tout à fait correct, es-tu certain d'avoir mis le code dans l'évènement Worksheet_SelectionChange et pas dans Worksheet_Change ?

Dans l'évènement SelectionChange rien ne se passe si l'on modifie la cellule via VBA

[Bubale]

Oui oui, j'ai bien mis selectionchange, mais quand je modifie la valeur par VBA, je suis obligé de faire un range.select car je dois modifier des propriétés de la cellule.enfin bref, mais j'ai un autre soucis, c'est que lorsque je supprime la cellule considéré, il me lance un débeugage dans le code de la feuille!
Donc ca m'arrangerai en fait, de mettre directement un lien hypertexte! Vous savez comment faire?
Merci

[fring]

je suis obligé de faire un range.select car je dois modifier des propriétés de la cellule

Obligé pour modifier des propriétés...? Je peux voir ton code stp ?

En attendant je regarde pour le lien hypertexte parce que de mémoire je ne me souviens plus du code mais je reste convaincu que cela doit fonctionner via le SelectionChange

[Abed_H]

Bonsoir
creer un lien dans une feuille puis utilise l'evenement FollowHyperlink de la feuille comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
la macro
End Sub

Bonne soirée.

[Bubale]

Voila le code qui modifie la forme du texte entré dans la cellule J&Nolign. C'est aussi une partie de la colonne J de la page accueil dont je surveille la selection par l'utilisateur via le code Worksheet_SelectionChange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
      Sheets("accueil").Select
      Range("J" & NoLign).Select
      ActiveCell.FormulaR1C1 = "Imprimer"
      With ActiveCell.Characters(Start:=1, Length:=8).Font
            .Name = "Arial"
            .FontStyle = "Gras"
            .Size = 10
            .Underline = xlUnderlineStyleSingle
            .Color = -16776961
            .TintAndShade = 0
            .ThemeFont = xlThemeFontNone
        End With

[fring]

Ceci ne pourrait pas faire l'affaire ? (sans sélectionner la cellule)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With Range("J" & NoLign)
    .Value = "Imprimer"
    .Font.Name = "Arial"
    .Font.Bold = True
    .Font.Size = 10
    .Font.Underline = xlUnderlineStyleSingle
    .Font.ColorIndex = 8 '<-- à adapter
End With

[Montor]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 232.5, 147.75, _
        63#, 30.75).Select
    Selection.Characters.Text = "Imprimer"
   With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = 8
        End With
    Selection.OnAction = "Macro3"