Erreur 2023 textbox

Bonjour à tous!!

J'ai un léger soucis avec une macro excel. En fait j'ai un userform composé de deux textbox. Je souhaite remplir la première textbox avec une valeur et que cela calcule la deuxième textbox grâce à une formule Excel.

Je fais mes traitements et j'obtiens une erreur 2023 ressortie dans le text de ma deuxième textbox...

La macro que j'utilise est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton1_Click()   Dim strFormula As String   Dim value As String   value = TextBox1.value   strFormula = "=INDEX(Feuil1!$A$2:$H$30, MATCH(" + value + ",Feuil1!$C$2:$C$30,0))"   Dim result As Variant   result = Application.Evaluate(strFormula)   TextBox2.value = CStr(result)   End Sub

---

Auriez-vous une petite idée du problème?

Bonjour
2 remarques
1/ Evite de donner à tes variables des noms connus de VBA

Code:

---

Dim value As String

---

peut etre remplacé par

Code:

---

Dim valeur As String

---

idem pour strgformula que tu peux remplacer par MaFormule

2/ la fonction evaluate

Je cite l'aide excel:
Référence du développeur Excel
Application.Evaluate, méthode
Cette méthode convertit un nom Microsoft Excel en un objet ou une valeur.

Je pense qu'elle est mal utilisée.
Et si tu calculais simplement:

Je ferais une boucle

Code:

---

1 2 3 4 5 6

For i=2 to 30 if sheets(feuil1).cells(i,1)=textbox1 then texbox2= sheets(feuil1).cells(i,3) exit for end if next

---

Je prévois donc que la valeur en textbox1 correspond à une valeur de la colonne A et non des cellules A2 à H30 ce qui me parait beaucoup mais ca dépend de ce que tu cherches.

D'accord pour les noms je vais les changer de suite!!

Après, ce que je souhaite faire c'est chercher dans un fichier la valeur saisie dans la première textbox et je souhaite récupérer dans la deuxième textbox la valeur située dans la ligne où on a trouvé la valeur sasie, mais pas dans la même colonne

Je note juste que ma formule ecrite comme ca fonctionne sous Excel si elle est rentrée dans une cellule du classeur!!

Je ne vois pas trop ce que cela va changer avec la boucle, j'aimerais vraiment y arriver comme cela!!

J'ai l'impression que c'est le

Code:

---

Application.Evaluate(MaFormule)

---

qui ne fonctionne pas!!

D'autres avis??