Changer la couleur de la cellule active

Bonjour,

Je voudrais changer la couleur du cadre de la cellule active (noir par défaut), est-ce possible, j'ai retourné les menus et options excel, je n'ai rien trouvé

Merci d'avance

Bonsoir

le mettre par defaut, je ne sait pas mais par cellule, lorsque tu click droite sur la cellule et que tu fait format de cellule/bordure, tu peux appliquer une bordure en couleur

Cordialement

Bonsoir JulienB et Forum

Options\ couleurs, tu choisis la couleur et tu clic le bouton par défaut.

A+

Adrien

RE Julien B

Par acquis de consience j'ai fait la manip et ce n'est surement pas ce que tu recherches.

Aussi j'ai autre chose à te proposer

Outils\Options\affichage tu choisis ta couleur en bas à gauche, OK

Tu dois avoir à ce moment ton quadrillage à la couleur choisie et si tu demande l'encadrement d'une cellule, elle sera de la même couleur.

Tu sauvegarde la feuille vierge en "modèle" en lui donnant le nom de la couleur par exemple et tu quittes.

A partir de là tu ouvres une nouvelle feuille par les modèles en choisissant ta couleur.

A+

Adrien

Salut le forum

JulienB a écrit :

Bonjour,

Je voudrais changer la couleur du cadre de la cellule active (noir par défaut), est-ce possible, j'ai retourné les menus et options excel, je n'ai rien trouvé.

Je crois que la question est mal comprise, sur un fond d'écran blanc la

sélection d'une cellule donne un cadrage noir.

A vos devoirs

Mytå

RE Julien B

Ok Mytå. J'ai intégré la différence. Excuses à JulienB pour le faux espoir.

Adrien

Salut le forum

Attention, sans tambours ni trompettes mais je le crie à haute voix

Code à mettre dans le module de la feuille

Du calme Mytå, tu vas encore te faire... (Pas trouvé cogner sur les doigts)

Option Explicit

Public Old_Selection

Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Old_Selection = "" Then
    With Range(Old_Selection)
        With .Borders
            .LineStyle = xlNone
        End With
    End With
End If

Old_Selection = Target.Address

    With Target
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 7
        End With
    End With

End Sub

Désolé mais je ne peux faire mieux

Au plaisir de vous relire

Mytå

RE Mytå

Rien à dire si ce n'est que je n'étais pas là de trouver.

A+

Adrien

Re le forum

Quand personne ne trouve de solution rapidement, il faut bien que je m'implique.

Déjà que le décalage horaire fait qu'il reste plus grand chose pour m'amuser.

Bonne semaine à vous tous !

Mytå

P.S. Je redoute un retour de JulienB, connait pas les macros il va nous sortir.

Mytå a écrit :

Re le forum

Quand personne ne trouve de solution rapidement, il faut bien que je m'implique.

Déjà que le décalage horaire fait qu'il reste plus grand chose pour m'amuser.

Bonne semaine à vous tous !

Mytå

P.S. Je redoute un retour de JulienB, connait pas les macros il va nous sortir.

Exact ! Alors pourtant j'ai essayé de me débrouiller, j'ai fait outil, macro, visual basic editor, mais à partir de là je fais quoi ? J'ai une fenêtre grise et rien de plus, à part "importer, exporter...".

Bonjour

alors losque tu es sur ton fichier excel; tu fait Alt et F11 (en même temps)

a gauche tu voit le nom de tes feuilles, si tu ne l'as pas tu vas dans Affichage et tu clique sur explorateur de projet.

ensuite tu double clique dans ta fenêtre sur le nom de ta feuille.

sur ta page principale (code) tu colles la macro de Myta

et tu referme le tout.

et ca devrais marcher

ps: ou plus simple: tu clique droite sur le nom de ta feuille (l'onglet en bas de ta feuille)

puis "visualiser le code"

et tu colle la macro dans la fenetre qui vient de s'ouvrir

cordialement

Merci les gars

Mais le code ne marchait pas, il colorait un bord de cellule en violet...

Du coup j'ai fouiné un peu et le code que j'ai entré marche parfaitement :

Public old_color, old_sel

Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)

If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color

old_sel = sel.Address

old_color = sel.Interior.ColorIndex

sel.Interior.ColorIndex = 41

End Sub

J'ai plus qu'à chercher les codes couleur excel, car là pour le moment la couleur est le bleu foncé.

Salut le forum

JulienB a écrit :

Je voudrais changer la couleur du cadre de la cellule active (noir par défaut), est-ce possible, j'ai retourné les menus et options excel, je n'ai rien trouvé.

Tu avais bien dit la couleur du Cadre pas la couleur de la cellule.

Mytå