Microsoft 365 mettre en évidence cellule active

[aubaluc]

bonjour à tous
je viens d'installer excel 2024, et comme je commence à avoir quelques problèmes de vue je distingue mal
la cellule active
est-ce que quelqu'un pourrai me dire comment faire afin d'améliorer la visibilité de la cellule active que se soit
par une surbrillance ou des bordures plus épaisses et colorées
merci d'avance à tous
aubaluc

 

[Phil69970]

Bonjour @aubaluc

Sur 365 j'ai vu ceci :
Voir ==> https://excel-downloads.com/threads...-focus-sur-la-cellule.20085691/#post-20672789

Merci de ton retour

 

[mapomme]

Bonjour @aubaluc, @Phil69970,

Et pour ceux qui n'ont pas MS365, une méthode plus classique par macro. Son code est dans le module de ThisWorkbook.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Const couleurBord = "255 0 255"     ' couleur type RGB (rouge vert bleu)
Const largeurBord = 3
Dim couleurs, shp As Shape, D, X, Y, corrX, corrY
   Application.ScreenUpdating = False
   couleurs = Split(couleurBord)
   D = 3 * largeurBord
   With ActiveCell
      X = .Left - D: If X < 0 Then X = 0: corrX = -D
      Y = .Top - D: If Y < 0 Then Y = 0: corrY = -D
      On Error Resume Next
      Set shp = ActiveSheet.Shapes("Evidence")
      On Error GoTo 0
      If shp Is Nothing Then
         Set shp = .Parent.Shapes.AddShape(msoShapeRectangle, X, Y, .Width + 2 * D + corrX, .Height + 2 * D + corrY)
         shp.Name = "Evidence"
         shp.Fill.Visible = msoFalse
         shp.Line.ForeColor.RGB = RGB(couleurs(0), couleurs(1), couleurs(2))
         shp.Line.Weight = 3
         shp.Placement = xlMove
         shp.Placement = xlMoveAndSize
      Else
         shp.Left = X: shp.Top = Y: shp.Width = .Width + 2 * D + corrX: shp.Height = .Height + 2 * D + corrY
      End If
      On Error Resume Next: Selection.Select
      On Error GoTo 0
   End With
End Sub

 

[mapomme]

Re,

Si on veut prendre en compte le fait que la cellule active puisse être une cellule fusionnée et si dans ce cas on veut entourer toute la plage de fusion contenant la cellule active, utiliser cette version à peine modifiée.
On a juste remplacé With ActiveCell par With ActiveCell.MergeArea