Userform

Le
jepac
Bonjour,

Je souhaiterai donner à une TextBox la valeur d'un signet du document actif.

Comment dois-je m'y prendre ?

Merci de votre coopération

Jean-Paul
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #6774961

Bonjour,

Je souhaiterai donner à une TextBox la valeur d'un signet du document actif.

Comment dois-je m'y prendre ?

Merci de votre coopération

Jean-Paul


MaUserForm.MaTextBox.value
¬tivedocument.Bookmarks("MonSignet").Range.Text

--
A+

jepac
Le #6784851
Bonsoir,

Merci Geo pour ta [votre] réponse.

Cela fonctionne sauf que devant le texte se trouve la mention "FORMTEXT".

Comment puis-je la supprimer ?

Merci de ton [votre] aide.

Jean-Paul



Bonjour,

Je souhaiterai donner à une TextBox la valeur d'un signet du document actif.

Comment dois-je m'y prendre ?

Merci de votre coopération

Jean-Paul


MaUserForm.MaTextBox.value
¬tivedocument.Bookmarks("MonSignet").Range.Text

--
A+






heureux-oli
Le #6786011
Salut,

Si c'est toujours la même mention, un fonction Right() de VBA devrait en
venir à bout.

MaUserForm.MaTextBox.value
=Right(activedocument.Bookmarks("MonSignet").Range.Text,
Len(activedocument.Bookmarks("MonSignet").Range.Text) - 8 )

Le principe est simple, on mesure la longueur de la chaîne de
:activedocument.Bookmarks("MonSignet").Range.Text, on retranche 8 pour
FORMTEXT et ce nombre est utilisé pour extraire la partie de droite de la
chaîne de caractère.


--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/

----------------------------------------------------------------------------------

"jepac"
Bonsoir,

Merci Geo pour ta [votre] réponse.

Cela fonctionne sauf que devant le texte se trouve la mention "FORMTEXT".

Comment puis-je la supprimer ?

Merci de ton [votre] aide.

Jean-Paul



Bonjour,

Je souhaiterai donner à une TextBox la valeur d'un signet du document
actif.

Comment dois-je m'y prendre ?

Merci de votre coopération

Jean-Paul


MaUserForm.MaTextBox.value
¬tivedocument.Bookmarks("MonSignet").Range.Text

--
A+








Geo
Le #6786001
Bonjour

Cela fonctionne sauf que devant le texte se trouve la mention "FORMTEXT".

Comment puis-je la supprimer ?


Je ne sais pas trop d'où ça sort, c'est un champ de formulaire ?
vous affichez les valeurs où les codes champs ?

Vous pouvez toujours utiliser une formule du genre :

MaUserForm.MaTextBox.value
= mid(activedocument.Bookmarks("MonSignet").Range.Text,9)

Vous pouvez jouer la sécurité en ne supprimant les 8 premiers
caractères que s'ils sont égaux à "FORMTEXT"

with activedocument.Bookmarks("MonSignet").Range
if left(.text, 8) = "FORMTEXT" then
MaUserForm.MaTextBox.value = mid(.Text,9)
else
MaUserForm.MaTextBox.value = .Text
end if
end with

Sauf erreur de frappe de ma part.

--
A+

jepac
Le #6785991
Merci


Salut,

Si c'est toujours la même mention, un fonction Right() de VBA devrait en
venir à bout.

MaUserForm.MaTextBox.value
=Right(activedocument.Bookmarks("MonSignet").Range.Text,
Len(activedocument.Bookmarks("MonSignet").Range.Text) - 8 )

Le principe est simple, on mesure la longueur de la chaîne de
:activedocument.Bookmarks("MonSignet").Range.Text, on retranche 8 pour
FORMTEXT et ce nombre est utilisé pour extraire la partie de droite de la
chaîne de caractère.


--
Heureux-oli
http://word.developpez.com/
http://word.developpez.com/faq/

----------------------------------------------------------------------------------

"jepac"
Bonsoir,

Merci Geo pour ta [votre] réponse.

Cela fonctionne sauf que devant le texte se trouve la mention "FORMTEXT".

Comment puis-je la supprimer ?

Merci de ton [votre] aide.

Jean-Paul



Bonjour,

Je souhaiterai donner à une TextBox la valeur d'un signet du document
actif.

Comment dois-je m'y prendre ?

Merci de votre coopération

Jean-Paul


MaUserForm.MaTextBox.value
¬tivedocument.Bookmarks("MonSignet").Range.Text

--
A+













Publicité
Poster une réponse
Anonyme