Lien hypertexte et programmation

Version imprimable

15/09/2010, 14h08
juju1988

Lien hypertexte et programmation

Bonjour,

J'aurais une petite question, j'aimerai mettre sous certaines cellules (ex : G40, J40, ...) un lien hypertexte ayant pour intitulé "Nécessite nettoyage" (pour la petite histoire) qui lorsque l'utilisateur clique dessus... sélectionne dans la première cellule vide de la ligne 39 la valeur "Nettoyage" et me récupère le numéro de commande se situant dans ma première colonne pour l'afficher dans cette fameuse sous cette première cellule vide...

Est ce que c'est possible de programmer un hypertexte de cette manière? Si oui à quel endroit dois-je implémenter mon code? Et si vous avez des petites idées de comment faire je suis preneuse ;) sinon je me résoudrais à utiliser un vulgaire bouton :mouarf:
15/09/2010, 22h42
PPz78

Bonsoir,

Je ne comprends pas la demande :
Pour moi un lien hypertexte c'est pour ouvrir quelque chose.
Ce n'est pas ton besoin car tu cherches à faire quelque chose après un click sur une cellule.

PPz
15/09/2010, 23h05
mercatog

l'enregistreur des macros donne

Code:

ActiveSheet.Hyperlinks.Add Anchor:=Range("G40"), Address:="", SubAddress:="S40", TextToDisplay:="Nécessite nettoyage"
16/09/2010, 07h58
PPz78
Pour moi, il faut mettre le code dans :
Code:

1 2 3 Private Sub Workbook_Open() End Sub
PPz

Merci mercatog pour le code de la création du lien, et oui il doit falloir le mettre sur Workbook Open ... mais maintenant comment faire pour quand l'utilisateur clique dessus cela m'execute ma procédure qui recherche la première cellule vide que j'ai pour le moment mis derrière un clic bouton :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub bt_SievingG_Click() Windows("analyses.xls").Activate Range("A39").Select Do While i < 18 For i = 2 To 18 If Cells(39, i) <> "" Then Windows("analyses.xls").Activate Range("A39").Select Do While Not (IsEmpty(ActiveCell)) NbCellule = NbCellule + 1 Selection.Offset(0, 1).Select Loop End If Next i Loop ActiveCell.Value = "Sieving" End Sub

16/09/2010, 20h18
PPz78

Bonsoir,

Mais quelle est la question?
Qu'est-ce qui ne fonctionne pas?

PPz

Rien qui ne fonctionne pas ...
J'ai juste ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub bt_SievingG_Click()
Windows("analyses.xls").Activate
Range("A39").Select
Do While i < 18
    For i = 2 To 18
        If Cells(39, i) <> "" Then
            Windows("analyses.xls").Activate
            Range("A39").Select
            Do While Not (IsEmpty(ActiveCell))
                NbCellule = NbCellule + 1
                Selection.Offset(0, 1).Select
            Loop
        End If
    Next i
Loop
ActiveCell.Value = "Sieving"
End Sub

Que j'aimerai mettre à la place non pas sur un bouton mais sur un lien hypertexte ... Et je ne sais pas où le mettre...

Bonjour,
un truc comme ça peut-être, avec un déclenchement sur l'événement Worksheet_Followhyperlink et ta fonction ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
        Call Proc_Sieving
End Sub
 
Private Sub Proc_Sieving()
Windows("analyses.xls").Activate
Range("A39").Select
Do While i < 18
    For i = 2 To 18
        If Cells(39, i) <> "" Then
            Windows("analyses.xls").Activate
            Range("A39").Select
            Do While Not (IsEmpty(ActiveCell))
                NbCellule = NbCellule + 1
                Selection.Offset(0, 1).Select
            Loop
        End If
    Next i
Loop
ActiveCell.Value = "Sieving"
End Sub

Pour info il est possible de passer l'adresse de la cellule appelante à la fonction, si besoin.

17/09/2010, 11h50
juju1988

Oui quelque chose comme ça :D mais j'aurais effectivement besoin de l'adresse de ma cellule où se trouve le lien hypertexte pour après...

Citation:

Envoyé par juju1988

j'aurais effectivement besoin de l'adresse de ma cellule où se trouve le lien hypertexte pour après...

Ah non, tiens, je pensais que la méthode Target.Range donnerait la cellule appelante mais en fait elle donne la valeur de cette cellule. Ce qui peut être utile, ceci dit, mais ce n'est pas la même chose.
Désolé.

J'ai sans doute une solution pour avoir l'adresse :

Lors de la création de l'hyperlien, renseigner la propriété SubAddress en plus des propriétés obligatoires, en y mettant l'adresse de la cellule où on met l'hyperlien (en rouge) :
Code:

1 2 3 4 5 6 Sub Creation_Hyperlink() 'création de l'hyperlien en A4 : With Worksheets(1) .Hyperlinks.Add .Range("A4"), "http://google.fr", SubAddress:="A4", TextToDisplay:="Texte" End With End Sub
Ici j'ai mis l'adresse en dur, mais on peut évidemment faire ça par variable. On peut aussi mettre l'url (en vert) à vide avec "", vu qu'il semble quelle ne doive servir à rien dans ce cas.

Ensuite on peut récupérer les infos suivantes via l'événement Worksheet_FollowHyperlink
Code:

1 2 3 4 5 6 Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) a = Target.Range 'donne la valeur de la cellule b = Target.SubAddress 'donne la valeur entrée en subadress précédemment, ici l'adresse de la cellule donc c = Target.Address 'donne l'url, si elle est renseignée 'Eventuellement ici mettre du code ou un appel de fonction End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
 With Worksheets(1)
    .Hyperlinks.Add .Range("G40"), "", SubAddress:="G40"
    .Hyperlinks.Add .Range("J40"), "", SubAddress:="J40"
    .Hyperlinks.Add .Range("K40"), "", SubAddress:="K40"
    .Hyperlinks.Add .Range("M40"), "", SubAddress:="M40"
    .Hyperlinks.Add .Range("N40"), "", SubAddress:="N40"
    .Hyperlinks.Add .Range("O40"), "", SubAddress:="O40"
    .Hyperlinks.Add .Range("P40"), "", SubAddress:="P40"
    .Hyperlinks.Add .Range("Q40"), "", SubAddress:="Q40"
    .Hyperlinks.Add .Range("R40"), "", SubAddress:="R40"
End With
 
End Sub

Voici mon ajout de liens hypertextes, comment puis-je faire pour paramétrer le texte à afficher??

17/09/2010, 16h45
neupont

Citation:

Envoyé par juju1988

Voici mon ajout de liens hypertextes, comment puis-je faire pour paramétrer le texte à afficher??

Code:

.Hyperlinks.Add .Range("G40"), "", SubAddress:="G40", TextToDisplay:="Nécessite nettoyage"

Ok mon code fonctionne super merci encore.

Voici mon code qui se crée à l'ouverture de la feuille Excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
 With Worksheets(1)
    .Hyperlinks.Add .Range("G40"), "", SubAddress:="G40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("J40"), "", SubAddress:="J40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("K40"), "", SubAddress:="K40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("M40"), "", SubAddress:="M40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("N40"), "", SubAddress:="N40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("O40"), "", SubAddress:="O40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("P40"), "", SubAddress:="P40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("Q40"), "", SubAddress:="Q40", TextToDisplay:="Nécessite Sieving"
    .Hyperlinks.Add .Range("R40"), "", SubAddress:="R40", TextToDisplay:="Nécessite Sieving"
End With
 
End Sub

Voici le code qui s'execute quand l'utilisateur clique sur le lien hypertexte (à mettre dans la feuille) :

Code:

1
2
3
4
5
6
7
8
Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim nomCel As String
nomCel = Target.SubAddress
 
    MsgBox nomCel
    Call recupNumCmdTttEtPremCel(nomCel)
 
End Sub

Encore merci pour votre aide :D