Taille de police

Bonjour à tous

j'ai une macro qui fonctionne très bien mais j'aimerai pouvoir modifier la taille de la police des liens

si-dessous mon code

Sub lienMenu()

'sélection de la feuille Récap

Sheets("Menu").Select

Range("b8").Select

For Each i In ActiveWorkbook.Sheets

f = i.Name

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f

ActiveCell.Offset(1, 0).Select

Next i

End Sub

Sub RetourMenu()

For i = 2 To Sheets.Count

Sheets(i).Select

Range("a1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Menu!A1", TextToDisplay:="Menu"

Next i

Sheets(1).Select

End Sub

si quelqu'un peut m'aider je l'en remercie d'avance

Bonjour

Après avoir fait ton lien tu peux utiliser

ActiveCell.Font.Size = 14

Sub lienMenu()
'sélection de la feuille Récap
Sheets("Menu").Select
Range("b8").Select
For Each i In ActiveWorkbook.Sheets
f = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
ActiveCell.Font.Size = 14
ActiveCell.Offset(1, 0).Select
Next i
End Sub

Sub RetourMenu()
For i = 2 To Sheets.Count
Sheets(i).Select
Range("a1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Menu!A1", TextToDisplay:="Menu"
ActiveCell.Font.Size = 14
Next i
Sheets(1).Select
End Sub

Bonjour,

Tu trouveras une solution rapide:

Sub lienMenu()
'sélection de la feuille Récap
Sheets("Menu").Select
Range("b8").Select
For Each i In ActiveWorkbook.Sheets
f = i.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & f & "'" & "!A1", TextToDisplay:=f
Selection.Font.Size=12 ' ou 13;14;15 etc..
ActiveCell.Offset(1, 0).Select
Next i
End Sub
________________________________________________________________________________________________________
Sub RetourMenu()
For i = 2 To Sheets.Count
Sheets(i).Select
Range("a1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Menu!A1", TextToDisplay:="Menu"
Selection.Font.Size=12 ' ou 13;14;15 etc..
Next i
Sheets(1).Select
End Sub

Grand merci à Banzai64 et Air_2