Discussion :

[Pscl0]

Bonjours a tous

Voila mon problème:

Je cherche un code pour faire de la recherche de ce type :

j'ai un formulaire de recherche avec 2 texbox et un bouton recherche, donc 2 critère de recherche différent.

Quand je lance la recherche, il regarde ce qu'il y a dans une des deux texbox qui elle doit aller chercher dans la feuille X colonne C ou feuille X colonne D pour la seconde textbox.

si il trouve il ouvre un formulaire et m'affiche toute les informations complémentaire dans les textbox qui corresponde. Les données sont sur ligne et vont jusqu’à la colonne K.

Ce formulaire en question en juste un visu donc j'ai désactive les textbox pour eviter les modifs (j'en ai un autre qui permet la modif lui)

J'ai vu plein de manière de le faire mais j'y arrive pas.

Je suis pas programmeur et j'ai jamais touché au vba, j'ai donc arrêté de bricoler...

Merci pour votre aide

[riaolle]

Bonjour et bienvenue au forum,
Pour faire ce type de recherche, je pense que tu peux utilsier Application.VLookUp, mais ceci ne marche que si la valeur cherchée (ceelle de la textbox) ce trouve dans une colonne avant la cellule cible (si j'ai bien compris, dans ton cas, il faudrait que la cellule cible soit après la colonne D).
Si ce n'est pas le cas, tu peux utiliser Application.Match qui te permet de trouver la ligne de la valeur cherchée et à partir de la ligne tu peux récupérer les valeurs des autres colonnes. Si tu as plusieurs Textbox à remplir, ça peut aussi être une solution intéressante, car tu cherches une fois cette ligne, puis tu recopies les valeurs des différentes colonnes.
Ensuite, pour tout savoir sur la façon d'utiliser les controles dans une UserForm : http://silkyroad.developpez.com/VBA/ControlesUserForm/.
Essaie d'utiliser tout ça et reviens avec un code pour qu'on puisse t'aider à l'améliorer. Bon courage

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim LigneTrouve As Long
LigneTrouve = RechercheDoubleEntre(Sheets("Feuil2").Range("A:A"), "Commande 1253", "Article 5623", "C")
If CBool(LigneTrouve) Then MsgBox "Trouvé en ligne " & LigneTrouve
End Sub
Function SerchXls(Myrange As Range, MyCellule As Range, strRecherche, EntierCell As Boolean, EnBoucle As Boolean) As Long '
On Error Resume Next
SerchXls = 0
If EntierCell = False Then Entier = xlPart Else Entier = xlWhole
   SerchXls = Myrange.Cells.Find(What:=strRecherche, After:=MyCellule, LookIn:=xlFormulas, LookAt _
        :=Entier, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=EntierCell).Row
  If SerchXls <= MyCellule.Row And EnBoucle = False Then SerchXls = 0
End Function
Function RechercheDoubleEntre(Plage As Range, ChercheTxt1 As String, ChercheTxt2 As String, ColCherche2 As String) As Long
Dim L As Long: L = 1
Do While L > 0
    L = SerchXls(Plage, Plage.Cells(L, 1), ChercheTxt1, True, False)
    If Not CBool(L) Then Exit Do
    If Plage.Parent.Cells(L, ColCherche2) = ChercheTxt2 Then Exit Do
Loop
RechercheDoubleEntre = L
End Function

[satpscl0]

Bonjour à tous,

Merci pour les réponses, je vais travailler dessus ce dimanche et je vous fait un retour.

Merci encore.