Discussion :

[titou31000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[COCONUT2]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim value As String

peut etre remplacé par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[titou31000]

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

[titou31000]

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

[titou31000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Evaluate(MaFormule)

qui ne fonctionne pas!!

D'autres avis??