Sujet Précédent Sujet Suivant

Combo box recuperer la valeur de la combo et l'affecter au changement de taille

agentTMORT Messages postés 19 Date d'inscription dimanche 16 février 2003 Statut Membre Dernière intervention 22 juillet 2003 - 9 juin 2003 à 13:10
ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 - 9 juin 2003 à 13:25

salut comment je f pour recupere la valeur de la combo pour changer la taille de mon text g esssayer ca et marche po
Private Sub taille_Change()
ActiveForm.rtfText.SelFontSize = Val(taille.Text)
End Sub

mais aussi ca

Private Sub taille_Change()
Dim variable As Variant
variable = Val(taille.Text)
ActiveForm.rtfText.SelFontSize = variable
End Sub

plz aider moi

A voir également:

1 réponse

Réponse 1 / 1

ShareVB Messages postés 2676 Date d'inscription vendredi 28 juin 2002 Statut Membre Dernière intervention 13 janvier 2016 26
9 juin 2003 à 13:25

salut

il faut que tu ais du texte sélectionné
si tu veux changer la taille de tout le text alors :
activeform.trftext.font.size = ccur(val(taille.text))

enfin tu peux opter pour :
ActiveForm.rtfText.SelFontSize = cvar(Val(taille.Text))

La valeur maximale de la propriété SelFontSize est 2 160 points donc taille en points

voila

ShareVB

Discussions similaires

Combo Box sur txt

combo de fichier txt

combobox dynamique html php javascript

[vba] recopier la valeur d'une cellule dans une autre feuille.

Prendre la valeur d'une cellule dans excel avec vba