Discussion :

[mika745]

Bonjour,

Comme le titre l'indique, je cherche à remplir un tableau (avec un programme VBA) à partir de deux valeurs (contenue dans deux cellules). Par un calcul (logique floue), ces deux valeurs me donnent un résultat qui s'affiche dans une troisième cellule.
Pour me permettre de remplir ce tableau (en automatique bien sûr), mes deux premières valeurs s'incrémentent (de 1 à 10 pour le première et de 0 à 10 avec un STEP de 0.5 pour la seconde.
J'ai essayé plusieurs choses, mais en vain. Si quelqu'un pouvait m'aider, ce serait super cool.
Pour info, je suis complètement débutant en programmation. J'ai malgré tout compris comment fonctionnent les boucles (car j'en ai besoin dans ce cas).

Je remercie d'avance les personnes qui pourront m’aider.

Mika745

[Menhir]

Pas besoin de VBA pour ça.

En supposant que tes données commencent en ligne 1, tu mets 1 et 0 dans A1 et B1.
En A2, tu mets la formule :

Code :

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

=A1+SI(B2=0;1;0)

En B2, tu mets la formule :

Code :

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

=MOD(B10,5;10,5)

Tu copies A1:B1 vers le bas autant que nécessaire.

[mika745]

Merci de ta réponse, mais je ne sais pas si je me suis fait comprendre avec ma question (surement pas assez clair!!) Donc je reformule:

- j'ai un cellule A1 et une cellule A2
- un calcul entre A1 et A2 me donne un résultat dans la cellule A3

A partir de ça, je veux créer un tableau avec les valeurs que le cellule 3 me retourne, et faisant varier A1 et A2 avec un pas défini

ex:
--> A1=1 puis A2=1 donc A3=une valeur 1
--> A1=1 puis A2=2 donc A3=une valeur 2
--> A1=1 puis A2=3 donc A3=une valeur 3
--> A1=2 puis A2=1 donc A3=une valeur 4
--> A1=2 puis A2=2 donc A3=une valeur 5

c'est avec les valeurs 1,2,3,3,.... que je veux alimenter mon tableau

(au final je ne sais pas si je suis plus clair!!)

[eriiic]

Bonjour,

un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub boucle()
    Dim i As Long, j As Single, k As Long, result(1 To 210, 1 To 3) As Double
    For i = 1 To 10
        For j = 0 To 10 Step 0.5
            ' écriture
            [A1] = i: [A2] = j
            'lecture
            k = k + 1
            result(k, 1) = i: result(k, 2) = j: result(k, 3) = [A3].Value
        Next j
    Next i
    ' Coller
    [E2].Resize(210, 3) = result
End Sub

Cependant tu ne dis pas comment est remplie A3.
Si c'est par formule assez lourde elle risque d'être lue avant d'être évaluée. Tu dis...
eric

[unparia]

Bonjour
Quel est l'intérêt (je ne le vois vraiment pas) d'utiliser 3 cellules et (je le suppose) une formule ? ces cellules seront constamment modifiées et n'auront chacune qu'une seule valeur in fine ...
On connaît la dimension à donner à la matrice M d'accueil.
Il suffit dès lors d'une double boucle (for i, for j), d'une fonction "calcul_flou" à laquelle on envoie les paramètres i et j et qui retourne une valeur v dont on alimente l'index k (incrémenté de 1 à chaque itération) de la matrice M
Non ?

[eriiic]

C'est vrai que si le calcul est fait par une fonction vba autant se passer de transiter par la feuille.