Désélectionner à la fin de l'opération
Résolu
Jalalrid
Messages postés
50
Statut
Membre
-
Jalalrid Messages postés 50 Statut Membre -
Jalalrid Messages postés 50 Statut Membre -
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
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
- Fin des zfe - Guide
- Reconsidérer le traitement de vos informations à des fins publicitaires - Accueil - Réseaux sociaux
- Fin de la 4g en france - Accueil - Guide opérateurs et forfaits
- Fin de fruitz - Accueil - Applications & Logiciels
- Opérateur de réseau mobile - Guide
1 réponse
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 !
Cordialement
Patrice
« 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
Statut
Membre
Merci. C'est super.
