Renvoyer la valeur d'une listbox vers des textbox

[apdf1]

bonjour,

J’aimerais, quand je sélectionne une ligne de ma ListBox que ces valeurs vont vers les TextBox.(6)

ci joint mon Code

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Initialize()
Dim maplage As Range, i As Integer
With ListBox1
    .ColumnCount = 6
    .ColumnHeads = True
    .RowSource = Range("B9:G" & Range("B65536").End(xlUp).Row).Address
End With
 

End Sub

Merci d'avance

Cordialement

Max

 

[Pierrot93]

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

Bonjour,

essaye ceci :

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 :

ListBox1.BoundColumn = 2

bonne journée
@+

edition : bonjour Jean-Marcel

 

[apdf1]

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

Re,

Voila peut etre avec un fichier se seras mieux

@+

Max

 

[Pierrot93]

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" :

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

@+

 

[Pierrot93]

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...

 

[apdf1]

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

Re,

Je vous remercie beaucoup Pierrot, Jean Marcel

Bonne journée

Max

 

[apdf1]

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"

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

 

[Pierrot93]

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

Re,

regarde peut être ceci :

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" :

TextBox2.MaxLength = 10

bon après midi
@+

 

[apdf1]

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

 

[Pierrot93]

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...

 

[apdf1]

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

Re

Sa marche Nickel merci Pierrot, et Jean-Marcel

Bonne aprés midi

Max