Désélectionner à la fin de l'opération Résolu/Fermé

Question

Bonjour, 
J'ai saisi ce code:
Sub Worksheet_Activate()
Range("B4:B100").Select
       With Selection.Font
        .Name = "Times New Roman"
        .Size = 14
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .Color = -4165632
        .TintAndShade = 0
    End With
    Range("A1").Select
Selection.Font.Underline = xlUnderlineStyleSingle
End Sub

J'ai trouvé une méthode archaïque pour désélectionner mes cellules à la fin des opérations. Y a t-il une meilleure façon d'écrire ce code et désélectionner ces cellules à la fin de la tache?
Merci pour votre aide


Configuration: Windows 8 / Chrome 43.0.2357.132

Patrice33740 · Answer

Bonjour,

« Y a t-il une meilleure façon d'écrire ce code et désélectionner ces cellules à la fin de la tache? » 
Oui, en supprimant les instructions inutiles et notament les select  !

Sub Worksheet_Activate()

With Range("B4:B100").Font
  .Name = "Times New Roman"
  .Size = 14
  .Underline = xlUnderlineStyleNone 
  .ThemeFont = xlThemeFontNone
  .Color = -4165632
  .TintAndShade = 0
End With
Range("A1").Font.Underline = xlUnderlineStyleSingle

End Sub 
Cordialement
Patrice

Désélectionner à la fin de l'opération

1 réponse

Discussions similaires