Modification texte

Anacoluthe

15/12/2003 à 15:07

Bonjour !

"HA" nous a écrit ...

Je cherche a partir d'un userform avec checkbox a
modifier un teste dans Word
SVP donnez moi le code

If MaUserForm.CheckBox1.Value = True Then
T = InputBox("et je te mets quoi comme texte ???")
Selection.InsertAfter T
End If

Macro superfétatoire, les AMIS :-D )))

Anacoluthe
« Avez-vous jamais entendu la marchande de poissons
dire que le maquereau sent mauvais ? »
- John WILSON

HA

15/12/2003 à 15:28

je voudrai qu'il n'y ai pas de boite pour saisir le texte, sachant que je
connais déjà le texte a insérer

J'explique :
mon userform sert a créer des fax, courrier, note.
j'ai une checkbox "fax", 1 check "note" et la dernière "courrier" si je
clique sur la check "fax" je veux qu'il inscrive "Télécopie" en titre de mon
document

Merci
"Anacoluthe" a écrit dans le message de news:

Bonjour !

"HA" nous a écrit ...
Je cherche a partir d'un userform avec checkbox a
modifier un teste dans Word
SVP donnez moi le code

If MaUserForm.CheckBox1.Value = True Then
T = InputBox("et je te mets quoi comme texte ???")
Selection.InsertAfter T
End If

Macro superfétatoire, les AMIS :-D )))

Anacoluthe
« Avez-vous jamais entendu la marchande de poissons
dire que le maquereau sent mauvais ? »
- John WILSON

geo

15/12/2003 à 17:53

-----Message d'origine-----
je voudrai qu'il n'y ai pas de boite pour saisir le
texte, sachant que je

connais déjà le texte a insérer

C'est pas bien compliqué quand même.
tu remplaces t par ton texte entre "

a+

JLuc

15/12/2003 à 18:44

Salut HA,
Voila un debut de solution :

Select Case define_objet
Case "Demande de prix"
selection.TypeText Text:="Pourriez-vous me communiquer " & _
"vos meilleurs prix et délai pour la fourniture de :" & Chr(13)
& Chr(13)
selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8",
FileName:= _
"F:ExcelDevis FAX.xls", LinkToFile:úlse, _
DisplayAsIcon:úlse
selection.TypeText Text:=Chr(13) & Chr(13) & _
"Salutations."
Case "Commande"
selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8",
FileName:= _
"F:ExcelCommandes FAX.xls", LinkToFile:úlse, _
DisplayAsIcon:úlse
selection.TypeText Text:=Chr(13) & Chr(13) & _
"Salutations."
End Select
define_objet est une variable de type variant declaree en globale, chaque
fois que je clique sur un checkbox, je modifie sa valeur
Amuses toi bien, et si tu veux plus de detail, contacte moi et je t'enverrai
mon modele de fax

JLuc
Pour m'ecrire, supprimer 'ns.' dans l'adresse.
~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~-~

"HA" a écrit dans le message de
news:%23d$k$

je voudrai qu'il n'y ai pas de boite pour saisir le texte, sachant que je
connais déjà le texte a insérer

J'explique :
mon userform sert a créer des fax, courrier, note.
j'ai une checkbox "fax", 1 check "note" et la dernière "courrier" si je
clique sur la check "fax" je veux qu'il inscrive "Télécopie" en titre de
mon

document

Merci
"Anacoluthe" a écrit dans le message de
news:

Bonjour !

"HA" nous a écrit ...
Je cherche a partir d'un userform avec checkbox a
modifier un teste dans Word
SVP donnez moi le code

If MaUserForm.CheckBox1.Value = True Then
T = InputBox("et je te mets quoi comme texte ???")
Selection.InsertAfter T
End If

Macro superfétatoire, les AMIS :-D )))

Anacoluthe
« Avez-vous jamais entendu la marchande de poissons
dire que le maquereau sent mauvais ? »
- John WILSON

Modification texte

4 réponses

Veuillez sélectionner un problème