Message de saisie dans textbox

H

Hellboy

XLDnaute Accro

• 12 Juin 2005

• #2

Bonsoir Sylvain

Et bien par exemple :

Code:

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

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 12 Juin 2005

• #3

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:

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 12 Juin 2005

• #4

Bonjour Sylvain

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

Cliquez pour agrandir...

qui vient de ou ?????

de cette cellule dans la textbox.

Cliquez pour agrandir...

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

Code:

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

ou soit que tu fait l'inverse

Code:

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 !

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 13 Juin 2005

• #5

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

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 13 Juin 2005

• #6

On la refait,

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

 

Pièces jointes

• Classeur1_20050613171416.zip

  10 KB · Affichages: 27

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 13 Juin 2005

• #7

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'

Cliquez pour agrandir...

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+

 

Pièces jointes

• Saut.zip

  9.6 KB · Affichages: 30
• Saut.zip

  9.6 KB · Affichages: 30
• Saut.zip

  9.6 KB · Affichages: 23

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 13 Juin 2005

• #8

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?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Juin 2005

• #9

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]

 

Dernière édition: 13 Septembre 2006

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 13 Juin 2005

• #10

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?

Cliquez pour agrandir...

Premiere question Non

deuxieme question oui

et trois tu peux aussi utiliser ceci:

Code:

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

de rien !

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 13 Juin 2005

• #11

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.

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 13 Juin 2005

• #12

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:

Code:

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Juin 2005

• #13

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à

Code:

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

 

Vote positif 0 Vote négatif

H

Hellboy

XLDnaute Accro

• 13 Juin 2005

• #14

re

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

 

Vote positif 0 Vote négatif

S

Sylvain

Guest

• 14 Juin 2005

• #15

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

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

 

Vote positif 0 Vote négatif