Désélectionner à la fin de l'opération
Résolu
Jalalrid
Messages postés
50
Date d'inscription
Statut
Membre
Dernière intervention
-
Jalalrid Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
Jalalrid Messages postés 50 Date d'inscription Statut Membre Dernière intervention -
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 du partage de compte disney + - Accueil - Streaming
- Word attend la fin d'une action ole ✓ - Forum Word
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
Date d'inscription
Statut
Membre
Dernière intervention
Merci. C'est super.