Bonjour,

Je suis novice en programmation VBA, donc je rencontre quelques problèmes.
Je souhaiterais faire ceci : afficher un pangramme, et la police de ce pangramme devra être celle sélectionnée dans une liste déroulante que je crée.

Voici mes bouts de code que j'ai déjà fait :

- C'est là où j'écris mon pangramme. Je veux récupérer la police se trouvant dans D2.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Range("J16:U17").Select
ActiveCell.FormulaR1C1 = "Portez ce vieux whisky au juge blond qui fume"
With Selection.Font
        .Name = Range("D2") 'Comment récupérer la valeur de la police ?
End With
- Code de la liste que j'ai trouvé sur ce forum, que j'ai adapté à ma situation.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Range("D2").Select
    With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="Calibri,Comic Sans Ms,Arial Black"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With|
Cependant, quand je change la police dans la liste, mon pangramme n'a pas sa police de changée, pourriez-vous m'aider à résoudre ce problème ?

Merci d'avance !