XL 2010 modifier dans une listbox

[yahya belbachir]

Bonjour
je veux une idée pour modifier les données dans la listbox et même dans la base des données(Feuil1").
en ouvre le userform,puis listbox quand on sélectionnant la ligne il s'affiche bien dans les textbox,mon souci et de modifier dans les textbox vers la base des données et la listbox.
merci

 

[Bebere]

Bonsoir
dans la feuille les dates avec séparateur / n'en sont pas.Met au format Standard et tu verras

Private Sub Label_Modifier_Click()
    Application.ScreenUpdating = False
    Dim Maligne As Integer, I As Byte

    Maligne = Me.ListBox_Base.ListIndex + 2
    With Sheets("Feuil1")
        For I = 1 To 10
            .Cells(Maligne, 1).Value = Me("TextBox" & I)
            Me.ListBox_Base.List(Me.ListBox_Base.ListIndex, I - 1) = Me("TextBox" & I)
        Next
    End With
    'Unload Me
End Sub

Private Sub TextBox10_Change() 'entrer date sans séparateur ex:01012019,11022019

    Select Case Len(Me.TextBox10)
    Case 2, 5
        TextBox10 = TextBox10 & "-"
    End Select

End Sub

Private Sub TextBox9_Change()

    Select Case Len(Me.TextBox9)
    Case 2, 5
        TextBox9 = TextBox9 & "-"
    End Select

End Sub

 

[yahya belbachir]

Bonsoir
dans la feuille les dates avec séparateur / n'en sont pas.Met au format Standard et tu verras

Private Sub Label_Modifier_Click()
    Application.ScreenUpdating = False
    Dim Maligne As Integer, I As Byte

    Maligne = Me.ListBox_Base.ListIndex + 2
    With Sheets("Feuil1")
        For I = 1 To 10
            .Cells(Maligne, 1).Value = Me("TextBox" & I)
            Me.ListBox_Base.List(Me.ListBox_Base.ListIndex, I - 1) = Me("TextBox" & I)
        Next
    End With
    'Unload Me
End Sub

Private Sub TextBox10_Change() 'entrer date sans séparateur ex:01012019,11022019

    Select Case Len(Me.TextBox10)
    Case 2, 5
        TextBox10 = TextBox10 & "-"
    End Select

End Sub

Private Sub TextBox9_Change()

    Select Case Len(Me.TextBox9)
    Case 2, 5
        TextBox9 = TextBox9 & "-"
    End Select

End Sub

peut être je ne sais pas maîtriser le code je l'ai copier comme il est,veuillez voir ce qui m'a donné

 

[BOISGONTIER]

Bonjour,

Fait avec un programme générique.

Boisgontier

 

[yahya belbachir]

Bonjour,

Fait avec un programme générique.

Boisgontier

je vous remercie infiniment Monsieur Jacques,c'est super votre proposition.
et j'ai une autre suggestion si vous pouvez m'aider.
je veux faire la base des données dans un autre fichier excel( workbook closed)la source de mon tableau

 

[yahya belbachir]

je vous remercie infiniment Monsieur Jacques,c'est super votre proposition.
et j'ai une autre suggestion si vous pouvez m'aider.
je veux faire la base des données dans un autre fichier excel( workbook closed)la source de mon tableau

Bonjour Monsieur
je vous adresse ce fichier, et veuillez m’excuser pour tout les dérangements.
je joint tout simplement un fichier que j'ai crée je veux seulement,une listbox très simple comme ceci,on triant les dates et cherchant un mot clé(Nom)
je vous remercie

 

[BOISGONTIER]

Bonsoir,

Fait avec un pgm générique en 5 mn

Boisgontier

 

[yahya belbachir]

Bonsoir,

Fait avec un pgm générique en 5 mn

Regarde la pièce jointe 1050520

Boisgontier

merci beaucoup,mais est ce possible de m'aider juste dans le tableau que je vous ai envoyé,car je ne comprends pas beaucoup dans le VBA, je veux juste mon tableau simple sans les combobox et seul un tri des date et c'est tout. je vous remercie si vous pouvez m'aider