[Word] UserForm [Résolu]

Magicien Blanc 78 Messages postés lundi 25 juillet 2005Date d'inscription 22 août 2010 Dernière intervention - 28 oct. 2005 à 20:51 - Dernière réponse : drakouille 4 Messages postés mardi 25 janvier 2005Date d'inscription 29 janvier 2006 Dernière intervention
- 23 janv. 2006 à 02:28
Je vais peut-être dire des bétises mais bon. Voilà je voudrai faire un
userform du même style que ceux faisable sous excel mais sous word.
J'ai vu que le visual basic pour word était différent de celui d'excel
à 2 ou 3 choses près mais apparement c'est faisable. Sauf que j'ai une
question bête : comment on fait pour afficher du texte dans Word à
partir des userform, car il n'y a pas de Range possible !

Pour exemple, comment écrire le résultat d'un calcul qui apparait dans un textbox d'un userform dans le document word ??
Afficher la suite 

3 réponses

Meilleure réponse
Doro81079 398 Messages postés vendredi 22 avril 2005Date d'inscription 24 février 2015 Dernière intervention - 29 oct. 2005 à 12:01
3
Merci
bonjour,

tu peux également faire de cette façon :

disons que tu a un userform avec 2 textbox et 1 bouton
et un signet sur le doc

textbox1 (nom de text1)
textbox 2 (nom de text2)
cmd1 (nom du bouton)
total (nom du signet)

sur ton doc word tu insères un signet à l'endroit ou tu veux que le calcul
apparraisse

ensuite tu code le bouton de cette façon :

ActiveDocument.Bookmarks("total").Range.Text = Val(texbox1.Text) + Val(textbox2.Text) 'sur la même ligne

et si le total apparait dans une textbox ,de cette façon

ActiveDocument.Bookmarks("total").Range.Text = textboxtotal.text

pour insérer un signet :

tu place le curseur à l'endroit que tu souhaites
tu clic sur insertion =>signet et tu donne sun nom à ton signet(ex : total)

Salut
Doro

Merci Doro81079 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 89 internautes ce mois-ci

jpleroisse 1788 Messages postés mardi 7 novembre 2000Date d'inscription 11 mars 2006 Dernière intervention - 29 oct. 2005 à 02:00
0
Merci
Bonsoir,

Cet exemple t'aidera sûrement.



Private Sub CommandButton1_Click()

Selection.TypeText Text:=TextBox1.Text

Selection.TypeParagraph 'Saut de ligne

Selection.TypeParagraph

Selection.ParagraphFormat.LeftIndent = CentimetersToPoints(4.94)'Position sur le document

Selection.TypeText Text:=TextBox2.Text

End Sub

jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
drakouille 4 Messages postés mardi 25 janvier 2005Date d'inscription 29 janvier 2006 Dernière intervention - 23 janv. 2006 à 02:28
0
Merci
Si tu as déja le code du calcul et que le résultat s'affiche dans la textbox, je propose (pour textbox=RESULTAT et pour zone de texte ciblée=CIBLE):

ActiveDocument.formfields("CIBLE").result = RESULTAT.value

Je ne sais pas si c'est ce qui est de plus efficace mais ça marche dans mes codes...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.