Bouton recherche Produit dans un useform
bonjour a tous
encore un nouveau défit à relever et je ne peux le faire...............
voila j'ai un useform (que j'ai crée qui devrait en théorie me permettre de cherche un produit par son code dans une liste et d'afficher le produit correspondant
voici le useform en pj pour une meilleure compréhension
il me semble que le code ne devrait pas être complexe pourtant malgré tout mes essais .........................
si quelqu'un a une idée je suis preneur
encore merci a tous pour votre patience.........
Bonjour,
Avec une photo c'est super, le code à te retourner doit aussi être sous forme d'image ?
Voici un exemple de recherche à adapter, je te laisse faire n'ayant pas de fichier sur lequel travailler
Steedson
merci pour ton retour. Voici le code utilisé initialement et qui ne fonctionne pas
Private Sub CommandButton1_Click()
UserForm4.Show
End Sub
Private Sub T1_Change()
Dim i&, fin&, Y&, a&, aa, bb, lig&, col&
Application.ScreenUpdating = 0
If T1 = "" Then L1.Clear: Exit Sub
L1.Clear
With Feuil1
Y = 1
fin = .Range("Y" & Rows.Count).End(xlUp).Row
col = .Cells(5, Columns.Count).End(xlToLeft).Column + 2
If fin < 2 Then fin = 2: Exit Sub
aa = .Range(.Cells(2, 1), .Cells(fin, col))
End With
For i = 1 To UBound(aa)
aa(i, UBound(aa, 2) - 1) = i + 1
aa(i, UBound(aa, 2)) = ""
Next i
For i = 1 To UBound(aa)
For a = 1 To UBound(aa, 2)
If aa(i, a) Like "*" & T1 & "*" Then aa(i, UBound(aa, 2)) = "oui": Y = Y + 1: Exit For
Next a
Next i
If Y = 1 Then Exit Sub
ReDim bb(Y - 1, UBound(aa, 2) - 1)
Y = 1
For i = 1 To UBound(aa)
If aa(i, UBound(aa, 2)) = "oui" Then
For a = 1 To UBound(aa, 2) - 1
bb(Y, a) = aa(i, a)
Next a
Y = Y + 1
End If
Next i
With L1
.ColumnCount = UBound(aa, 2) - 2
.List = bb
End With
End Sub
ok Charly
mais tu ne peux pas ajouter un jeu de données anonymisé et un useform aussi s'il te plait ? ce serait plus simple !
Désolé Steelson au risque de passer pour un vrai nul , je préfère être honnête, je n'ai aucune idée de ce qu'est "un jeu de données anonymisé "
et je ne peux envoyer le fichier total car il est classé confidentiel par ma société