Message de saisie dans textbox

[Sylvain]

Bonjour le forum,

Dans un UserForm j'ai une combobox dans laquelle je choisis un exercice et une textbox dans laquelle s'inscrit l'explication de cet exercice.

Comment faire pour afficher un message de saisie d'une cellule dans la textbox?

Par avance, merci.

 

[Hellboy]

Bonsoir Sylvain

Et bien par exemple :

UserformX.TextboxX.value = Cells(1,1)

 

[Sylvain]

Salut philippe,

cette formule marche pour inscrire le contenu d'une cellule. Ce que je voudrais c'est inscrire la validation (et donc le message de saisie) de cette cellule dans la textbox.

:huh:

 

[Hellboy]

Bonjour Sylvain

Ce que je voudrais c'est inscrire la
validation (et donc le message de saisie)

qui vient de ou ?????

de cette cellule dans la textbox.

C'est soit se que je t'ai envoyé

UserformX.TextboxX.value = Cells(1,1)

ou soit que tu fait l'inverse

Cells(1,1) = UserformX.TextboxX.value

. Si non tu ne donne pas toutes les explications. Tu peux aussi joindre ton fichier pour mieux voir. (fichier zippé sans accents ni caractères spéciaux ni espaces et inférieur à 50 Ko )

Merci !

 

[Sylvain]

Voilà mon fichier.
J'espère que c'est assez clair.

 

[Sylvain]

On la refait,

[file name=Classeur1_20050613171416.zip size=10225]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050613171416.zip[/file]

 

[Hellboy]

Bonjour Sylvain

Je te retourne le fichier avec ce que je pense que tu veux.
[file name=Saut.zip size=9828]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Saut.zip[/file]

Maintenant une petite chose.

Dans userform1, je voudrais faire apparaître dans la textbox le message de saisie de B3 ou B4. C'est à dire :
'aller le plus loin possible'
'aller le plus haut possible'

Le message de saisie en B3 et en B4 n'est pas:
'aller le plus loin possible'
'aller le plus haut possible'

C'est:
saut en longueur
saut en hauteur

Alors ?????? :huh:

J'ai peut être les idées embrouillées en ce Lundi qui sais ! :woohoo:

a+

 

[Sylvain]

Merci, ça fonctionne.
Cependant, ma liste comporte 200 exercices. Faut-il que je saisisse dans visual basic 200 fois:

Case 'exercice'
UserForm1.TextBox1.Value = 'description de l'exercice'

ou existe-t-il un moyen d'utiliser une variable?

 

[ChTi160]

Salut Sylvain
bonjour le Fil
en pièce Jointe une possibilité à adapter sûrement [file name=ClasseurV1.zip size=10608]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ClasseurV1.zip[/file]

 

[Hellboy]

Sylvain écrit:

Merci, ça fonctionne.
Cependant, ma liste comporte 200 exercices. Faut-il que je saisisse dans visual basic 200 fois:

Case 'exercice'
UserForm1.TextBox1.Value = 'description de l'exercice'

ou existe-t-il un moyen d'utiliser une variable?

Premiere question Non

deuxieme question oui

et trois tu peux aussi utiliser ceci:

UserForm1.TextBox1.Value = Cells(Range('B1:B65536').Find(What:=ComboBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True).Row, 2)

de rien !

 

[Sylvain]

Salut ChTi160,

ta solution est celle que j'utilise pour le moment mais je voulais éviter d'avoir une colonne pour le nom de l'exercice et une autre pour sa description.
C'est pour ça que pour B3, j'ai fait:
données - validation - message de saisie quand la cellule est sélectionnée 'aller le plus loin possible'

et que je souhaitais mettre dans la textbox du userform1 ce message de saisie.

Merci pour vos idées.

 

[Hellboy]

Bonjour Sylvain, ChTi160

Bon, la je comprend. C'est d'une fonctionnalité de Excel que tu parlais pour le message de saisie. Je suis désolé, mias je n'ai jamias utilisé cela, donc je ne connaissais pas cette option. Merci du coup pour cette connaissance.

Alors si on treprend de zéro:

UserForm1.TextBox1.Value = Range('B1:B65536').Find(What:=ComboBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True).Validation.InputMessage

Désolé, encore, je ne connaissais pas cette option. En espérant que cela va répondre maintean t a ta question initiale.

 

[ChTi160]

re
Alors là moi je me surprends moi même Lol
Voilà j'ai enregistré Via l'enregistreur de macro l'introduction d'une Donnée Validation et en testant j'ai obtenu ceci qui fonctionne.
à adapter sûrement
un peu de HellBoy un peu de cHti160 et Voilà

Private Sub ComboBox1_Change()
Dim val As String
Dim c As Range
Set c = Cells(Range('B1:B65536').Find(What:=ComboBox1.Value, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True).Row, 2)
If Not c Is Nothing Then
UserForm1.TextBox1.Value = Cells(c.Row, 2).Validation.InputMessage
End If
End Sub

tiens nous au courant

 

[Hellboy]

re

Merci ChTi160, j'ai fais un peu vite. Avec la collaboration on va allez loin.

 

[Sylvain]

Merci beaucoup à tous les deux,
ça fonctionne à merveille!

Vous avez été au top !!! :woohoo: