XL 2010 modifier dans une listbox

yahya belbachir · 29 Décembre 2019

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 · 30 Décembre 2019

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

VB:

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 · 30 Décembre 2019

Bebere à dit:

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

VB:

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 · 30 Décembre 2019

Bonjour,

Fait avec un programme générique.

Boisgontier

yahya belbachir · 30 Décembre 2019

BOISGONTIER à dit:
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 · 5 Janvier 2020

yahya belbachir à dit:
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 · 5 Janvier 2020

Bonsoir,

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

Boisgontier

yahya belbachir · 5 Janvier 2020

BOISGONTIER à dit:
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

XL 2010 modifier dans une listbox

yahya belbachir

XLDnaute Occasionnel

Pièces jointes

Bebere

XLDnaute Barbatruc

yahya belbachir

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

yahya belbachir

XLDnaute Occasionnel

Pièces jointes

yahya belbachir

XLDnaute Occasionnel

Pièces jointes

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

yahya belbachir

XLDnaute Occasionnel

Discussions similaires