Discussion :

[St-42-FCM-57]

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 !

[halaster08]

Bonjour,
Ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J16:U17").Font.Name = Range("D2").Font.Name

Devrais convenir.

[St-42-FCM-57]

Bonjour,

Merci de la réponse, mais ça ne change pas la police de mon mot.
Nous ne pouvons peut-être pas changer la police du mot en fonction de la police choisie dans le menu déroulant ?

[halaster08]

edit:
My bad, j'avais mal compris.
Si je comprends mieux ceci marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("J16:U17").Font.Name = Range("D2")

Mais c'est exactement ton code ... (sans le select et le with)
Du coup il doit y avoir quelque chose qui m'échape

[St-42-FCM-57]

Effectivement, je viens de re-tester, mais ça ne marche pas.
J'ai peut-être mal exprimé mon problème, donc je le refais :

J'ai en D2 une liste où je peux choisir parmi plusieurs polices, que j'ai écrit dans ma macro.
Ensuite en J16:U17 j'ai un mot, et je veux que la police de ce mot soit celle choisit dans ma liste en D2. Et quand je change la police dans la liste, la police de mon mot doit également changer.

[halaster08]

en J16:U17 j'ai un mot

Un seul mot sur plusieurs cellules?

Et quand je change la police dans la liste, la police de mon mot doit également changer.

Normalement, avec le code que tu as si tu change la police dans et que tu relance la macro la police du mot change.
Si tu veux que ce soit automatique, c'est possible mais je ne sais pas le faire
Normalement ce tuto devrais contenir la réponse: http://silkyroad.developpez.com/VBA/EvenementsFeuille/

edit:
C'est mieux expliqué dans le tuto mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$2" Then Range("J16:U17").Font.Name = Range("D2")
End Sub

à mettre dans la liste des évènements de ta feuille (alt + F11, double clic sur ta feuille à gauche)