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 du partage de compte disney + - Accueil - Streaming
- Téléchargez le fichier et modifiez-le avec le logiciel de montage vidéo de votre choix. supprimez les 3 moments avec le papillon : votre vidéo est donc fractionnée en 4 morceaux. dupliquez le premier morceau et placez la copie à la fin de la vidéo. déplacez le deuxième morceau à la fin de vidéo. recollez tous les morceaux pour ne pas laisser de blanc. à quelle seconde peut-on voir la bouteille encore entière ? - Forum Bureautique
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.