Surligner une cellule

[THIERRY35]

Bonjour,

je cherche pour rendre un tableau plus clair, à surligner/ colorier (qu'importe la couleur pourvu que ce soit visible) la cellule active.
Lorsqu'une autre cellule est sélectionnée, la précédente perd son surlignage,
la nouvelle cellule étant surlignée à son tour.

Ci joint un extrait du tableau, le fichier réel faisant 350 lignes, et 45 colonnes
son utilisation en sera facilitée.

Merci de votre aide,

Thierry

 

[tototiti2008]

Re : Surligner une cellule

Bonjour à tous,

je l'ai fait alors je le poste...

 

[THIERRY35]

Re : Surligner une cellule

Bonjour et merci d'une réponse aussi rapide

Ca fonctionne, par contre la macro ralentit fortement la passage d'une cellule
à l'autre.

Est ce normal ?

Merci

 

[THIERRY35]

Re : Surligner une cellule

Effectivement, la proposition de TOTOTITI permet une navigation plus rapide;

Merci à vous deux .

 

[THIERRY35]

Re : Surligner une cellule

Mais je bloque, car je n'arrive pas à adapter la macro à mon fichier.

La feuille s'appelle détail, et un code est déjà présent qui me permet de documenter une fiche de synthèse
Voici le code :
Option Explicit

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ligne
Sheets("DETAIL").Select
ligne = ActiveCell.Row
Sheets("FICHE").Range("ligne").Value = ligne
Sheets("FICHE").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

En installant ton code j'ai le message ERREUR DE COMPILATION / NOM AMBIGUE/ ERREUR AMBIGUE" WORKSHEET_ SELECTION CHANGE

Merci de votre aide

 

[tototiti2008]

Re : Surligner une cellule

Re,
Bonjour masterdisco,

tu ne peux avoir qu'une procédure Worksheet_SelectionChange par feuille

 

[THIERRY35]

Re : Surligner une cellule

Entre temps j'ai récupéré ce code, qui fonctionne sur ma feuille,
sauf que bizarrement les en têtes de colonnes qui sont de couleur disparaissent dés que je clique sur une des lignes du fichier.

Comment adapter ce code pour qu'il fonctionne à partir de ligne 17 jusque ligne 450 par exemple.

Merci.



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 37
Application.ScreenUpdating = True
End Sub

 

[BOISGONTIER]

Re : Surligner une cellule

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

 

[THIERRY35]

Re : Surligner une cellule

Bonjour et merci Boisgontier pour l'adresse de to site, que j'ai d'ailleurs
déjà utilisé.

Par contre peux tu quand même me dépanner sur le code
de mon post précédent, je souhaite qu'il fonctionne pour les lignes
allant de 17 à 500.

Merci

 

[THIERRY35]

Re : Surligner une cellule

Bonjour,

entre temps je teste ton code que j'ai récupéré sur ton site, onglet ligneactivéesurlignée2 et j'ai un message d'erreur aprés avoir modifié toncode sur Set Champ [G17:AH350)
dans les 2 codes.
Le message est :Erreur de compilation variable non définie avec "champ =" surligné sur le 2ème code.
Merci de ton aide

 

[natorp]

Re : Surligner une cellule

Bjr le fil,
Thierry35 : tu as écrit Set Champ [G17:AH350) au lieu de [G17:AH350]

Est-ce l'erreur ??
Cordialement, Gérard

 

[incubus20851]

Re : Surligner une cellule

Bonjour à toute et à tous !

J'aimerais savoir comment faire pour utiliser le code de tototiti2008 pour surligner toute la ligne jusqu'à la case active et en même temps toute la colonne jusqu'à la case active ? (Pour former un L inverser à chaque fois)

J'ai fais plusieurs essai, mais rien de concluant.

Merci d'avance pour votre réponse
A bientôt

 

[tototiti2008]

Re : Surligner une cellule

Bonjour à tous,

peut-être un truc comme ça :

 

[incubus20851]

Re : Surligner une cellule

Ok merci beaucoup, c'est ce que je cherchais,

Par contre, quand je selectionne des cellules qui font se croiser le surlignage et la couleur que j'ai déjà sur mon tableau, ca m'enleve la couleur à l'intersection !
y'a quelquechose dans le code qu'il faudrait modifier ?

Merci d'avance
A bientôt

 

[tototiti2008]

Re : Surligner une cellule

Re,

Ah ben oui, ça complique... ça sous-entend de passer sur chaque cellule de ton L à l'envers, de sauvegarder sa couleur de fond. Puis quand on sélectionne une autre cellule, de les rétablir.
En plus ça risque de ne pas être immédiat.