[XL-2007] Optimiser un petit code

Optimiser un petit code

Bonsoir a tous et toutes, bonsoir forum,

Ce code affiche en A3 ce message " Dernier accès le 07 06 2009 à 17:30 "

avec le " D " et le " à " en rouge et gras.

Je pense que l'on peut faire bien plus court et dans le but d'optimiser mon programme SVP si quelqu'un veut bien faire quelque chose, ca serai fort gentil.

Je vous souhaitent une excellente soirée et merci beaucoup

Raymond

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Dim modifs As Boolean
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modifs = True
End Sub
 
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveAs ThisWorkbook.Path & "\Gestion " & Format(Now, "dddd dd mmm yyyy", vbMonday) & ".xlsm"
Application.DisplayAlerts = True
If modifs = True Then
 
With Worksheets("Compte").[A3]
.ClearFormats
.NumberFormat = "@"
.Value = "Dernier accès le " & Format(Date, "dd mm yyyy") & " à " & Format(Time, "H:MM")
 
.Font.Name = "Arial"
.Font.Size = 11
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlCenter
.Characters(1, 1).Font.ColorIndex = 3      'Pour mettre le D
.Characters(1, 1).Font.Bold = True
 
.Characters(2, 37).Font.ColorIndex = 1     'Retour a la normal
.Characters(2, 37).Font.Bold = False
 
.Characters(29, 1).Font.ColorIndex = 3     'Pour le à
.Characters(29, 1).Font.Bold = True
 
.Characters(39, 6).Font.ColorIndex = 1     'Retour a la normal
.Characters(39, 6).Font.Bold = False
End With
 
End If
End Sub

Bonsoir tout le monde,

Franchement, je pense que difficile de faire mieux, même au niveau du With.

Mais peut-être qu'un génie va me contredire ;)

Cela dit, Bonne nuit à tous !

Anton.

Bonjour a tous et toutes, forum

Salut Antoniom

Merci pour la reponse, je pensais qu'on pouvais faire mieux tant pis c'est pas grave, je vais ré essayer quand meme,

Bonne journée a toi

Raymond