XL 2010 Erreur match, intersection

[Alex777f]

Bonjour le forum
Je viens vers vous en esperant trouver solution a mon probleme.
Je cherche a ecrire un valeur dans un tableau en fonction des valeurs en ligne et colonne. Jusque la tout marche lorsque je travaille avec des lettre, mais lorsqu'il s'agit de nombre ca me renvoi une erreur. Je souhaiterais pouvoir utiliser des nombres.
Ci joint un fichier exemple.
Merci pour votre aide

 

[Dranreb]

Bonsoir.
À minima faites comme ça :

Private Sub CommandButton1_Click()
Dim Lig&, Col&, V
If Me.TextBox2 = "" Or Me.TextBox3 = "" Then Exit Sub
V = Me.TextBox2.Text: If IsNumeric(V) Then V = CDbl(V)
Lig = Application.Match(V, [noms], 0)
Col = CDate(TextBox3.Text) - [Dates].Columns(1).Value + 1
V = Me.TextBox1.Text: If V = "" Then V = Empty Else If IsNumeric(V) Then V = CDbl(V)
[tableau].Cells(Lig, Col).Value = V
End Sub

 

[Alex777f]

Bonsoir @Dranreb ,
Merci, ca marche a merveille.
Bon reveillon