demande de code

Question

Bonjour, je suis confronté à un problème lors de ma programmation en excel vba donc je demande votre aide. voici le problème j'ai deux textbox dans mon formulaire et dans ce formulaire j'ai placé une listbox lorsque je saisie les données dans les deux textbox que je valide mes valeurs s'affichent dans la listbox si je clic sur ses valeurs les deux textbox reçoivent ses deux valeurs mais je n'arrive pas à modifier donc je demande votre aide au niveau du code merci d'avance de votre aimable attention 



Configuration: Windows / Chrome 66.0.3359.139

f894009 · Answer

Bonjour,

Ne sachant pas comment vous mettez vos infos dans la listbox, code de principe:

Private Sub ListBox1_Click()
    TextBox1 = ListBox1.List(ListBox1.ListIndex)
    TextBox1.SetFocus
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        Label1.Caption = ListBox1.ListIndex
    If TextBox1 <> "" Then
        If ListBox1.ListIndex <> -1 Then        ' modif infos
            ListBox1.List(ListBox1.ListIndex) = TextBox1
            ListBox1.ListIndex = -1     'init pour ajout infos
        Else        'pas modif infos
            ListBox1.AddItem TextBox1       'ajout infos
        End If
    End If
    TextBox1 = ""
    TextBox1.SetFocus
End Sub

Demande de code

1 réponse

Discussions similaires

Newsletters