Lien hypertexte
RésoluBonjour 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
3 réponses
-
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
-
merci c'est super et super rapide
-
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 SubBonne apm
Edit, avec le CountLarge, je ne pense plus qu'il soit utile de préserver On Error....
et la ligne Fin :
