Problème de recherche vba trop complexe pour moi

[milou71240]

Bonjour

Etant donné que je suis une vraie bille sur vba, je n'arrive pas a trouvé une solution à mon problème:

Dans ma userfom , j'inscris ma référence et ensuite je désire cherche la désignation qui va avec ainsi que 2 autres critères.

Ma base de donée étant assez spéciale, je ne connais pas tous les ecrets de vba pour résoudre ce problème.

Pour l'instant je n'arrive qu'a inscrire la référence recherchée

Voici joint une partie de mon application

 

[Guest]

Re : Problème de recherche vba trop complexe pour moi

Re,


1 - Chez moi ceci fonctionne très bien avec le classeur et les données que tu nous a fournis.

R.End(xlUp) -> Renvoie la première ligne du tableau

R.End(xlToLeft) -> Renvoie la première colonne non vide de la ligne de R à gauche. Comme si, placé sur la cellule R tu faisait CTRL+flèche gauche

Places toi sur une cellule avec une référence puis fait CTRL+Flèche haute.
Places toi de nouveau sur une cellule avec une référence et fait CTRL+Flèche Gauche

Et tu verras.

2 - Pour quoi tu cherche la référence dans les colonne de A à H dans
Range("a1:h" & Range("h65536").End(xlUp).Row)

Alors que les références vont de C à K !!??

Dim r As Range
Set r = Range("[COLOR=red]a[/COLOR]1:h" & Range("[COLOR=red]h[/COLOR]65536").End(xlUp).Row).Find(TextBox1.Value)
        If Not r Is Nothing Then
        Me.TextBox2 = Range("A" & r.End(xlUp).Row)
        Me.TextBox5 = r.End(xlUp)
        Me.TextBox4 = r.End(xlToLeft)
        End If

Tu peux modifier
Me.TextBox4 = r.End(xlToLeft)
par
Me.TextBox4 = range("B" & r.row)


A+

 

[milou71240]

Re : Problème de recherche vba trop complexe pour moi

J'ai modifier mon tableau et j'ai oublié de changer la plage de recherche et tu as raison elle va bien de B à K

Je vais essayer tes manip et je te redis le résultat.

Merci encore une fois.

 

[milou71240]

Re : Problème de recherche vba trop complexe pour moi

Merci d'avoir résolu mon pb:
J'ai remplacer
Me.TextBox4 = r.End(xlToLeft)
par
Me.TextBox4 = range("B" & r.row)
et ca marche

Cependant quand je me place sur une cellule et que je fais ctrl + fleche gauche rien ne se passe de même pour les autres flèche.