listBox

[apdf1]

Bonjour,
J’ai une fois de plus besoin de vos lumières en vba.
Voilà ! J’ai un userform1 avec une ListBox1. J’aimerais, quand je sélectionne une ligne de ma ListBox que ces valeurs vont vers les TextBox d’un un autre UserForm2.
Je ne sais pas si je me fais bien comprendre mais je reste à votre disposition.

Amicalement
Max

 

[Pierrot93]

Re : listBox

Bonjour,

essaye peut être ceci, à utiliser dans le module de l'usf 1 :

UserForm2.TextBox1.Value = ListBox1.Value

a condition que les 2 usf soient chargés en mémoire... sans plus de détails, difficile de t'en dire plus....

bon après midi
@+

 

[apdf1]

Re : listBox

Re,

Je te remercie mais sa ne marche pas
Je vais essayé de mettre un modele

@+
Max

 

[apdf1]

Re : listBox

Re,

Voila j'ai mis mon fichier joint sa sera peut-être plus facile si quelqu'un pouvais me dire comme je peux faire sa m'arrangerais beaucoup.

Merci d'avance

Cordialement
Max

 

[JNP]

Re : listBox

Bonjour le fil 🙂,
Je modifierais dans le 2

Private Sub ListBox2_Click()
 Li = ListBox2.ListIndex
  TextBox1 = ListBox2.List(Li, 0) 'colonne1
   TextBox2 = ListBox2.List(Li, 1) 'colonne2
    TextBox3 = ListBox2.List(Li, 2) 'colonne3
     TextBox4 = ListBox2.List(Li, 3) 'colonne4
      TextBox5 = ListBox2.List(Li, 4) 'colonne5
       TextBox6 = ListBox2.List(Li, 5) 'colonne6
        TextBox7 = ListBox2.List(Li, 6) 'colonne7
        
     Me.Hide 'cache l'userform1 en selectionnant dans la listbox
    UserForm3.Show ' et ouverture UserForm3
  
 
End Sub

et je mettrais dans le 3

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = UserForm2.TextBox1
Me.TextBox2 = UserForm2.TextBox2
Me.TextBox3 = UserForm2.TextBox3
Me.TextBox4 = UserForm2.TextBox4
Me.TextBox5 = UserForm2.TextBox5
Me.TextBox6 = UserForm2.TextBox6
Me.TextBox7 = UserForm2.TextBox7
End Sub

Bonne soirée 😎

 

[apdf1]

Re : listBox

Re,

Merci beaucoup cet exactement se que je voulais.

Merci encore et bonne soirée

@+
Max