Renvoyer la valeur d'une listbox vers des textbox

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #2

Re : Renvoyer la valeur d'une listbox vers des textbox

Bonjour,

essaye ceci :

Code:

Private Sub ListBox1_Click()
TextBox1 = ListBox1.Value
End Sub

il y a sans doute lieu de définir la colonne qui sera prise en compte, pour que "value" représente la valeur de la 2ème colonne :

Code:

ListBox1.BoundColumn = 2

bonne journée
@+

edition : bonjour Jean-Marcel

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #3

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

Voila peut etre avec un fichier se seras mieux

@+

Max

 

Pièces jointes

• listbox1.zip

  15.7 KB · Affichages: 264
• listbox1.zip

  15.7 KB · Affichages: 209
• listbox1.zip

  15.7 KB · Affichages: 240

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #4

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

comme ceci alors, pour colonnes 1 et 2, à compléter pour les autres "textbox" :

Code:

Private Sub ListBox1_Click()
With ListBox1
    TextBox1 = .List(.ListIndex, 0)
    TextBox2 = .List(.ListIndex, 1)
End With
End Sub

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #5

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

A priori pas de "MultiSelect" dans le fichier joint.... Vois mal son utilisation dans ce cas, pour alimenter 6 textbox...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #6

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

Je vous remercie beaucoup Pierrot, Jean Marcel

Bonne journée

Max

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #7

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

Pourriez vous me dire comment mettre le format date dans TextBox.
J'ai mis le code suivant et il sort le format comme ceci :40194 pour me donner "16/01/2010"

Code:

Private Sub TextBox2_Change()
    Dim Valeur As Byte
    TextBox2.MaxLength = 10    'nb caractères maxi autorisé dans le textbox mettre 8 si tu veux l'année à 2 chiffres
    Valeur = Len(TextBox2)
    If Valeur = 2 Or Valeur = 5 Then TextBox2 = TextBox2 & "/"
End Sub

Peut on m'aider

Je remet mon fichier
Merci d'avance

Max

 

Pièces jointes

• listbox100.xls

  44.5 KB · Affichages: 347

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #8

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

regarde peut être ceci :

Code:

Private Sub TextBox1_Change()
    If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then _
        TextBox1 = TextBox1 & "/"
End Sub

A noter que ceci à plutôt sa place dans l'événement "initialize" de l'usf plutôt que dans l'événement "change" du dit "textbox" :

Code:

TextBox2.MaxLength = 10

bon après midi
@+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #9

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

Non sa n'a rien donner je l'ai mis dans l'événement "initialize"la non plus ou alors je me suis trompé mais je ne crois pas.

@+

Max

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Janvier 2011

• #10

Re : Renvoyer la valeur d'une listbox vers des textbox

Re,

aarf perso avais répondu pour une saisie directe dans la textbox... A coté de la plaque moi...

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 24 Janvier 2011

• #11

Re : Renvoyer la valeur d'une listbox vers des textbox

Re

Sa marche Nickel merci Pierrot, et Jean-Marcel

Bonne aprés midi

Max

 

Vote positif 0 Vote négatif