Enlever le contour de sélection d'une cellule

Bonjour,

J'ai un fichier Excel contenant plusieurs feuilles avec protection de certaines cellules.

J'aimerais enlever le contour de sélection de certaines cellules où dans un premier temps retirer le contour de toutes les cellules d'une feuille bien définie... toutes les feuilles ne doivent pas enlever le contour de sélection !

J'ai trouvé ceci sur le Web, mais impossible de le faire fonctionner...

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static OldCA$, OldCC% If Selection.Count = 1 Then If Not Target = OldCA Then Range(OldCA).Interior.ColorIndex = OldCC OldCA = Target.Address OldCC = Target.Interior.ColorIndex Target.Interior.ColorIndex = 6 Else OldCA = Target.Address OldCC = Target.Interior.ColorIndex End If End If End Sub

---

Est-ce possible ?

Merci d'avance pour votre aide :)

Bonjour,

Citation:

---

J'ai trouvé ceci sur le Web, mais impossible de le faire fonctionner...

---

C'est à dire ?
Il ne se passe rien ?
il y a un message d'erreur ? si oui, lequel
etc.

Bonjour et merci pour votre réponse :)

Voici mon code (code sur l'onglet [Intro])

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Activate(ByVal Target As Range) Static OldCA$, OldCC% If Selection.Count = 1 Then If Not Target = OldCA Then Range(OldCA).Interior.ColorIndex = OldCC OldCA = Target.Address OldCC = Target.Interior.ColorIndex Target.Interior.ColorIndex = 6 Else OldCA = Target.Address OldCC = Target.Interior.ColorIndex End If End If End Sub

---

Quand je vais sur l'onglet [Intro], j'ai ce message :

Citation:

---

Erreur de compilation
La déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom

---

A savoir que toutes les cellules de cet onglet sont protégées SAUF UNE et c'est sur cette cellule que ne devrait pas apparaitre le contour de sélection...

Bonjour,

Remplacez

Code:

---

Private Sub Worksheet_Activate(ByVal Target As Range)

---

par

Code:

---

Private Sub Worksheet_Activate()

---

Cdlt

Cela n'engendre plus de message d'erreur, mais j'ai toujours le contour...

A minima, il faudra aussi remplacer les Target à l'intérieur du code par des ActiveCell.

Mais je doute que ça suffise.
Parce que je ne comprends pas très bien ce qu'est supposé faire ce code mais je doute que Worksheet_Activate soit l'évènement adéquat pour le faire.

Bonjour,
Il est tout à fait normal qu'il ne se passe rien de particulier.
Déjà si vous utilisiez l'Option Explicit vous auriez une multitude de messages d'erreurs
La procédure que vous avez trouvée sur le Net utilise l'événement Worksheet_SelectionChange que vous avez changer par Worksheet_Activate qui n'a pas d'argument Target donc comment voulez-vous que cela fonctionne.
C'est un peu jouer à l'apprenti sorcier

Bonjour,

Je n'ai jamais dit que ce code fonctionnait... je l'ai trouvé sur le web et le titre était : "Enlever contour cellule Excel"...

Si vous avez une autre solution, je suis preneur :)

Bien à vous

En plus de qui vient d'être dit, pour supprimer le contour

-Enlevez la protection, servez-vous de l'enregistreur,
-puis pour supprimer le contour (à adapter à votre code) avec:

Code:

---

Selection.Borders().LineStyle = xlNone

---

-remettez la protection

Bonjour,

Citation:

---

Si vous avez une autre solution, je suis preneur

---

Il serait plus utile de savoir quelle est la raison qui vous pousse à enlever les marques de sélection. C'est la première fois depuis 20 ans que je fréquente les forums que je vois une telle demande.

La raison est toute simple... j'ai un onglet (feuille) qui demande une autorisation pour aller plus loin... et la seule cellule non protégée sert à entrer ce code, donc cette cellule est sélectionnée et a un contour de sélection (violet), que je ne veux pas...

EDIT:
Maintenant, si enlever le contour est impossible, une solution serait de modifier l'apparence (couleur, style et épaisseur...)

J'ai aussi trouvé comment enlever le petit carré de sélection, mais je n'arrive pas à l'activer à l'ouverture de la feuille [Intro]... le code fonctionne si je quitte cette feuille et que j'y reviens ensuite, mais pas si la feuille est celle ouverte au démarrage...

Code:

---

Application.CellDragAndDrop = False

---

Ps : j'ai essayé sur Private Sub Worksheet_Activate... et Private Sub Worksheet_Open...

Bonjour le file,

dans excel la cellule active/sélectionné à un cadre qui la met en évidence et ce n'est pas paramétrable.
On peut écrire par code dans une cellule même si elle n'est pas active mais un utilisateur ne peut pas faire autrement que de sélectionner la cellule à renseigner
et donc avoir un cadre de sélection !!!

Les seules façons que j'entrevois de ne pas avoir ce cadre seraient :

(méthode la plus simple)
1)soit de superposer une texte box pour cacher la cellule mais permettre une saisie.

(méthode la plus complexe)
2) soit d'interdire toute selection de cellule, attendre un clique sur la cellule en utilisant l'API GetCursorPos de la librairie user32 pour
déclencher l'attente de la saisie, puis de récupérer cette saisie clavier pour la transmettre à la cellule toujours avec les API... une usine à gaz quoi... et pourquoi ?

8O

J'ai trouvé avec une Texte box... merci :)

Bonjour,

Citation:

---

Comment insérer une texte box directement sur une feuille ???

---

Parmi les Contrôles ActiveX que l'on trouve en cliquant sur le bouton Insérer du groupe Contrôle de l'onglet [Developpeur]