Je souhaite afficher les infos contnue dans une fueille à l'aide d'un userform dans un premier temps
ce code me permet en selectionant le texte de ma listbox (ckick sur l'intitulé) à afficher les cellule correspondantes dans les textbox:
Private Sub UserFormProduit_Activate()
'renseigne la listbox
produit = Range("B6" ).End(xlDown).Address
ListBox1.RowSource = "C7:" & produit
ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Change()
'affiche textbox selon donnée de la listbox
Sheets("PRODUITS" ).Select
TextBox1.Value = Range("C" & ListBox1.ListIndex + 6)
TextBox2.Value = Range("D" & ListBox1.ListIndex + 6)
'ou
TextBox1.Value = Cells(ListBox1.ListIndex + 6, 3)
TextBox2.Value = Cells(ListBox1.ListIndex + 6, 4)
End Sub |
ca marche impec
cependant mon premier probleme est d'afficher automatiquement ces memes cellule correspondante mais sans avoir a selectioner par ce fameux click de souris sur la listbox.???
sachant que par la suite je voudrait en selectionant par un click un element de ma listbox qu'il insere ce dernier dans une colone d'une autre feuille "devis" (premiere cellule vide depuis A21 ) ???
Bref autant d'element ou j'aurai besoin d'aide
A l'aide j du mal en programmation besoin d'aide par l'exemple??
Merci d'avance