Bonjour, je suis désolé mais je n'ai pas vu ce point dans mon cours d'info....
Private Sub CommandButtonRECHERCHER_Click()
Dim ws As Worksheet
Dim Orng As Range
Dim i, li As Integer
Dim j As Integer
Dim l, lmax As Integer
Dim col, cmax As Integer
Dim txt1, txt2 As String
' -- Initialisation des variables
Set ws = ThisWorkbook.Sheets("Stock") 'Nom de l'onglet contenant nos données:
Set Orng = ws.Cells(1, 1)
lmax = 1
Do Until IsEmpty(Orng.Offset(lmax, 0))
lmax = lmax + 1
Loop
cmax = 1
Do Until IsEmpty(Orng.Offset(0, cmax))
cmax = cmax + 1
Loop
'Notre cellule de référence de notre tableau
' -- Construction du tableau
'With UsfSearch2.ListViewRECHERCHE 'Nous travaillons avec notre Listview "lvPieces" dans notre userform
' -- Ajout des colonnes
UsfSearch2.ListViewRECHERCHE.ColumnHeaders.Clear ' Effacer les entêtes existantes
UsfSearch2.ListViewRECHERCHE.ListItems.Clear
' -- Spécifier l'affichage du Listview en mode "Détails"
UsfSearch2.ListViewRECHERCHE.View = lvwReport
'on boucle sur les éléments tant qu'on ne trouve pas de lignes vides
i = 0
li = 1
Do Until i = cmax
'Ajouter une colonne en spécifiant :
' une clé d'identification (Key) (situé 1 ligne au-dessus de notre tableau)
' une description
' une largeur (basé sur la largeur de la colonne dans notre classeur)
'les titres sont sur la même ligne que notre référence (rg)
'.ColumnHeaders.Add , rg.Offset(-1, i), rg.Offset(0, i), rg.Offset(0, i).Width
UsfSearch2.ListViewRECHERCHE.ColumnHeaders.Add , , Orng.Offset(0, i), Orng.Offset(0, i).Width
i = i + 1
Loop
i = 0
For l = 1 To lmax
For col = 1 To cmax + 1
txt1 = Orng.Offset(l, col - 1).Value
txt2 = "*" & Trim$(TextBoxRECHERCHER.Value) & "*"
If LCase(txt1) Like LCase(txt2) Then
i = l
End If
Next
If i = l Then
UsfSearch2.ListViewRECHERCHE.ListItems.Add (li), , Orng.Offset(i, 0)
For col = 1 To cmax
UsfSearch2.ListViewRECHERCHE.ListItems(li).ListSubItems.Add (col), , Orng.Offset(i, col)
Next
i = 0
li = li + 1
End If
Next
UsfSearch2.ListViewRECHERCHE.ListItems(1).Selected = False
'End With
End Sub
Si tu veux bien prendre le temps de m'expliquer je t'en serais reconnaissant. Merci !