Recherche de valeur

fmoore · 1 Mai 2013

Bonjour,

J'aimerais que dans ma feuille "Résultat" pour chaque chiffre de la colonne A qui équivaut au montant entre la ligne A et B de la feuille "Table" sa inscrit la lettre de la ligne C je vous ai joint mon fichier pour être plus claire.

Merci de votre temps!

R@chid · 1 Mai 2013

Re : Recherche de valeur

Bonjour,
C'est pas le bon fichier peut-être???
@ + +

fmoore · 1 Mai 2013

Re : Recherche de valeur

Effectivement je m'étais tromper de fichier mais je l'ai changé d.solé.

excfl · 1 Mai 2013

Re : Recherche de valeur

Bonjour,

Code:

=SI(A1="";"";SI(A1<3;"";SI(A1>15;"";RECHERCHE(A1;Table!$A$1:$C$6))))

excfl

Lone-wolf · 1 Mai 2013

Re : Recherche de valeur

bonjour excfl, fmoore, R@chid,

exemple en VBA, mais en commençant à partir de A2 et a insérer dans la feuille Résultat.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig&, ligne&, rechval

If Not Intersect(Target, Range("b1:b10000")) Is Nothing Then Exit Sub

ligne = Range("b65536").End(xlUp).Row + 1
With Sheets("Table").Columns(2)
    Set rechval = .Cells.Find(Range("a" & ligne).Value)
     End With
   lig = rechval.Row
Range("b" & ligne) = Sheets("Table").Cells(lig, 3)

End Sub

A+

excfl · 1 Mai 2013

Re : Recherche de valeur

Re,

Bonsoir le forum, Lone-wolf,

En attendant une réponse, une variante de la formule proposée post4 :

Code:

=SI(OU(A1<3;A1>15;ESTTEXTE(A1));"";RECHERCHEV(A1;Table!$A$1:$C$6;3;VRAI))

excfl

Lone-wolf · 1 Mai 2013

Re : Recherche de valeur

Re a tous,

et une correction du code suite à erreur.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig&, ligne&, rechval As Range
ligne = Range("b65536").End(xlUp).Row + 1

With Sheets("Table").Columns(2)
    Set rechval = .Cells.Find(Range("a" & ligne).Value)
     End With
   If rechval Is Nothing Then
  MsgBox "Pas Trouvé !"
  Range("a" & ligne).ClearContents
    Exit Sub
  Else
   lig = rechval.Row
With Sheets("Table")
Range("b" & ligne) = .Cells(lig, 3)
End With
End If
End Sub

A+

excfl · 1 Mai 2013

Re : Recherche de valeur

Re,

Pour patienter, une autre solution :

Code:

=SI(OU(A1<3;A1>15;ESTTEXTE(A1));"";INDEX(Table!$C$1:$C$6;EQUIV(A1;Table!$A$1:$A$6;1)))

En pièce jointe les 3 solutions proposées.

excfl

Recherche de valeur

fmoore

XLDnaute Junior

Pièces jointes

R@chid

XLDnaute Barbatruc

fmoore

XLDnaute Junior

excfl

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

excfl

XLDnaute Barbatruc

Pièces jointes

Discussions similaires