Discussion :

[juju05]

Bonjour,

Je débute sous vba excel. Je cherche à passer un paramètre à une procédure et à récupérer la valeur de la procédure appelé dans une zone de saisie.

VBA ne reconnaît pas la procédure appelée.

Voici ce que j'ai codé :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
 
Sub C_ref1_Change()
 
       des_art1.Value = recherche_des_art(C_ref1.Value)
 
       qte1.SetFocus
 
End Sub
 
Sub recherche_des_art(texte As String)
 
       Dim conn As New ADODB.Connection
       Dim connString   
 
       Dim rsRecords As New ADODB.Recordset
 
       connString = "DSN=AAA;Uid=AAA01;Pwd=ABCD"
       conn.Open connString
 
       rsRecords.CursorLocation = adUseServer
 
       ' Recherche de la désignation associée
       Set rsRecords = conn.Execute("select designation from t_article where reference = '" & C_ref1.Value & "'")
       If Not rsRecords.EOF Then
          rech_des_art = rsRecords.Fields("designation").Value
       Else
          rech_des_art = ""
       End If
 
End Sub

[cerede2000]

Pour pouvoir retourner une valeur il te faut utiliser Function en lieu et place de Sub :

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
18
19
20
21
Function recherche_des_art(texte As String)
 
       Dim conn As New ADODB.Connection
       Dim connString   
 
       Dim rsRecords As New ADODB.Recordset
 
       connString = "DSN=AAA;Uid=AAA01;Pwd=ABCD"
       conn.Open connString
 
       rsRecords.CursorLocation = adUseServer
 
       ' Recherche de la désignation associée
       Set rsRecords = conn.Execute("select designation from t_article where reference = '" & C_ref1.Value & "'")
       If Not rsRecords.EOF Then
          rech_des_art = rsRecords.Fields("designation").Value
       Else
          rech_des_art = ""
       End If
 
End Function

[antonysansh]

Bonjour juju05,


Si ton code doit renvoyer une valeur (ici une chaine de caracteres) tu dois utiliser une fonction et non une procédure.

Le mot-clés pour une fonction en VBA est : Function

Donc ton code devrait être :

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
18
19
20
21
22
23
24
25
26
27
28
29
Sub C_ref1_Change()
 
       des_art1.Value = recherche_des_art(C_ref1.Value)
 
       qte1.SetFocus
 
End Sub
 
Function recherche_des_art(texte As String) As String
 
       Dim conn As New ADODB.Connection
       Dim connString   
 
       Dim rsRecords As New ADODB.Recordset
 
       connString = "DSN=AAA;Uid=AAA01;Pwd=ABCD"
       conn.Open connString
 
       rsRecords.CursorLocation = adUseServer
 
       ' Recherche de la désignation associée
       Set rsRecords = conn.Execute("select designation from t_article where reference = '" & C_ref1.Value & "'")
       If Not rsRecords.EOF Then
          rech_des_art = rsRecords.Fields("designation").Value
       Else
          rech_des_art = ""
       End If
 
End Function

Je t'invite à lire ce tuto : Les fonctions personnelles dans Excel

Et je te conseil aussi de libérer tes variables en fin de code :
Set rsRecords = Nothing juste avant la ligne End Function