Discussion :

[maniolo]

Bonjour à tous, je n'y connais rien en vba, j'aurais donc besoin d'un serieux coup de main, tout est dans le titre, j'ai une colonne contenant pour chaque ligne un lien hypertext et une checkbox (dans des cellules différentes) et je voudrais que la checkbox soit cocher (et qu'idéalement la cellule contenant la checkbox change de couleur, du rouge au vert) apres un clic sur le lien.

J'ai fait quelques recherche sur le site et le net, apparemment le mieux serait d'utiliser la méthode Worksheet_SelectionChange(ByVal Target As Range)
qui va récupérer l'evenement de la cellule contenant le lien hypertext et y mettre le code ou la macro qui va cocher la chekbox concernée.

Tout ca n'est que pure théorie et je ne sais pas comment mettre en forme tou cela, merci de votre aide!!!

[maniolo]

Bon j'ai bien mes checkbox qui font changer la couleur de la cellule grace à la mise en forme conditionnelle mais je ne sais toujours pas comment lier ce controle avec ma cellule contenant le lien hypertext...

[Pierre Fauconnier]

Bonjour

Je suppose que la case à cocher est une case à cocher "formulaire" liée à une cellule.

Il me semble donc plus simple de faire varier la cellule liée, ce qui cochera/décochera la case à cocher.

De plus, il est préférable d'utiliser l'événement "FollowHyperlink", à mon avis.

En imaginant que les cellules liées aux cases à cocher sont à droite de celles contenant les hyperliens, tu pourrais avoir ceci

Code :

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

1
2
3
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveCell(1, 2) = 1
End Sub

Si tous les hyperliens ne doivent pas modifier la valeur de la cellule à leur droite, tu peux tester l'appartenance de la cellule contenant l'hyperlien à une plage déterminée.

Code :

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

1
2
3
4
5
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Not Intersect(ActiveCell, Range("plage")) Is Nothing Then
        ActiveCell(1, 2) = 1
    End If
End Sub

[maniolo]

Merci pour ta réponse, c'est parfait