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.
