recherche double Fermé

Question

Salut
Je travaille sur un projet sur Excel et j’ai une problème dans la recherche car d’habitude je fait le recherche pour un seul valeur (TextBox1) mais maintenant je faire une recherche pour deux valeurs (TextBox1 et TextBox2)

voici mon code:

Application.ScreenUpdating = False
   Set F = ActiveSheet
   Me.ListBox1.Clear

With ListBox1
.ColumnCount = 6
.ColumnWidths = "80;150;80;80;80;80"
.RowSource = ""
End With

Set plage = F.[b5].CurrentRegion
   plage.Interior.ColorIndex = 2
   Set plage = plage.Offset(1).Resize(plage.Rows.Count - 1)
   Set c = plage.Find(Me.TextBox1, , , xlPart)
   If Not c Is Nothing Then
     i = 0
     premier = c.Address
     Do
       Me.ListBox1.AddItem
       Me.ListBox1.List(i, 0) = c.Offset(0, -1)
       Me.ListBox1.List(i, 1) = c.Value
       Me.ListBox1.List(i, 2) = c.Offset(0, 1)
       Me.ListBox1.List(i, 3) = c.Offset(0, 3)
       Me.ListBox1.List(i, 4) = c.Offset(0, 4)
       Me.ListBox1.List(i, 5) = c.Offset(0, 2)
       
       i = i + 1
       Set c = plage.FindNext(c)
     Loop While Not c Is Nothing And c.Address <> premier
   End If




     EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI 

Merci d'y penser dans tes prochains messages.

merci d'avance

jordane45 · Answer

Bonjour,

Je trouve bien ta recherche de textbox1 ...

Set c = plage.Find(Me.TextBox1, , , xlPart)

... mais ... où est celle de ta textbox2 ?

Peux tu également nous indiquer en détail le souci (la difficulté) rencontré(e) ?

michel_m · Answer

Bonjour
Jordane, excuse l'incruste

saddoud, 
d'après ton tableau il ne peut y avoir de doublon produit+marque: on cherche donc la ligne ou se trouve le produit et la matque par une compraison de concaténation produit-marque dan s l'usf et la feuille
j'ai rectifié les largeurs des colonnes de la listbox 
à toi de marquer au dessus de la listbox les désignations

code proposé
Option Explicit'------------------------------------------------Private Sub UserForm_Initialize()With ListBox1.ColumnCount = 5.ColumnWidths = "80;150;80;30;30".RowSource = ""End WithEnd SubPrivate Sub CommandButton1_Click()Dim Concat As StringDim Derlig As Integer, Lig As Integer, Donnees    If TextBox1 = "" Or TextBox2 = "" Then GoTo vides    Concat = TextBox1 & " " & TextBox2        With Sheets("feuil1")        Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row        For Lig = 6 To Derlig            If .Cells(Lig, "B") & " " & .Cells(Lig, "C") = Concat Then                 Donnees = .Range(.Cells(Lig, "A"), .Cells(Lig, "E"))                UserForm2.ListBox1.Column() = Application.Transpose(Donnees)                Exit For            End If        Next            If Lig > Derlig Then GoTo inconnu    End With    Exit Sub'gestionnaire erreursvides:    MsgBox "Produit et/ou Marque  absent(s)", vbCritical    Exit Subinconnu:    MsgBox "Produit et/ou Marque  inconnu(s)", vbCriticalEnd Sub 

le classeur en retour:
http://www.cjoint.com/c/FGbju4Wth5t
 
 Michel

Recherche double

2 réponses

Discussions similaires