Bonsoir Jean Marie
Bonsoir Patrick
merci pour vos échanges
j'ai bien effectué le même code
mais ça ne donne rien
veuillez voir ce que j'ai dans mon fichier
Bonsoir
veuillez jeter un coup d'oeil sur mon code,lorseque je lance ma recherche les colonne se disparait
et m'affiche que deux colonnes 1 et 2
Private Sub TextBox1_Change()
Dim I&, colonne&, critere As Boolean
With ListView1
.ListItems.Clear
For I = 2 To UBound(tableau)
If Left(tableau(I, 3), Len(TextBox1)) = TextBox1 Then
If TextBox2 <> "" Then critere = tableau(I, 9) = CDate(TextBox2) Else critere = True
For colonne = 2 To UBound(tableau, 2)
If critere Then
Set LstVqItem = .ListItems.Add(Text:=tableau(I, 1))
With LstVqItem
.ListSubItems.Add , , tableau(I, colonne)
End With
End If
Next
End If
Next
End With
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub TextBox2_Change()
Dim I&, colonne&, critere As Boolean
With ListView1
.ListItems.Clear
For I = 2 To UBound(tableau)
If Len(TextBox2) = 10 And IsDate(TextBox2) Then
If tableau(I, 9) = CDate(TextBox2) Then
If TextBox1 <> "" Then critere = tableau(I, 3) = TextBox1 Else critere = True
For colonne = 2 To UBound(tableau, 2)
If critere Then
Set LstVqItem = .ListItems.Add(Text:=tableau(I, 1))
With LstVqItem
.ListSubItems.Add , , tableau(I, colonne)
End With
End If
Next
End If
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim I&, colonne&
With UserForm1.ListView1
.ListItems.Clear
With .ColumnHeaders
.Clear
.Add Text:="N°", Width:=40, Alignment:=lvwColumnLeft
.Add Text:="Serie", Width:=40, Alignment:=fmAlignmentLeft
.Add Text:="Nom", Width:=80, Alignment:=lvwColumnLeft
.Add Text:="Prénom", Width:=80, Alignment:=fmAlignmentLeft
.Add Text:="Naissance", Width:=60, Alignment:=lvwColumnLeft
.Add Text:="Nationalité", Width:=80, Alignment:=fmAlignmentLeft
.Add Text:="Ville", Width:=70, Alignment:=lvwColumnLeft
.Add Text:="Tél", Width:=80, Alignment:=fmAlignmentLeft
.Add Text:="Date", Width:=70, Alignment:=lvwColumnLeft
.Add Text:="Profession", Width:=90, Alignment:=fmAlignmentLeft
End With
.Gridlines = True: .BorderStyle = ccFixedSingle: .FullRowSelect = True: .View = lvwReport
tableau = Feuil1.Range("A1", Cells(Rows.Count, "J").End(xlUp)).Value
For I = 2 To UBound(tableau)
Set LstVqItem = .ListItems.Add(Text:=tableau(I, 1))
With LstVqItem
For colonne = 2 To UBound(tableau, 2)
.ListSubItems.Add , , tableau(I, colonne)
Next
End With
Next
End With
End Sub