cellule de la ligne active en évidence

7 réponses

jack

11/08/2005 à 16:09

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que toute
la ligne de la cellule active change de couleur ou soit mise en évidence.

Merci de votre aide.

7 réponses

garnote

11/08/2005 à 16:15

Salut Jack,

Peut-être que :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Interior.ColorIndex = 5
End Sub

Serge

"jack" a écrit dans le message de news:

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que
toute
la ligne de la cellule active change de couleur ou soit mise en évidence.

Merci de votre aide.

Michel Pierron

11/08/2005 à 16:25

Bonjour jack;
Un peu moins agressif et seulement pour la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Rows.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
End Sub

MP

"jack" a écrit dans le message de news:

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que
toute

la ligne de la cellule active change de couleur ou soit mise en évidence.

Merci de votre aide.

garnote

11/08/2005 à 16:41

Mieux ainsi mais c'est d'une lenteur ;-)
Comment faire pour accélérer ?

Serge

"Michel Pierron" a écrit dans le message de news:
%

Bonjour jack;
Un peu moins agressif et seulement pour la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Rows.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
End Sub

MP

"jack" a écrit dans le message de news:

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que
toute

la ligne de la cellule active change de couleur ou soit mise en évidence.

Merci de votre aide.

garnote

11/08/2005 à 17:05

Toutes mes excuses. Ça va très vite.
C'est mon ordi qui était coincé dans
je ne sais quoi !

Serge

"Michel Pierron" a écrit dans le message de news:
%

Bonjour jack;
Un peu moins agressif et seulement pour la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Rows.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
End Sub

MP

"jack" a écrit dans le message de news:

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que
toute

la ligne de la cellule active change de couleur ou soit mise en évidence.

Merci de votre aide.

Michel Pierron

11/08/2005 à 17:09

Bonjour garnote;
Chez moi, c'est fulgurant !
Mais tu peux mettre en mémoire l'ancienne ligne pour voir si c'est plus
rapide:

Private i&

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Rows(i).EntireRow.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
i = Target.Row
End Sub

MP

"garnote" a écrit dans le message de news:

Mieux ainsi mais c'est d'une lenteur ;-)
Comment faire pour accélérer ?

Serge

"Michel Pierron" a écrit dans le message de news:
%
Bonjour jack;
Un peu moins agressif et seulement pour la ligne active:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Rows.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 24
End Sub

MP

"jack" a écrit dans le message de news:

Bonjour, lorsque je me déplace d'une cellule à l'autre, j'aimerais que
toute

la ligne de la cellule active change de couleur ou soit mise en
évidence.

Merci de votre aide.

ClémentMarcotte

11/08/2005 à 17:22

C'est mon ordi qui était coincé dans
je ne sais quoi !

Ça doit être quelque chose du genre 6 équations à 32 inconnues ;-)

garnote

11/08/2005 à 17:25

;-)))))

"ClémentMarcotte" a écrit dans le message de
news:

C'est mon ordi qui était coincé dans
je ne sais quoi !

Ça doit être quelque chose du genre 6 équations à 32 inconnues ;-)

cellule de la ligne active en évidence

7 réponses

Veuillez sélectionner un problème