Piloter la police depuis CommandButton...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais pouvoir piloter le type de police et sa taille depuis des "CommandButton".

En effet certains texte renvoyés par ces CommandButton sont plus ou moins longs et ne "tiennent" pas dans leurs cellules destinataires...Je voudrais, par ce biais, adapter pour chaque "CommandButton la taille souhaitée.

Quelles lignes de commandes ont nécessaires ???

Merci pour votre aide.
Bien amicalement,
Christian

 

[Matt51140]

Bonjour,

Comme ça :

Private Sub CommandButton1_Click()
Range("A1").Font.Size = 15
Range("A1").Font.Name = "Palatino"
End sub

A+

 

[Christian0258]

Re, le forum, Matt51140

Merci, Matt, pour ton aide.
Ma macro se présente comme cela :

Public Sub InitUserForm1()
For I = 1 To 21
Me("CommandButton" & I).BackColor = Sheets("Planning").Cells(I, 509).Interior.Color
Me("CommandButton" & I).ForeColor = Sheets("Planning").Cells(I, 509).Font.Color
Me("CommandButton" & I).Caption = Sheets("Planning").Cells(I, 509).Text
Set Btn(I).GrBoutons = Me("commandbutton" & I)
Next I

Comment et où ajouter ton code dans cette macro ci-dessus ??

Merci pour ton aide.
Bien à toi,
Christian

 

[Matt51140]

Bonjour,

Le code que tu as mis correspond à l'initialisation de ton userform ?

Celui que je t'ai donné est le code à mettre dans chaque bouton. je te joins un fichier exemple, va voir dans le code.

A moins que ce soit le texte des commandbutton que tu veux afficher différemment ?

A+

 

[Christian0258]

Re, le forum, Matt

Merci pour ton aide.
Dans ton fichier exemple je ne vois pas le code ??

Oui c'est le texte des CommandButton que je veux afficher directement.

A vous lire.
Bien à toi,
Christian

 

[Matt51140]

Re,

Autant pour moi ce n'est pas le bon fichier

Donc si je comprends bien, lorsque tu appelles ton USF (procédure Init), tu voudrais pouvoir paramétrer la police du texte afficher dans chaque commandbutton ?
Et j'imagine que ce texte est variable pour un même commandbutton ?

A+

 

[Christian0258]

Re; le forum, Matt

Tout à fait ça.
à te lire,

Merci Matt

Christian

 

[Matt51140]

Re,

Je ne connais pas la structure de ton USF mais peux tu placer tes commandbutton de façon verticale (les uns en dessous des autres). Dans ce cas tu peux utiliser la propriété Autosize des commandbutton, les boutons s'étendront automatiquement vers la droite en fonction de la taille du texte.

A+

 

[Christian0258]

Re, le forum, Matt

Ok, je essayer ça...
Merci pour ton aide.

Bien à toi,
Christian

 

[Christian0258]

Re le forum

Je reviens vers vous pour ce sujet...je n'ai pas réussi à résoudre mon problème.
Voir fichier joint avec de meilleurs explications...lol

Merci pour votre aide.

Bien amicalement,
Christian

 

[Christian0258]

Re, le forum,

Joyeux Noël à tout le forum.

Est-ce que ma demande du post 10 est faisable ?

Merci pour votre aide.
Bien à vous,
Christian