Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel USerform : Afficher une valeur dans un Textbox avec un scrollbar

USerform : Afficher une valeur dans un Textbox avec un scrollbar

4 réponses
Avatar
Domi
Bonsoir,
Encore une petite question sur les userforms...

J'ai dans un Userform un Combobox "NumDos" dont la source est la plage
""BaseAFNum"
Me.NumDos.RowSource = "BaseAFNum"

Je souhaiterais remplacer le Combobox par un Textbox et pouvoir y
sélectionner une valeur en les faisant défiler à l'aide d'un scrollbar
voisin.
Quelqu'un pourrait-il m'indiquer comment faire ?
Merci
Domi
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Bonsoir Domi,

Tu risques d'avoir des grosses surprises .... mais si tu veux poursuivre dans cette direction :

Pour ton textbox, tu dois définir la propriété :

MultiLine = True
ScrollBars = fmScrollBarsVertical

Pour remplir ton textbox :
'---------------------------
Dim Texte As String

With Worksheets("Feuil1")
For Each c In .Range("A1:A10")
Texte = Texte & c.Text & Chr(10)
Next
End With
Me.TextBox1 = Texte
'---------------------------

Pour récupérer le texte sélectionné :

MsgBox Me.TextBox1.SelText


Salutations!



"Domi" a écrit dans le message de news: e1%
Bonsoir,
Encore une petite question sur les userforms...

J'ai dans un Userform un Combobox "NumDos" dont la source est la plage
""BaseAFNum"
Me.NumDos.RowSource = "BaseAFNum"

Je souhaiterais remplacer le Combobox par un Textbox et pouvoir y
sélectionner une valeur en les faisant défiler à l'aide d'un scrollbar
voisin.
Quelqu'un pourrait-il m'indiquer comment faire ?
Merci
Domi
Avatar
Domi
Merci,
Cela marche très bien mais à vrai dire je ne pensais pas à cette solution
mais plutôt à un Texbox dans lequel je ferais défiler les enregistrements
grâce à aux flèches d'une barre de défilement indépendante à côté... c'est
possible aussi ?

Encore Merci
Domi

"MichDenis" a écrit dans le message de
news:
Bonsoir Domi,

Tu risques d'avoir des grosses surprises .... mais si tu veux poursuivre
dans cette direction :


Pour ton textbox, tu dois définir la propriété :

MultiLine = True
ScrollBars = fmScrollBarsVertical

Pour remplir ton textbox :
'---------------------------
Dim Texte As String

With Worksheets("Feuil1")
For Each c In .Range("A1:A10")
Texte = Texte & c.Text & Chr(10)
Next
End With
Me.TextBox1 = Texte
'---------------------------

Pour récupérer le texte sélectionné :

MsgBox Me.TextBox1.SelText


Salutations!



"Domi" a écrit dans le message de news:
e1%

Bonsoir,
Encore une petite question sur les userforms...

J'ai dans un Userform un Combobox "NumDos" dont la source est la plage
""BaseAFNum"
Me.NumDos.RowSource = "BaseAFNum"

Je souhaiterais remplacer le Combobox par un Textbox et pouvoir y
sélectionner une valeur en les faisant défiler à l'aide d'un scrollbar
voisin.
Quelqu'un pourrait-il m'indiquer comment faire ?
Merci
Domi






Avatar
MichDenis
Bonjour Domi,

C'est bien là la lacune des textbox, il n'y a aucune façon simple (si il y en a une complexe ???) de faire la
correspondance entre par exemple la ligne où se situe le curseur, le fait d'utiliser l'ascenseur du textbox manuellement
et la valeur d'un SpinButton1.

Je ne sais pas pourquoi tu veux vraiment utiliser un textbox, il me semble qu'un listbox (ou combobox) serait beaucoup
mieux approprié à ta demande !

Bonne chance dans tes démarches !


Salutations!



"Domi" a écrit dans le message de news:
Merci,
Cela marche très bien mais à vrai dire je ne pensais pas à cette solution
mais plutôt à un Texbox dans lequel je ferais défiler les enregistrements
grâce à aux flèches d'une barre de défilement indépendante à côté... c'est
possible aussi ?

Encore Merci
Domi

"MichDenis" a écrit dans le message de
news:
Bonsoir Domi,

Tu risques d'avoir des grosses surprises .... mais si tu veux poursuivre
dans cette direction :


Pour ton textbox, tu dois définir la propriété :

MultiLine = True
ScrollBars = fmScrollBarsVertical

Pour remplir ton textbox :
'---------------------------
Dim Texte As String

With Worksheets("Feuil1")
For Each c In .Range("A1:A10")
Texte = Texte & c.Text & Chr(10)
Next
End With
Me.TextBox1 = Texte
'---------------------------

Pour récupérer le texte sélectionné :

MsgBox Me.TextBox1.SelText


Salutations!



"Domi" a écrit dans le message de news:
e1%

Bonsoir,
Encore une petite question sur les userforms...

J'ai dans un Userform un Combobox "NumDos" dont la source est la plage
""BaseAFNum"
Me.NumDos.RowSource = "BaseAFNum"

Je souhaiterais remplacer le Combobox par un Textbox et pouvoir y
sélectionner une valeur en les faisant défiler à l'aide d'un scrollbar
voisin.
Quelqu'un pourrait-il m'indiquer comment faire ?
Merci
Domi






Avatar
Domi
Merci beaucoup,
tes réponses même négatives sont enrichissantes. En fait je ne veux pas
absolument une solution par rapport à une autre, je découvre l'usage des
userforms et je fais des essais. Je ne parviens pas encore à définir quel
est le meilleur outil à adopter en fonction de la situation.
Pour ne rien te cacher,ce truc de faire défiler les enregistrement avec une
barre de defilement je l'ai vu dans une applic exemple ici :
http://perso.wanadoo.fr/veriti/excel/sommaire.htm
Je trouve le Userform qui sert à naviguer dans la BDD particulièrment bien
fait. J'ai trouvé cela chouette et je me casse les dents à vouloir essayer
ne faire ne serait-ce qu'une pale imitation !

Si tu sais comment il a fait...
Encore Merci ;o)
Domi

"MichDenis" a écrit dans le message de
news:
Bonjour Domi,

C'est bien là la lacune des textbox, il n'y a aucune façon simple (si il y
en a une complexe ???) de faire la

correspondance entre par exemple la ligne où se situe le curseur, le fait
d'utiliser l'ascenseur du textbox manuellement

et la valeur d'un SpinButton1.

Je ne sais pas pourquoi tu veux vraiment utiliser un textbox, il me semble
qu'un listbox (ou combobox) serait beaucoup

mieux approprié à ta demande !

Bonne chance dans tes démarches !


Salutations!



"Domi" a écrit dans le message de news:


Merci,
Cela marche très bien mais à vrai dire je ne pensais pas à cette solution
mais plutôt à un Texbox dans lequel je ferais défiler les enregistrements
grâce à aux flèches d'une barre de défilement indépendante à côté... c'est
possible aussi ?

Encore Merci
Domi

"MichDenis" a écrit dans le message de
news:
Bonsoir Domi,

Tu risques d'avoir des grosses surprises .... mais si tu veux poursuivre
dans cette direction :


Pour ton textbox, tu dois définir la propriété :

MultiLine = True
ScrollBars = fmScrollBarsVertical

Pour remplir ton textbox :
'---------------------------
Dim Texte As String

With Worksheets("Feuil1")
For Each c In .Range("A1:A10")
Texte = Texte & c.Text & Chr(10)
Next
End With
Me.TextBox1 = Texte
'---------------------------

Pour récupérer le texte sélectionné :

MsgBox Me.TextBox1.SelText


Salutations!



"Domi" a écrit dans le message de news:
e1%

Bonsoir,
Encore une petite question sur les userforms...

J'ai dans un Userform un Combobox "NumDos" dont la source est la plage
""BaseAFNum"
Me.NumDos.RowSource = "BaseAFNum"

Je souhaiterais remplacer le Combobox par un Textbox et pouvoir y
sélectionner une valeur en les faisant défiler à l'aide d'un scrollbar
voisin.
Quelqu'un pourrait-il m'indiquer comment faire ?
Merci
Domi