Couleur du curseur

Question

Bonjour à tous,

Je cherche comment modifier la couleur du curseur qui encadre les cellules visitées.
Cela est-il faisable?

Merci pour votre aide.

Mike-31 · Answer

Bonjour,

Certainement mais que veux tu faire exactement colorier le tour de la cellule active et après ?

CLAVERELI · Answer

Bonjour Mike-31

En fait je déplace mon curseur avec TAB.
Dans le foisonnement de cellules, j'ai du mal à repérer l'emplacement actuel de mon curseur. Si l'entourage de ce curseur était jaune par exemple, cela me permettrait de savoir où il est positionné.
Bien entendu après son passage il ne doit subsister aucune trace dans la cellule quittée.
Et ainsi de suite pour toutes les cellules non protégées, puis retour à l'origine.

Mike-31 · Answer

Re,

Je pense qu'il serait plus visible si le fond de cellule était colorisée

clic droit sur l'onglet de ta feuille/Visualiser le code et colle un de ces deux codes dans le visual MAIS PAS LES DEUX qui seront en conflit 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Selection, [A1:E100]) Is Nothing Then
[A1:E100].Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 6
End If
End Sub
 
maintenant si tu veux tester la bordure

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Selection, [A1:E100]) Is Nothing Then
   Range("A1:E100").Borders.ColorIndex = xlNone
   ActiveCell.Borders.Weight = xlThin
   ActiveCell.Borders.ColorIndex = 3
   End If
End Sub

CLAVERELI · Answer

A Mike-31,

Merci pour tes propositions. Finalement j'ai adopté la seconde qui consiste à mettre en évidence la bordure par la couleur. Cela répond à mon attente.

Dans une autre feuille, du même classeur je souhaite coloriser toute une ligne à longueur fixe (7 cellules) dans le but de mettre en évidence la ligne sur laquelle je travaille.
Cette mise en évidence doit être mobile du haut vers le bas et inversement soit par l'utilisation de la souris soit par les flèches de direction.
Sans vouloir abuser de ta gentillesse peux tu m'aider sur cette nouvelle question qui reste dans le sujet de départ?
Bien cordialement.

Mike-31 · Answer

Re,

Dans les propriétés de ta feuille (clic sur l'onglet de feuille/Visualiser le code)

colle ce code, qui colorisera la ligne de la colonne A à O mais attention tu ne peux utiliser qu'une fois la syntaxe 
Private Sub Worksheet_SelectionChange


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If Not Intersect([A2:O50], Target) Is Nothing And .Count = 1 Then
[A2:O50].Interior.ColorIndex = xlNone
Range(Cells(.Row, 1), Cells(.Row, 15)).Interior.ColorIndex = 36
End If
End With
End Sub

CLAVERELI · Answer

Merci, comme les autres propositions celle-ci répond bien à ma question.
Toutes fois elles ont toutes trois le gros inconvénient de supprimer les cellules colorées par construction dès lors que l'une ou l'autre est activée.
Cela m'obligerait à recommencer un long travail de mise en forme si je ne prends pas la précaution de faire l'essai sur une copie.
Quelle est l'explication et comment résoudre cette question?
Merci pour ton aide.

Mike-31 · Answer

Re,

Si tu donnais toutes les indications sur la structure de ton fichier cela nous ferait gagner beaucoup de temps, tu as donc des cellules colorées, mais sur quel critères sont elles colorées, il est peut être possible de piloter cette colorisation par mise ne forme conditionnelle ?

ensuite, comme je te le disais sur mon dernier post, tu ne peut utiliser plusieurs fois cette syntaxe pour la même feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

tout comme tu ne peux avoir deux fichiers du même nom dans le même répertoire ou deux onglets identiquement nommés, alors il faut imbriquer les codes successifs dans cette syntaxe d'ou la nécessité de connaitre tous les paramètres du fichier et le mieux est de le mettre à notre disposition sans notes confidentielles avec ce lien

https://www.cjoint.com/

Fais vite à partir de demain je serais absent pour un mois

CLAVERELI · Answer

Mike-31
Voici un extrait (tout petit) du fichier demandé.

	http://cjoint.com/?0GziRX6lzij

En fait dans sa structure il est tout simple. La mise en forme va en se compliquant à partir de la ligne 150 qui n'est pas extraite ici pour des raisons de préservation de mon travail. Mais sur le fond rien de plus sophistiqué que ce qui est dans cet extrait. Quant à utiliser les conditionnels de couleurs c'est hors sujet car ce coloriage est uniquement un guide visuel pour l'utilisateur.
Merci de intéresser à mon problème mais rien n'est urgent. Si pars en vacances je ta souhaites les plus belles de ta vie et "quien sabe?", peut-être à ton retour.
Cordialement.

eriiic · Answer

Bonjour à tous,

une proposition : faire un clic-droit en colonne B de la ligne que tu veux surligner pour lancer.
Désolé mike, j'avais démarré avant que tu ne te réveilles...
Bonnes vacances à toi :-)
https://www.cjoint.com/c/CGzjlamMxL9

eric

CLAVERELI · Answer

Merci Eriic,
Et bonjour,
Intéressant. Sauf que au delà la dernière ligne visible à l'écran ton marqueur de ligne (vert) ne déplace pas la feuille et il faut aller le chercher. Mais cela reste une méthode pour d'autres applications. De plus fenêtre permettant de faire défiler les numéros de lignes ne m'est d'aucune utilité ici car elle complique la tâche de saisies.
Merci encore.
PS: pas de vacances cette année?

Mike-31 · Answer

Re,

Salut Eriiic Merci d'avoir pris le relais, je suis sur le départ et vraiment pas le temps de poursuivre la discussion

J'aurais une pensée les pieds dans l'eau à l'ombre des cocotiers devant une verre qui sue, j'espère servi par une vahinée 
Cordialement

Couleur du curseur

11 réponses

Discussions similaires

Newsletters