Discussion :

[nsqualli]

Bonjour,

j'ai une macro, qui va utiliser deux variables, une pour la ligne de debut et une autre pour la ligne de fin.

donc j'ai pensé a une fonction qui me retournera ces deux variable, mais je ne sais pas comment fair pour que la fonctionne me retourne les deux.

genre :

Code :

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

1
2
function Ma_Fonction(...., ....) as long , as long
end function

svp comment je peux faire cela?
merci

[ucfoutu]

Bonjour,

tu peux utiliser plusieurs procédés, mais le plus pratique est delui de l'utilisation d'une structure.

Voilà un exemple àanalyser, comprendre et adapter à ton/tes cas... (ce n'est qu'un exemple de mécanisme)

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
31
32
Private Type toto
  nom As String * 20
  prenom As String * 40
  age As Integer
End Type
 
Private Sub Command1_Click()
  Dim quoi As Integer
  quoi = 1
  MsgBox lancons(quoi).age & vbCrLf & lancons(quoi).prenom & vbCrLf & lancons(quoi).nom
  quoi = 2
  MsgBox lancons(quoi).age & vbCrLf & lancons(quoi).prenom & vbCrLf & lancons(quoi).nom
  quoi = 600
  MsgBox lancons(quoi).age & vbCrLf & lancons(quoi).prenom & vbCrLf & lancons(quoi).nom
End Sub
 
Private Function lancons(qui As Integer) As toto
  Select Case qui
    Case 1
      lancons.nom = "dupont"
       lancons.prenom = "jean"
       lancons.age = 5
    Case 2
      lancons.nom = "durand"
       lancons.prenom = "pierre"
        lancons.age = 23
    Case Else
      lancons.nom = "?"
       lancons.prenom = "?"
        lancons.age = 0
    End Select
End Function

[Pierre Fauconnier]

Bonjour

Il serait peut-être préférable d'utiliser une fonction qui renvoie la ligne et une autre qui renvoie la colonne...

Tu pourrais aussi renvoyer un tableau, mais je trouve que ce serait lourd pour deux données.

Tu peux alors utiliser une fonction qui renvoie du texte, et tu sépares tes données avec, par exemple, le ;

Code :

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

1
2
3
4
5
6
7
8
Function Coordonnees(...) as string
    dim Ligne as long
    dim Colonne as long
 
    ...
    ...
    Coordonnees = ligne & ";" & colonne
End Function

Tu peux alors "splitter" ta réponse

Code :

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

1
2
3
4
5
6
7
dim Reponse as string
dim Ligne as long
dim Colonne as long
 
Reponse = coordonnees(...)
ligne = split(coordonnees,";")(0)
colonne = split(coordonnees,";")(1)

[nsqualli]

Merci bcp pour vos solutions, en fait les deux feront l'affaire.
merci une autre fois