[Résolu] Aide pour syntaxe

Re : Aide pour syntaxe

Bonsoir,

Avec l'enregistreur de macro :

Sub test()
Dim date_a As Single, annee As Date, num_sem As Integer
annee = DateValue("1 janvier " & (Year(Date)))
date_a = annee
num_sem = Abs(Date - date_a) / 7
'num_sem = 10
date_a = Format(Date, "yyyy")

Set cel = Range("a1")

cel.Value = "C'est la " & num_sem & "ème semaine de l'an de grace " & date_a
If num_sem > 9 Then
With ActiveCell.Characters(Start:=12, Length:=3).Font
'.Name = "Calibri"
' .FontStyle = "Normal"
' .Size = 11
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If
If num_sem < 10 Then
With ActiveCell.Characters(Start:=11, Length:=3).Font
'.Name = "Calibri"
' .FontStyle = "Normal"
' .Size = 11
.Strikethrough = False
.Superscript = True
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End If
'Exit Sub
'cel.Characters(11, 3).Font.Superscript = True
End Sub

a+

Re : Aide pour syntaxe

Bonsoir CHALET53,

merci d'avoir répondu. Moi aussi auparavant, j'ai essaié avec la condition num_sem avec pour test

num_sem = Abs(Date - date_a) / 7 + 3, mais ou lieu de mettre num_sem > 9, j'ai écrit autrement.

Encore merci pour ton intervention.


EDIT:


Je viens de faire un test, ça marche aussi.



A+ 😎

Re : [Résolu] Aide pour syntaxe

Rebonsoir à tous,

pour ceux qui seraient interésseés.



A+ 😎