Discussion :

[Nymar]

Bonjour,

Je voudrais créeer une fonction qui retourne une variable double dimensions (n,m) (ou bien sous la forme de deux variables) à savoir les coordonnées d'une cellule en chiffres et non pas en lettre(1,1) et pas (A,1). Merci.

[Marc-L]

Bonjour,

voir les propriétés Column et Row …

[Nymar]

Merci, je connais ces prop. le problème c'est que je ne peux pas avoir deux variables en sortie d'une fonction.

[Marc-L]

Et une variable tableau de deux éléments ou bien une chaîne de caractères
ou encore un type de données personnalisé ? Y a le choix !

[eriiic]

Bonjour,

pour qu'une fonction puisse retourner un tableau il faut qu'elle soit Variant :
Function tt() as Variant

eric

[Marc-L]

Pas du tout ! Comme le prouve la démonstration suivante …

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function DoubleFoisDeux(L&) As Long()
              Dim TL&(1)
                  TL(0) = L * 2
                  TL(1) = L * 4
         DoubleFoisDeux = TL
End Function
 
Sub Demo()
    Dim L&()
        L = DoubleFoisDeux(2)
    Debug.Print L(0), L(1)
End Sub

[Theze]

Bonjour,

Un truc du genre :

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
 
Function Coordonnees(Colonne As Range, Ligne As Range) As Long()
 
    Dim Tbl(1, 2) As Long
 
    Tbl(1, 1) = Colonne.Column
    Tbl(1, 2) = Ligne.Row
 
    Coordonnees = Tbl
 
End Function
 
Sub test()
 
    Dim Tbl
 
    Tbl = Coordonnees(Range("B:B"), Range("10:10"))
 
    MsgBox "Numéro de colonne : " & Tbl(1, 1) & vbCrLf & _
           "Numéro de ligne : " & Tbl(1, 2) & vbCrLf & _
           "la cellule est : " & Cells(Tbl(1, 2), Tbl(1, 1)).Address(0, 0)
 
End Sub

Hervé.

[eriiic]

Bonjour à tous,

Pas du tout !

Effectivement.
J'avais noté ça par erreur et depuis je m'y tenais...
Mea culpa :-)
eric

[Nymar]

Merci , je me demandais si c'est possible de m'expliquer ou plutôt me rappeler l'histoire du symbole "&" (je crois passage par reference c'est ça )

[eriiic]

Le & sert à concaténer (ajouter) 2 chaines :
"bon" & "jour" => "bonjour"
eric

[Nymar]

Et pour son utilité ici (le "&")

Code :

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

Function DoubleFoisDeux(L&) As Long()

[eriiic]

C'est pour typer la variable, on peut rajouter un suffixe.
Equivalent à Dim L as Long (là elle est déclarée en plus)
C'est un héritage des anciens basic, bien pratique comme raccourci.

L& type la variable L comme Long : entier long.
Entre autres tu as :
% : integer
$ : string
! : single
etc

eric