Discussion :

[jpma75]

Bonjour,

Si dans la cellule active, je récupère un lien hypertexte, le contenu de la cellule "change" mais je n'arrive pas à le détecter !

Code :

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

1
2
3
4
5
6
If Not Intersect(Target, Range("hypertexte")) Is Nothing Then
        With ActiveCell.Font
            .Size = 8
            .Name = "arial"
        End With
    End If

Le problème est qu'à l'introduction d'un lien hypertexte, la police passe en taille 10 et je n'arrive pas à la faire repasser en taille 8 (dans la mise en forme conditionnelle, il semble qu'il ne soit pas possible de modifier le nom de la police de caractère ni sa taille d'où ce bout de code)

Merci pour vos lumières,
Cordialement,
jpma75

[Philippe Tulliez]

Bonjour,
Cet article t'apportera peut-être la solution Modifier la mise en forme de police pour les liens hypertexte

Sinon, pour détecter la modification d'une valeur dans une cellule, c'est la procédure événementielle Worksheet_Change, ou encore Workbook_SheetChange et il suffit alors de créer une fonction personnalisée qui vérifie si la cellule modifiée contient un lien hypertexte.

[jpma75]

Bonjour,

Merci pour ta réponse.
De mon côté, il semble que Worksheet_change ne détecte pas de changement d'état de la cellule si je fais un clic droit/lien hypertexte (et que je sélectionne un fichier ou un répertoire).
J'ai donc ajouté ce qui suit et qui ne fonctionne pas mieux !

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
Private Sub worksheet_change(ByVal Target As Range)
    If Not Intersect(Target, Range("hypertexte")) Is Nothing Then
        With ActiveCell.Offset(-1, 0).Font
            .Size = 4
            .Name = "arial"
        End With
    End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("hypertexte")) Is Nothing Then
        With ActiveCell.Font
            .Size = 4
            .Name = "arial"
        End With
    End If
End Sub

Cordialement

[Philippe Tulliez]

Bonjour,

il semble que Worksheet_change ne détecte pas de changement d'état de la cellule si je fais un clic droit/lien hypertexte (et que je sélectionne un fichier ou un répertoire).

Alors, par acquit de conscience, j'ai effectué la même opération Clic droit sur une cellule quelconque de la feuille où se trouve la procédure événementielle, Lien et sélection d'un document et je te confirme que l'événement a bien été intercepté.

Voici le code de test

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
  MsgBox Target.Value
End Sub

Je lis dans ton code Range("hypertexte"). As-tu une cellule ou une plage nommée hypertexte ?

[pijaku]

Bonjour,

1- Le code est-il placé dans le module de la feuille correspondante?
2- Y a t'il un Range nommé (par le menu Formules/Gestionnaire de nom (ou Définir un nom)) "hypertexte?
3- Que vient faire ActiveCell.Offset(-1, 0) dans la procédure Worksheet_Change?
Ce code signifie que, par exemple, lorsque tu insères un lien hypertexte en A2, tu changes la police de A1.
C'est ce que tu souhaites?

Sinon, ce code, placé dans le module de la feuille (clic droit sur l'onglet de la feuille/visualiser le code), fonctionne très bien :

Code :

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

1
2
3
4
5
6
7
8
Private Sub worksheet_change(ByVal Target As Range)
    If Not Intersect(Target, Range("hypertexte")) Is Nothing Then
        With Target.Font
            .Size = 4
            .Name = "arial"
        End With
    End If
End Sub

[jpma75]

Bonjour,

Réponse à Philippe :

Dans le Range nommé "hypertexte" (où se trouvent différentes valeurs telles que "Doc", "Info", etc, sélectionnables par menu déroulant (validation de données) :
- Je sélectionne une valeur > l'événement est bien détecté (sans surprise)
- Je fais un clic droit sur une cellule vide et insère un lien hypertexte, l'évènement est bien détecté et il inscrit le nom du fichier lié (sans tenir compte des restrictions du menu déroulant... mais pas grave, c'est pour un test !)
- Je sélectionne une valeur, par exemple "Doc", je fais un clic droit pour insérer le lien hypertexte, et ça ne détecte pas l'évènement !

Cela confirme donc ma préoccupation,


Réponse à Pijaku :

1- Le code est-il placé dans le module de la feuille correspondante ?

Oui

2- Y a t'il un Range nommé (par le menu Formules/Gestionnaire de nom (ou Définir un nom)) "hypertexte?

Oui

3- Que vient faire ActiveCell.Offset(-1, 0) dans la procédure Worksheet_Change ?

Oups, j'avais ajouté un offset pour un Range où le changement d'état de la cellule était détecté avec ENTER !

Ce code signifie que, par exemple, lorsque tu insères un lien hypertexte en A2, tu changes la police de A1.
C'est ce que tu souhaites?

Oui, mais effectivement pas pour ce Range.

Cordialement,