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
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.
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
Merci beaucoup, je suis honoré !
Très bien expliqué.
Merci et bon courage
Merci beaucoup pour ces tutos expliqués très calmement et avec une véritable compréhension. A bientot
Merci beaucoup, je suis honoré !
شكرا
شكرا جزيلا أخي الكريم، بارك الله فيك وجزاك الله كل خير
merci pour le tuto
Merci beaucoup
Merci
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.
ua-cam.com/video/pXgB8ya23xY/v-deo.html