recherche valeur

[AVORIAZ]

salut le forum

et bien un petit probleme pour resoudre une des mais fonction recherche !!


je tape une valeur de recherche dans la colonne A
via une texbox1

si je trouve la valeur de A rechercher je m'arrete a la ligne et je copie la valeur de la cellule b correspondante cette ligne dans un texbox2

j'ai demarrer avec ce code :



'MODE RECHERCHE
Range("c1").Value = TextBox1.Value
Dim Val As String
Dim lig As Long


Val = TextBox1.Value 'valeur recherche inscris dans la texbox 1

If Val = "" Then Exit Sub ' SI VIDE EXIT
Sheets("Feuil1").Select
Sheets("Feuil1").Activate 'activation de la feuille selectionée

On Error Resume Next
lig = Cells.Find(Val, Range("A1"), , xlByRows).Row
' ici je trouve la ligne correspondante a ma valeur recherchée
If Err > 0 Then ' si je la trouve pas !!
MsgBox "La valeur cherchée, " & Val & ", n'existe pas dans "
Exit Sub
End If

Rows(lig).Range("b:b").Value = TextBox2.Value

mais ca marche pas...

merci pour votre aide

avo

 

[mick]

bonjour le forum,

voila un petit exemple qui resume mon probleme concernant une recherche multi critère et selection d'une ligne apres recherche et recopier la valeur de la colonne b dans un texbox2


merci pour votre aide

notamment didier et g clair que j'ai vu sur la board


merci a tous

 

[omicron]

Bonsoir Avoriaz,

Je ne suis pas certain de bien comprendre ce que tu veux faire. C'est pourquoi je t'envoie en pièce jointe un petit exemple qui propose une solution au problème que tu poses, du moins tel que je le perçois.

=======================================================
Private Sub TextBox1_Change()

Set Cel = Intersect(UsedRange, Columns("A")).Find(What:=TextBox1.Value, LookAt:=xlWhole)
If Cel Is Nothing Then
TextBox2.Value = "Pas trouvé"
Else
TextBox2.Value = Cel.Offset(0, 1).Value
End If

End Sub

=======================================================

Je pense détecter dans ton code plusieurs anomalies :

- Que se passe-t-il si la valeur n'est pas trouvée ?
Cells.Find(Val, Range("A1"), , xlByRows).Row ne peut être évalué

- Dernière instruction, il faudrait écrire :
TextBox2.Value = Rows(lig).Range("b:b").Value

N'hésite pas à me recontacter si "je n'ai rien compris"

Cordialement.

Omicron

 

[mick]

de retour le forum !!

pour vous donner la reponse !!!

et oui via le chat et surtout, avec l'aide de didier !!!

donc voici la solution via ce code :

'MODE RECHERCHE
Range("a1").Value = TextBox1.Value
Dim Val As String
Dim lig As Long

Val = TextBox1.Value 'valeur recherche inscris dans la texbox 1

If Val = "" Then Exit Sub ' SI VIDE EXIT

Sheets("Feuil1").Activate 'activation de la feuille selectionée

On Error Resume Next
lig = Columns(1).Find(Val, Range("A1"), , xlByRows).Row
If Err > 0 Then
MsgBox "La valeur cherchée, " & Val & ", n'existe pas dans "
UserForm1.Show
Exit Sub
End If

Rows(lig).Interior.ColorIndex = xlNone
TextBox2.Value = Cells(lig, 3)


End Sub

je joint quand meme le fichier correspondant !!

voila
mick ( l'homme vert....)
merci a didier

 

[mick]

voila la version qui tourne pour recuperer la valeur de la colonne b

la version exemple 2 permet de recuperer la valeur dans c si vous vouler recuperer la colonne c

voila....

en plus une autre solution presenter par amicron fonction aussi

grand merci a lui pour son aide, nous voila avec deux methode differentes qui fonctionne

amitié au forum et merci de votre aide !!!

mick