[Résolu] Aide pour syntaxe

[Lone-wolf]

Bonsoir à tous,

dans la macro suivate, j'arrive à mettre en exposant le mot "ème". Comme on est en semaine 7 pas de problème(enfin jusqu'à la sem 9).

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
date_a = Format(Date, "yyyy")

Set cel = Range("a1")
cel.Value = "C'est la " & num_sem & "ème semaine de l'an de grâce " & date_a
cel.Characters(11, 3).Font.Superscript = True
End Sub

Comment mettre en exposant le mot "ème" si la semaine est égale ou supérieure à 10 ?



A+ 😎

 

[CHALET53]

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+

 

[Lone-wolf]

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:

If num_sem >= 9 Then
cel.Characters(Start:=12, Length:=3).Font.Superscript = True
Else
cel.Characters(Start:=11, Length:=3).Font.Superscript = True
End If

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



A+ 😎

 

[Lone-wolf]

Re : [Résolu] Aide pour syntaxe

Rebonsoir à tous,

pour ceux qui seraient interésseés.

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
date_a = Format(Date, "yyyy")
Set cel = Feuil1.Range("g3")
cel.Value = "C'est la " & num_sem & "ème semaine de l'an de grâce " & date_a

If num_sem >= 9 Then
cel.Characters(Start:=12, Length:=3).Font.Superscript = True
Else
cel.Characters(Start:=11, Length:=3).Font.Superscript = True
End If

With cel.Font
.Bold = True
.Size = 16
.Color = RGB(192, 0, 0)
End With
End Sub

A+ 😎