M
michel33
Guest
Bonjour
Dans un classeur excel(97)j'ai 2 feuilles avec des liens hypertexte des cellules
de la feuille 1 vers les cellules de la feuille 2.Lorsque je clique sur une cellule
de la feuille 1 la macro selectionne la feuille 2 et fait clignoter la cellule
correspondante et enfin,retour vers la feuille 1;malheureusement,si je selectionne a
nouveau la meme cellule,le clignotement ne se fait pas.
Je pense que ça doit venir du mode de declaration de la macro;mais je ne vois pas
comment la modifier.
macro utilisée:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
For k = 1 To 7
For T = 1 To 300
Target.Interior.ColorIndex = 3
Next T
For T = 1 To 300
Target.Interior.ColorIndex = 2
Next T
If k = 7 Then
Target.Interior.ColorIndex = xlNone 'fond incolore
Target.Font.ColorIndex = 1 'caractères en noir
Worksheets('feuill1').Select
End If
Next k
End Sub
Un peu d'aide SVP
merci d'avance
michel33
Dans un classeur excel(97)j'ai 2 feuilles avec des liens hypertexte des cellules
de la feuille 1 vers les cellules de la feuille 2.Lorsque je clique sur une cellule
de la feuille 1 la macro selectionne la feuille 2 et fait clignoter la cellule
correspondante et enfin,retour vers la feuille 1;malheureusement,si je selectionne a
nouveau la meme cellule,le clignotement ne se fait pas.
Je pense que ça doit venir du mode de declaration de la macro;mais je ne vois pas
comment la modifier.
macro utilisée:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
For k = 1 To 7
For T = 1 To 300
Target.Interior.ColorIndex = 3
Next T
For T = 1 To 300
Target.Interior.ColorIndex = 2
Next T
If k = 7 Then
Target.Interior.ColorIndex = xlNone 'fond incolore
Target.Font.ColorIndex = 1 'caractères en noir
Worksheets('feuill1').Select
End If
Next k
End Sub
Un peu d'aide SVP
merci d'avance
michel33