Bonjour all,
C'est encore moi avec mon userform de recherche ^^
J'ai enfin réussi à le faire tout marche super bien, sa affiche tout ce que j'ai besoin
Mais y a un souci ( en faillais bien un quand même), le bouton qui lance le userform se trouve sur la page de la base de donnée et tout marche bien par contre j'ai mis le bouton pour le lancer a partir de ma feuil tableau de bord. Le userform se lance mais ne trouve plus les données……
Je vois d'où viens le probleme, mais mes conaissance son assez limiter pour indiquer que les infos se trouve sur une autre page.
Private Sub CommandButton1_Click()
k = 0
Me.ListBox1.Clear
If Me.TextBox3 = "" Then Me.TextBox3 = "*"
If Me.TextBox2 = "" Then Me.TextBox2 = "*"
If Me.TextBox1 = "" Then Me.TextBox1 = "*"
For i = 2 To [A65000].End(xlUp).Row
If Cells(i, 1) Like "*" & Me.TextBox1 & "*" _
And Cells(i, 8) Like TextBox2 & "*" _
And Cells(i, 7) Like TextBox3 Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = Cells(i, 1)
Me.ListBox1.List(k, 1) = Cells(i, 2)
Me.ListBox1.List(k, 2) = Cells(i, 3)
Me.ListBox1.List(k, 3) = Cells(i, 4)
Me.ListBox1.List(k, 4) = Cells(i, 5)
Me.ListBox1.List(k, 5) = Cells(i, 6)
Me.ListBox1.List(k, 6) = Cells(i, 7)
Me.ListBox1.List(k, 7) = Cells(i, 8)
Me.ListBox1.List(k, 8) = Cells(i, 9)
Me.ListBox1.List(k, 9) = Cells(i, 10)
k = k + 1
End If
Next i
End Sub
Private Sub UserForm_Click()
End Sub
J'oubliais pourquoi ca me met une erreure si je met une colone 11 ?
merci de votre aide