Listbox avec textbox

bonjour j'ai un souci avec ma listbox j'aimerais qu'elle m'affiche 8 colonnes mais je peut en mettre que 2 et ca menerve

si quelqu'un peut m'aider

je vous joint mon fichier

j'aimerais que mon userform2 s'ouvre rempli du fichier "client" avec 8 colonnes

dès que je rempli le textbox ca filtre la listbox

et ensuite quand je clic sur une des lignes de la listbox ca m'ouvre l'userform1 et rempli automatiquement toute les combobox et textbox correspondant au nom cliquer dans la listbox de l'userform2

merci encore pour votre aide

Bonsoir Caje, bonsoir le forum,

L'initialisation d'une UserForm, quel que soit son nom, se fait uniquement avec Private Sub UserForm_Initialize(). Si tu écris : Private Sub UserForm2_Initialize() (avec le 2), l'initialisation ne se fait pas !

Difficile d'afficher 8 colonnes avec ListBox1.ColumnCount = 3...

En pièce jointe ton fichier modifié et commenté...

bonjour,merci a Thau Thème pour ses explications ca fonctionne a merveille

mais comme je suis une bille en vba je n'arrive pas a ouvrir mon userform1 Client(feuille3) en cliquant dans ma listbox et qu'il me remplisse automatiquement les textbox et combobox de l'userform1 client avec la ligne selectionner

merci encore pour ce site super cool

merci a ceux qui peuvent me repondre

Bonsoir Caje, bonsoir le forum,

Essaie comme ça :

Private Sub ListBox1_Click() 'au clic dans la ListBox1
Dim LI As Integer 'déclare la variable LI (LIgne)

With Me.ListBox1 'prend en compte la ListBox1
    LI = .Column(8, .ListIndex) 'définit la ligne LI
End With 'fin de la prise en compte de la ListBox1
With UserForm1 'prend en compte l'UserForm1
    .TextBox1.Value = O.Cells(LI, 1).Value 'définit la valeur de la Textbox1
    .TextBox2.Value = O.Cells(LI, 2) 'définit la valeur de la Textbox2
    .TextBox3.Value = O.Cells(LI, 3) 'définit la valeur de la Textbox3
    .TextBox4.Value = O.Cells(LI, 4) 'définit la valeur de la Textbox4
    .ComboCP.Value = O.Cells(LI, 5) 'définit la valeur de la ComboBox ComboCP
    .ComboBox2.Value = O.Cells(LI, 6) 'définit la valeur de la ComboBox2
    .TextBox6.Value = O.Cells(LI, 7) 'définit la valeur de la Textbox6
    .TextBox7.Value = O.Cells(LI, 8) 'définit la valeur de la Textbox7
End With 'fin de la prise en compte de l'UserForm1
Unload Me 'vide et ferme l'UserForm2
UserForm1.Show 'affiche la ComboBox1
End Sub

un grand merci a toi

ca marche nickel

probleme resolu