Discussion :

[stof]

Bonjour,

Voici mon problème :

Matrice renvoyée par la macro
Ma macro renvoie une matrice 2D
J'ai donc un tableau avec en colonne 1,2,3... pour l'indice colonne et en ligne 1,2,3... pour l'indice ligne.
dans chacune des case, j'appelle =INDEX(Ma_Macro(); $A7; J$5) par exemple.
Si j'ai 10*10 = 100 cases, je dois donc appeler 100 fois la fonction.
j'aurais plutôt préféré l'appeler une fois et ensuite piocher dans sa matrice mais comme une cellule Excel ne contient qu'un résultat et pas une matrice, j'ai pas trouvé le moyen. Existe-t-il ?

Merci.

[cafeine]

Hello,

au lieu de renvoyer une matrice, arrange toi pour écrire dans une feuille de calcul (stocker) les données de ta matrice et leur donner un nom.

Code :

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

=INDEX(LeNomQueTuAurasChoisi ; A7; J5)

ça permettra de n'appeler qu'une fois ta macro.

[stof]

OK; je veux bien un exemple évetuellement pour illustrer.

[cafeine]

OK donc un exemple :
dans un module de code

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
Sub TestMachin()
 
Dim machin() 'une matrice
ReDim machin(1, 3) ' à deux dimensions
 
machin(0, 0) = "Tutu"
machin(0, 1) = "Toto"
machin(1, 1) = "tata"
machin(1, 3) = "Test"
 
' copie de la matrice dans une plage
Range(Cells(1, 1), Cells(UBound(machin, 1) + 1, UBound(machin, 2) + 1)) = machin
 
' nomme la plage
ActiveSheet.Names.Add "LaZone", _
                "=" & Split(Range(Cells(1, 1), _
                Cells(UBound(machin, 1) + 1, _
                UBound(machin, 2) + 1)).Address(True, True, xlA1, True), _
                "]")(1)
 
 
End Sub

[stof]

Je ne sais pas pourquoi mais ça plante ici :

Code :

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

Range(Cells(1, 1), Cells(UBound(machin, 1) + 1, UBound(machin, 2) + 1)) = machin

[DarkVader]

Bonjour,

Voici mon problème :

Matrice renvoyée par la macro
Ma macro renvoie une matrice 2D .../..

Il s'agit donc d'une fonction et non d'une macro

Au lieu d'écrire dans chaque cellule ta fonction :
- tu sélectionnes la page complète (10x10)
- tu écris ta formule =Ma_Macro()
- et tu valides avec les touches Ctrl+Maj+Enter

Tu obtiens ainsi une formule matricielle au lieu d'une formule standart.
Dans le code il suffit d'affecter le tableau à Ma_Macro

[stof]

Merci! Génial!
(mais pas intuitif les développeurs de chez microsoft...)