OVH Cloud OVH Cloud

VBA & Dialogs

1 réponse
Avatar
Patrick Fredin
Bonjour,

J'affiche la boîte de dialogue des polices de caractères avec cette commande :

Application.Dialogs(xlDialogFont).Show

Est-il possible de savoir les paramètres qui ont été choisis ?

Merci.

--
Patrick

1 réponse

Avatar
Michel Pierron
Bonsoir Patrick;
Comme ceci peut être:

If Application.Dialogs(xlDialogFont).Show Then
With ActiveCell
MsgBox .Font.Name & " / " & .Font.Size & " pts", 64
End With
End If

MP

"Patrick Fredin" a écrit dans le message
de news:
Bonjour,

J'affiche la boîte de dialogue des polices de caractères avec cette
commande :

Application.Dialogs(xlDialogFont).Show

Est-il possible de savoir les paramètres qui ont été choisis ?

Merci.

--
Patrick