listbox qui remplie des textbox

[nrdz83]

Bonjour à tous voila j'ai un userform avec des combobox et des textbox.

Via une listbox cette dernière remplie les combobox, cela ok ça fonctionne.

Je cherche à remplir mes textbox mais la je n'y arrive pas à formuler le code correctement.

Mes textbox sont nommées, TxtNno, TxtArt, TxtObservations.

Mon code est le suivant:

Private Sub ListBox1_Change() 'au changement dans la ListBox1

'affiche les boutons "Modifier",  "Supprimer" et "Ajouter"
For x = 1 To 5
    Me.Controls("commandbutton" & x).Visible = True
Next x

'définit la variable li
If ListBox1.ListIndex = -1 Then
    li = Range("A65536").End(xlUp).Row + 1
Else
    li = Me.ListBox1.ListIndex + 3
    
End If

'répercute les données dans les différents contrôles
With Worksheets("Article")
    Me.ComboBox4 = .Cells(li, 3)
    Me.ComboBox1 = .Cells(li, 5)
    Me.ComboBox2 = .Cells(li, 6)
    Me.ComboBox3 = .Cells(li, 7)
End With

End Sub

Voila le code que j'essaye de faire et qui ne fonctionne pas.

Private Sub ListBox1_Change() 'au changement dans la ListBox1

'affiche les boutons "Modifier",  "Supprimer" et "Ajouter"
For x = 1 To 5
    Me.Controls("commandbutton" & x).Visible = True
Next x

'définit la variable li
If ListBox1.ListIndex = -1 Then
    li = Range("A65536").End(xlUp).Row + 1
Else
    li = Me.ListBox1.ListIndex + 3
    
End If

'répercute les données dans les différents contrôles
With Worksheets("Article")
    [COLOR="Red"]Me.TxtNno = .Cells(li, 1)
    Me.TxtArt = .Cells(li, 2)[/COLOR]  
  Me.ComboBox4 = .Cells(li, 3)
    [COLOR="red"]Me.TxtRma = .Cells(li, 4)[/COLOR]
    Me.ComboBox1 = .Cells(li, 5)
    Me.ComboBox2 = .Cells(li, 6)
    Me.ComboBox3 = .Cells(li, 7)
    [COLOR="red"]Me.TxtObservations = .Cells(li, 8)[/COLOR]
End With

End Sub

D'avance merci à tous, mes amitiés

 

[Compte Supprimé 979]

Re : listbox qui remplie des textbox

Salut Nrdz83,

Pourquoi tu mets dans ton code

Else
    li = Me.ListBox1.ListIndex + 3

Tu as 3 lignes d'en-tête de tableau dans ta feuille ?

Sinon le code est bon, à part que perso, je mettrais

With Worksheets("Article")
    [COLOR=red]Me.TxtNno.value = .Cells(li, 1).value
    Me.TxtArt.value = .Cells(li, 2).value[/COLOR]
  Me.ComboBox4.value = .Cells(li, 3).value
    [COLOR=red]Me.TxtRma.value = .Cells(li, 4).value[/COLOR]
    Me.ComboBox1.value = .Cells(li, 5).value
    Me.ComboBox2.value = .Cells(li, 6).value
    Me.ComboBox3.value = .Cells(li, 7).value
    [COLOR=red]Me.TxtObservations.value = .Cells(li, 8).value[/COLOR]
End With

A+

 

[Robert]

Re : listbox qui remplie des textbox

Bonsoir Nrdsz, Bruno, bonsoir le forum,

Pareil que Bruno ! Ton code semble correct, seul ton fichier ou un fichier exemple basé sur ton fichier nous permettrait d'en savoir plus et de trouver le bug.

 

[nrdz83]

Re : listbox qui remplie des textbox

Bonjour ROBERT et BRUNOM45 et le forum merci pour vos réponses ça marche , j'ai appliqué ton code bruno et j'ai trouvé mon erreur j'avais la textbox nommée TextNno au lieu de TxtNno.
Merci et mes amitiés 😎