Code pour chercher un valeur dans un tableau

Bonjour;

Je n'arrive pas à m'en sortir concernant ce problème.

J'ai réussi à "fabriquer" un tableau en 2D avec des valeurs.

Je souhaiterai faire un test dans ce tableau pour chercher si la valeur est présente.

Existe t il un écriture qui renvoi un boolean

J'ai pensé à application. Match mais cela semble ne pas fonctionner dans mon tableau car j'ai cherché une valeur qui était dans le tableau et le message est Non trouvé :/

If IsError(Application.Match(var, tableauin, 0)) Then

' MsgBox "Non trouvé"

'Else

' MsgBox "Trouvé"

'End If

Merci pour votre aide

Bonjour,

Option Explicit

Sub Cherche()
'déclaration des variables :
Dim Trouve As Range, PlageDeRecherche As Range
Dim Valeur_Cherchee As String, AdresseTrouvee As String
Dim SUCCES As Boolean

Valeur_Cherchee = InputBox("Quelle est la valeur cherchée?")

Set PlageDeRecherche = ActiveSheet.Columns(1) 'Par exemple, mais il faut mettre votre plage

Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
If Not Trouve Is Nothing Then
SUCCES = True
End If

Set Trouve = Nothing
End Sub

A vous de voir ce que vous voulez faire quand votre Boolean SUCCES prend la valeur True.

Cordialement.

Bonjour à tous

Une variante à tester :

Sub rechercher()
    Set tableau = Range("A1:H10")   'Exemple
    var = 33     'Exemple
    Set cell = tableau.Find(var, lookat:=xlWhole)
    If Not cell Is Nothing Then
        MsgBox "La valeur ''" & var & "'' existe dans le tableau."
    Else
        MsgBox "La valeur ''" & var & "'' n'existe pas dans le tableau.", 16
    End If
End Sub

Bye !

Merci à vous, de mon coté j'avais trouvé ceci :

[debut du code]
test = 0
                For i = LBound(tableauin, 1) To UBound(tableauin, 1)
                    For j = LBound(tableauin, 2) To UBound(tableauin, 2)
                    If tableauin(i, j) = var Then test = 1
                    Next j
                Next i
                    If test = 1 Then
[suite du code]

Mais je pense que la solution Find est plus adapté car je me rend compte que pour la suite avec ma méthode je suis bloqué.

Je souhaite en fait retourné la valeur de la première colonne si le test est ok

Comment attribuer à une variable la valeur d'une coordonnée du tableau ?

Par exemple : var=tableau(i,0)

Merci