Discussion :

[macaborape]

Bonjour
J'ai un programme qui appelle une fonction et j'aimerai récupérer la valeur que ma fonction renvoie

Dans le programme principal j'appelle ma fonction

Code :

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

RetourDial1 = BoiteDialog1

La fonction

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
Function BoiteDialog1 as string
Dim BoiteDialog1 as object
Dim fldText As Object
Dim NomCherche as string
 
DialogLibraries.LoadLibrary("Standard")
BoiteDialog1 = CreateUnoDialog(DialogLibraries.Standard.BoiteDialog1)
select case BoiteDialog1.Execute()
case 1
    fldText = BoiteDialog1.GetControl("Nom")
    NomCherche = ucase(fldText.text)
    RetourDial1 = NomCherche
case 0
    msgbox ("Recherche Annulée")
end select
 
'BoiteDialog1.dispose()
 
end function

J'aimerai que ma fonction retourne le contenu de NomCherche dans le programme principal
J'ai déclaré la variables de plusieurs façon : Global, Static, Public
mais rien n'y fait je ne récupère pas le contenu de ma variable dans le programme principal
Quelqu'un aurait une petite idée de l'erreur que je commets
Cordialement

[Mobydick_62]

Bonjour,

Tu te mélanges dans les variables. Ta fonction BoiteDialog1 est un "string". Hors sur la ligne suivante tu déclares ta boite de dialogue qui va s'afficher en "object". Ces deux variables portent le même nom. Donc cela ne peux pas fonctionner.
Essayes le code suivant.
Et à l'avenir pense à joindre ton document. Cela évitera de créer un nouveau document et construire une boite de dialogue pour faire fonctionner le code.
Cordialement

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
Global BoiteDialog1 As Object 
 
Sub AppelFonction
Dim RetourDial1 As String 
RetourDial1 = BoiteDialog
MsgBox RetourDial1
End Sub
 
 
Function BoiteDialog as String 
Dim fldText As Object
Dim NomCherche as string
 
DialogLibraries.LoadLibrary("Standard")
BoiteDialog1 = CreateUnoDialog(DialogLibraries.Standard.BoiteDialog1)
select case BoiteDialog1.Execute()
case 1
    fldText = BoiteDialog1.GetControl("Nom")
    NomCherche = ucase(fldText.text)
    BoiteDialog = NomCherche
case 0
    msgbox ("Recherche Annulée")
end select
 
BoiteDialog1.dispose()
 
end function

[Amélie Ladoque]

Bonjour,

Pourquoi faire une macro ?
Un simple Ctrl + F ne suffit pas ?

[macaborape]

Bonjour
Merci de ta réponse
J'ai modifié mon programme et j'ai trouvé une solution moins élégante que d'utiliser une fonction mais ca fonctionne
Cordialement

Bonjour,

Tu te mélanges dans les variables. Ta fonction BoiteDialog1 est un "string". Hors sur la ligne suivante tu déclares ta boite de dialogue qui va s'afficher en "object". Ces deux variables portent le même nom. Donc cela ne peux pas fonctionner.
Essayes le code suivant.
Et à l'avenir pense à joindre ton document. Cela évitera de créer un nouveau document et construire une boite de dialogue pour faire fonctionner le code.
Cordialement

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
Global BoiteDialog1 As Object 
 
Sub AppelFonction
Dim RetourDial1 As String 
RetourDial1 = BoiteDialog
MsgBox RetourDial1
End Sub
 
 
Function BoiteDialog as String 
Dim fldText As Object
Dim NomCherche as string
 
DialogLibraries.LoadLibrary("Standard")
BoiteDialog1 = CreateUnoDialog(DialogLibraries.Standard.BoiteDialog1)
select case BoiteDialog1.Execute()
case 1
    fldText = BoiteDialog1.GetControl("Nom")
    NomCherche = ucase(fldText.text)
    BoiteDialog = NomCherche
case 0
    msgbox ("Recherche Annulée")
end select
 
BoiteDialog1.dispose()
 
end function