recherche dans bdd avec Combo

[Provence Vintage]

Bonjour le Forum,

J'ai un bug dans mon code de recherche,
comment lui indiqué avec la valeur d'un combo, d'aller chercher dans le bdd sachant que la colonne est la n° 28????????


Merci à toutes et tous,

voici mon code:
#Private Sub CommandButton7_Click()
Dim cel As Range
Worksheets("bdd vendeur").Activate
Set cel = Range("A1")
Set cel = Columns(28).Find(What:=ComboBox5.Value, After:=cel, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If Not cel Is Nothing Then
L = cel.Row

TextBox1.Value = Cells(li, 1)
TextBox2.Value = Cells(li, 2)
TextBox3.Value = Cells(li, 4)
TextBox4.Value = Cells(li, 5)
TextBox5.Value = Cells(li, 6)
......

 

[Robert]

Re : recherche dans bdd avec Combo

Bonjour Provence Vintage, bonjour le forum,

Essaie Comme ça (non testé) :

 Private Sub CommandButton7_Click()
Dim cel As Range
[COLOR=red]Dim r As Range[/COLOR]
Worksheets("bdd vendeur").Activate
Set cel = Range("[COLOR=red]AB1[/COLOR]")
[COLOR=red]Set r [/COLOR]= Columns(28).Find(What:=ComboBox5.Value, After:=cel, _
    LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False)
If Not r Is Nothing Then
    L = [COLOR=red]r[/COLOR].Row
    TextBox1.Value = Cells(li, 1)
    TextBox2.Value = Cells(li, 2)
    TextBox3.Value = Cells(li, 4)
    TextBox4.Value = Cells(li, 5)
    TextBox5.Value = Cells(li, 6)
End If
End Sub

Tu utilisais une seule variable cel pour deux choses différentes d'une part et d'autre part, si tu recherches en colonne 28 (AB) il faut que le after, donc la variable cel, fasse partie de cette colonne. j'ai donc redéfinit la variable cel : Set cel = Range("AB1").

Es-tu sûr que ce soit li et non pas L qu'il faut utiliser dans les dernières lignes ?

 

[Provence Vintage]

Re : recherche dans bdd avec Combo

Robert, Le Fil,

Impec, merci beaucoup!

A+ sur le Fil