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

Résolu/Fermé

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020 - 9 juil. 2015 à 20:59
Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020 - 14 juil. 2015 à 12:58

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

A voir également:

Désélectionner à la fin de l'opération
Le curseur à la fin du texte indique qu'il n'y a pas de fautes. - Forum Word
L'opération demandée nécessite une élévation ✓ - Forum Windows
Fin de windows 10 - Guide
Fin de mail en anglais - Guide
Un tampon d'encre de l'imprimante est quasiment en fin de vie. veuillez contacter l'assistance epson. - Forum Imprimante

1 réponse

Réponse 1 / 1

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié par Patrice33740 le 9/07/2015 à 23:06

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

Jalalrid Messages postés 50 Date d'inscription mercredi 16 juillet 2014 Statut Membre Dernière intervention 31 mars 2020
14 juil. 2015 à 12:58

Merci. C'est super.

Discussions similaires

fin du film chambre 1408

word attend la fin d'une action OLE

question sur the descent part 2

Papillon

Que signifie ^^ en fin de phrase

Discussions similaires

Newsletters