Alimenter une LISTVIEW avec des codes VBA (module 2)

Поділитися
Вставка
  • Опубліковано 14 січ 2025

КОМЕНТАРІ • 12

  • @hamitenath6325
    @hamitenath6325 9 місяців тому +1

    Salam Alykoum Ali, merci infiniment pour cette générosité distillée calmement avec beaucoup de clarté et, d'ingéniosité dans les raccourcis des codes. Vous restez parmi les meilleurs "Formateurs" que l'on puisse trouver sur UA-cam. MachâAllah
    👍🏼👍🏼👍🏼 clic 55. suivis les deux modules
    Bonne vie

    • @souinidaali
      @souinidaali  9 місяців тому

      Merci beaucoup, je suis honoré !

  • @azizsb2374
    @azizsb2374 7 місяців тому +1

    Très bien expliqué.
    Merci et bon courage

  • @JeanLucBless
    @JeanLucBless Рік тому +1

    Merci beaucoup pour ces tutos expliqués très calmement et avec une véritable compréhension. A bientot

    • @souinidaali
      @souinidaali  Рік тому +1

      Merci beaucoup, je suis honoré !

  • @ابوفرح-ش9م
    @ابوفرح-ش9م Рік тому +1

    شكرا

  • @MohAboAbdo
    @MohAboAbdo 3 роки тому

    شكرا جزيلا أخي الكريم، بارك الله فيك وجزاك الله كل خير

  • @fabiuskumgne3659
    @fabiuskumgne3659 3 роки тому +1

    merci pour le tuto

  • @mrhaki1962
    @mrhaki1962 9 місяців тому

    Merci beaucoup

  • @bassisessaidexcel
    @bassisessaidexcel 2 роки тому +1

    Merci

  • @vivoumontreal6934
    @vivoumontreal6934 Рік тому

    Bonjour Ali, merci beaucoup pour tes explications, c'est super, petite question pour toi : j'essaye de créer une comboBox pour filtrer les résultats de ma listview, peux-tu stp m'aider avec un complément de code, j'ai écris ceci :Private Sub ComboBox3_AfterUpdate()
    Dim i1 As Integer
    Dim x1 As ListItem
    Dim j1 As Integer
    Me.ListView1.View = lvwReport
    For j1 = 1 To Range("xfd1").End(xlToLeft).Column
    if Cells(i1, "C").Value = Me.ComboBox3.Value Then
    Me.ListView1.ColumnHeaders.Add , , Cells(1, j1), 65
    Next j1
    For i1 = 2 To Range("a32000").End(xlUp).Row
    Set x1 = Me.ListView1.ListItems.Add(, , Cells(i1, 1))
    For j1 = 2 To Range("xfd1").End(xlToLeft).Column
    x1.ListSubItems.Add , , Cells(i1, j1)
    End If
    Next j1
    Next i1
    End Sub
    Merci encore pour tout.

    • @souinidaali
      @souinidaali  Рік тому

      ua-cam.com/video/pXgB8ya23xY/v-deo.html