Couleur du curseur

Curseur
Autocad

CLAVERELI -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention - 25 juil. 2013 à 18:32

Bonjour à tous,

Je cherche comment modifier la couleur du curseur qui encadre les cellules visitées.
Cela est-il faisable?

Merci pour votre aide.

Répondre (11)

A voir également:

Changer couleur curseur autocad
Changer dns - Guide
Ancienne version autocad gratuite - Télécharger - CAO-DAO
Code couleur rj45 - Forum câblage
Changer la couleur de la barre des taches - Guide
Excel cellule couleur si condition texte - Guide

11 réponses

Réponse 1 / 11

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Bonjour,

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

Réponse 2 / 11

CLAVERELI

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.

Réponse 3 / 11

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Réponse 4 / 11

CLAVERELI

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.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Réponse 6 / 11

CLAVERELI

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.

Réponse 7 / 11

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Réponse 8 / 11

CLAVERELI

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.

Réponse 9 / 11

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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

Réponse 10 / 11

CLAVERELI

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?

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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.
Qui peut le plus peut le moins. C'était pour indiquer rapidement un n° de ligne, pas obligé de l'utiliser.
Il y a la toupie pour monter ou descendre la ligne...

Je pensais que tu voulais repérer une ligne et travailler sur une autre.
C'est donc plus simple : https://www.cjoint.com/c/CGzmg57fbwH

eric

Réponse 11 / 11

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Bonne vacances à toi, profites bien :-)
Dimanche pour moi aussi ;-)
eric

Répondre Posez votre question

Votre réponse

Discussions similaires

problème de déplacement du curseur

arcades -
R4 -

10 réponses

Curseur invisible dans autocad

corbu -
hakim -

4 réponses

[Autocad 2007] Problème avec mon curseur

Arth -
Liberi -

7 réponses

[Autocad] curseur invisible

fab64 -
anna -

3 réponses

Virus : curseur qui bouge seul

jeremymagi -
Nomesis -

16 réponses

Souris tactile disparue !!!

shokshokapic -
Herve -

17 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire