Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel je souhaite changer la couleur de la cellule active

je souhaite changer la couleur de la cellule active

2 réponses
Avatar
Emile
Bonjour à tous,
Pour améliorer la visibilité de mes données, je souhaite changer la couleur
de la cellule active (ou le contours de
la cellule active) sur une feuille Excel (mais pas tout le classeur comme
mon exemple ci-dessous)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Pushed = True
Application.ScreenUpdating = True
End Sub

Comment puis-je modifier ma procédure afin qu'elle ne soit active que sur un
onglet en particulier?
Merci d'avance pour votre aide.
Cordialement,
--
Emile
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Mets ce code dans ta feuille ::

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Pushed = True
Application.ScreenUpdating = True
End Sub

Cordialement.
Daniel
"Emile" a écrit dans le message de news:

Bonjour à tous,
Pour améliorer la visibilité de mes données, je souhaite changer la
couleur
de la cellule active (ou le contours de
la cellule active) sur une feuille Excel (mais pas tout le classeur comme
mon exemple ci-dessous)

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
ActiveSheet.Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Pushed = True
Application.ScreenUpdating = True
End Sub

Comment puis-je modifier ma procédure afin qu'elle ne soit active que sur
un
onglet en particulier?
Merci d'avance pour votre aide.
Cordialement,
--
Emile



Avatar
Emile
Merci Daniel pour ton aide c'est bien ce que je souhaitais! :-)

Cordialement,

Emile