XL 2010 Erreur match, intersection

Alex777f · 24 Décembre 2018

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 · 24 Décembre 2018

Bonsoir.
À minima faites comme ça :

VB:

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 · 24 Décembre 2018

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

XL 2010 Erreur match, intersection

Alex777f

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Alex777f

XLDnaute Nouveau

Discussions similaires

XL 2010 Erreur match, intersection

Alex777f

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

Alex777f

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency