Trouver valeur dans tableau

silene

XLDnaute Nouveau
Bonjour,
J'aimerai savoir s'il y a une formule pour trouver une valeur dans un tableau à partir de 2 données. comme dans la piece jointe.

Merci

Silene
 

Pièces jointes

  • masse volumique de l'air.xls
    39 KB · Affichages: 67

hamcec

XLDnaute Nouveau
Re : Trouver valeur dans tableau

Bonjour à tous,

une autre solution en passant cette fois-ci par le VBA. Il faut insérer la fonction suivante dans un module :

Public Function F_TrouveValeurDansTableau(Plage As Range, ValeurLigne As String, ValeurColonne As String)
Dim Compteur As Long
Dim LaBonneLigne As Long
Dim LaBonneColonne As Long
On Error GoTo GestErreur
'---Recherche de la valeur en ligne (abscisse)
For Compteur = Plage.CurrentRegion.Column + 1 To Plage.CurrentRegion.Column + Plage.CurrentRegion.Columns.Count - 1
If Cells(Plage.CurrentRegion.Row, Compteur) = ValeurLigne Then
LaBonneColonne = Compteur
End If
Next
'---Recherche de la valeur en colonne (ordonnee)
For Compteur = Plage.CurrentRegion.Row + 1 To Plage.CurrentRegion.Row + Plage.CurrentRegion.Rows.Count - 1
If Cells(Compteur, Plage.CurrentRegion.Column) = ValeurColonne Then
LaBonneLigne = Compteur
End If
Next
F_TrouveValeurDansTableau = Cells(LaBonneLigne, LaBonneColonne)
Exit Function
GestErreur:
F_TrouveValeurDansTableau = ""
End Function

et enfin saisir en cellule B3 :
=F_TrouveValeurDansTableau(B9:M55;B2;B1)

L'avantage de cette option, c'est que quand on saisit rien en B1, ca ne renvoie rien et c'est mieux ainsi, car la plage B10:B55 ne contient pas de cellule vide.

Bonne soirée.
 

Discussions similaires

Réponses
3
Affichages
266
Réponses
7
Affichages
351

Statistiques des forums

Discussions
312 381
Messages
2 087 823
Membres
103 666
dernier inscrit
ValdeTriDi