Macro Augmenter Diminuer taille police

Bonjour,

J'aurais besoin de 2 petites macro, une pour augmenter la taille de la police d'une selection ("E7:K31,C9:C31") et l'autre pour la diminuer. En cherchant un peu j'ai sur le forum j'ai fait quelque chose qui ressemble à ça (pour augmenter la taille)

Private Sub CommandButton1_Click()

 Range("E7:K31,C9:C31").Select
    With Selection
        .Font.Size = .Font.Size + 1
    End With

End Sub

Mais apparemment le "Selection" pose problème. Toute aide est la bienvenue!

Bonjour,

Ôte-moi d'un doute : les commandes Augmenter et Réduire la taille de la police seraient-elles absentes du ruban dans l'onglet Accueil de ton application Excel ?

PH1084 a écrit :

Mais apparemment le "Selection" pose problème. Toute aide est la bienvenue!

Bonjour,

Quel problème ?

@MFerrand, si j'ai les commandes de taille de police dans le ruban, mais le but de la macro est d'avoir une selection et changement de taille directement par un bouton de commande pour que l'utilisateur puisse adapter la taille du texte rapidement.

@Raja, je joins le message d'erreur que j'ai

Voilà une raison pour te répéter dès que tu prends ton clavier pour coder : je ne dois pas sélectionner !!!!!

Private Sub CommandButton1_Click()
    With Range("E7:K31,C9:C31")
        .Font.Size = .Font.Size + 1
    End With
End Sub

La formule semble bonne, mais quand je clique sur le bouton commande, je n'ai rien qui se passe...

Taille minimum = 8

En dessous la propriété renvoie Null

Ta méthode ne fonctionnera pas avec une taille inférieure à 8.

cordialement.

Bonjour,

Essaye comme ça :

Sub Bouton1_Cliquer()
    Range("E7:K31,C9:C31").Font.Size = [E7].Font.Size + 1
End Sub

Cela fonctionne, merci beaucoup!