lien hypertexte Résolu

Question

Bonjour le forum, je reviens vers vous pour sollicité votre aide, et vous remercié pour l'aide déjà apporter.

J'ai un ficher Excel avec cette formule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("AJ3:AJ100")) Is Nothing Then
        Range("AJ3:AJ100").Interior.Color = vbWhite
        Target.Interior.Color = RGB(255, 255, 0)
    End If
Fin:

End Sub

Exemple : lorsque je clic sur le lien et qu'il me ramène vers la cellule AJ3 elle se colorie en jaune, mais j'aimerai que la cellule AK3 se colorie aussi en jaune

merci

cousinhub29 · Answer

Bonjour,

Une solution

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.CountLarge > 1 Then Exit Sub 'CountLarge, car le nombre de cellules dépasse la capacité de Count
    If Not Intersect(Target, Range("AJ3:AJ100")) Is Nothing Then
        Range("AJ3:AJ100").Resize(, 2).Interior.Color = vbWhite
        Target.Resize(, 2).Interior.Color = RGB(255, 255, 0)
    End If
Fin:
End Sub

Bonne apm

Edit, avec le CountLarge, je ne pense plus qu'il soit utile de préserver On Error....

et la ligne Fin :

litchoutsou · Answer

merci c'est super et super rapide

litchoutsou · Answer

la formule plus haut fonctionne très bien, mais je viens de constater que lorsque je mets une protection avec un mot de passe pour protéjer une partie de la feuille et que je clic sur le lien hypertexte le coloriage ne se fait pas

Lien hypertexte

3 réponses

Votre réponse

Discussions similaires