D
David
Guest
Bonjour,
Encore merci pour la réponse du 18 derniers
Grace à vous j'espére enfin un jour pouvoir me debroullier tout seul.
Voici mon problème aujourd'hui:
-Je veux effectivement par rapport au programme ci-dessous que la valeur de (1)Cherche soit par rapport au résultat d'un Textbox
-Que le chemin (2)d'acces soit bien l'onglet "extraction" pour la colonne C
-Qu'il recherche par rapport au résultat de la textbox(3)
-Mais je voudrais qu'il m'affiche les résultats de la colonne d' a cote
EX: sur l'onglet "Database" il y a les codes clients qui donnent le résultat de la textbox8
sur l'onglet "extraction"on retrouve ces même codes clients mais en plusieurs explaire car il y a un produit de rattché a chaques fois.
donc je veux qu'il cherche par rapport au codes clients les produits qui lui sont rattachés et qu'il les affiche dans le combobox
Dim Cherche As String
Dim e As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
(1) Cherche = TextBox8
If Cherche = "" Then
Exit Sub
End If
(2) e = Sheets("extraction").Range("A65536").End(xlUp).Row
Set Maplage = Sheets("extraction").Range("A2:c" & e)
With Maplage
(3) Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
(4) combobox.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub
Merci mille fois par avance et j'éspére que j'ai été suffisement clair dans mon explication
Encore merci pour la réponse du 18 derniers
Grace à vous j'espére enfin un jour pouvoir me debroullier tout seul.
Voici mon problème aujourd'hui:
-Je veux effectivement par rapport au programme ci-dessous que la valeur de (1)Cherche soit par rapport au résultat d'un Textbox
-Que le chemin (2)d'acces soit bien l'onglet "extraction" pour la colonne C
-Qu'il recherche par rapport au résultat de la textbox(3)
-Mais je voudrais qu'il m'affiche les résultats de la colonne d' a cote
EX: sur l'onglet "Database" il y a les codes clients qui donnent le résultat de la textbox8
sur l'onglet "extraction"on retrouve ces même codes clients mais en plusieurs explaire car il y a un produit de rattché a chaques fois.
donc je veux qu'il cherche par rapport au codes clients les produits qui lui sont rattachés et qu'il les affiche dans le combobox
Dim Cherche As String
Dim e As Integer
Dim Maplage As Range
Dim FirstADdress As String
Dim C As Object
(1) Cherche = TextBox8
If Cherche = "" Then
Exit Sub
End If
(2) e = Sheets("extraction").Range("A65536").End(xlUp).Row
Set Maplage = Sheets("extraction").Range("A2:c" & e)
With Maplage
(3) Set C = .Find(Cherche, LookIn:=xlValues)
If Not C Is Nothing Then
FirstADdress = C.Address
Do
(4) combobox.AddItem C
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> FirstADdress
End If
End With
End Sub
Merci mille fois par avance et j'éspére que j'ai été suffisement clair dans mon explication