Discussion :

[Dudulle32]

Bonjour à tous

Je voudrais renseigner un tableau, mais avec des valeurs entrées en dur dans le code. Je me souviens qu'on pouvais le faire en Basic avec la fonction data, mais je ne sais pas le faire en VBA, et je n'ai pas trouvé d'exemple. Je ne peux pas le faire à partir de valeurs renseignées sur des cellules car le but est de pouvoir exporter la macro ensuite.

Un petit exemple, je voudrais entrer ces 2 séries de valeurs dans un tableau :

0	99,65
0,01	99,5491
0,02	99,4464
0,03	99,3413
0,04	99,2355
0,05	99,128
0,06	99,0189
0,07	98,908
0,08	98,7954
0,09	98,681
0,1	98,5648
0,11	98,4467
0,12	98,3268
0,13	98,2049
0,14	98,0812
0,15	97,9538
0,16	97,8254
0,17	97,6947
0,18	97,5617
0,19	97,4265
0,2	97,2888

Est-ce que quelqu'un saurait comment faire ça ?
En vous remerciant d'avance.

[Ben_L]

Bonjour,

Pas certain de bien comprendre votre demande.
Le code suivant y répond-il ?

Code :

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

1
2
3
4
5
6
Arr1 = Array(0, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2)
Arr2 = Array(99.65, 99.5491, 99.4464, 99.3413, 99.2355, 99.128, 99.0189, 98.908, 98.7954, 98.681, 98.5648, 98.4467, 98.3268, 98.2049, 98.0812, 97.9538, 97.8254, 97.6947, 97.5617, 97.4265, 97.2888)
With Thisworkbook.Sheets("Feuil1")
    .Range("A2:A22").Value = Arr1
    .Range("B2:B22").Value = Arr2
End With

Cordialement

[Dudulle32]

Désolé, je m'exprime probablement mal

Je voudrais simplement stocker la 1ere série de valeur dans la 1ere dimension d'une variable de type tableau, et la seconde série dans sa 2eme dimension.
Par la suite je me servirai de cette variable tableau pour calculer une valeur de sortie (à partir d'une valeur d'entrée), plutôt que de passer par une formule de conversion.

[Ben_L]

Dans ce cas, la formulation suivante suffira :

Code :

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

Arr1 = [{0, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2; 99.65, 99.5491, 99.4464, 99.3413, 99.2355, 99.128, 99.0189, 98.908, 98.7954, 98.681, 98.5648, 98.4467, 98.3268, 98.2049, 98.0812, 97.9538, 97.8254, 97.6947, 97.5617, 97.4265, 97.2888}]

A vous d'adapter selon la façon dont vous souhaitez organiser vos lignes et vos colonnes.

[unparia]

Bonjour
tu veux donc tout simplement créer et alimenter une matrice à deux dimensions
Réponse dans ton aide interne VBA ) à la rubrique Dim, instruction, à lire, ainsi que celles résultant d'un clic sur son onglet "voir aussi".

[Ben_L]

En fait, j'avais testé la syntaxe que je propose ci-dessus pour un exemple bien plus simple.
Dans votre cas, elle conduit à une ligne de plus de 255 caractères, ce qui produit une erreur.

Plusieurs solutions de contournement sont envisageables. Je ne les traite pas toutes...

1. Si la façon d'accéder aux données stockées vous est indifférente, vous pouvez écrire :

   Code :

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

   1
   2
   Arr1 = Array(Array(0, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2), _
           Array(99.65, 99.5491, 99.4464, 99.3413, 99.2355, 99.128, 99.0189, 98.908, 98.7954, 98.681, 98.5648, 98.4467, 98.3268, 98.2049, 98.0812, 97.9538, 97.8254, 97.6947, 97.5617, 97.4265, 97.2888))

   Dans ce cas, vous accéder aux différentes valeurs en utilisant : Arr1(nCol)(nLigne)
2. Si vous préférez obtenir un unique tableau à 2 dimensions plutôt qu'un tableau de tableaux, il est possible d'écrire :
   

   Code :

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

   1
   2
   3
   4
   5
   6
   7
   Arr1 = Array(0, 0.01, 0.02, 0.03, 0.04, 0.05, 0.06, 0.07, 0.08, 0.09, 0.1, 0.11, 0.12, 0.13, 0.14, 0.15, 0.16, 0.17, 0.18, 0.19, 0.2)
   Arr2 = Array(99.65, 99.5491, 99.4464, 99.3413, 99.2355, 99.128, 99.0189, 98.908, 98.7954, 98.681, 98.5648, 98.4467, 98.3268, 98.2049, 98.0812, 97.9538, 97.8254, 97.6947, 97.5617, 97.4265, 97.2888)
   ReDim Arr3(1, 20)
   For i = 0 to 20
       Arr3(0, i) = Arr1(i)
       Arr3(1, i) = Arr2(i)
   Next i

   L'accès aux données est alors obtenu via : Arr3(nCol, nLigne)

[Dudulle32]

Cette explication est très claire, un grand merci à Ben_L