Discussion :

[Crachover]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

Bonjour,

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.

[Crachover]

Bonjour et merci pour votre réponse

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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...

[ARTURO83]

Bonjour,

Remplacez

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Activate(ByVal Target As Range)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Activate()

Cdlt

[Crachover]

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

[Philippe Tulliez]

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

[Menhir]

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.

[Crachover]

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