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.

[mika745]

Tout d'abord merci pour vos réponses.
Ce calcul me permet de renseigner d'autres tableaux et graphes sur ma feuille Excel.

J'ai fait ce code, mais j'obtiens l'erreur suivante: erreur d'exécution 9 sur la ligne suivante: Tableau_sortie_temps(i, j) = Range("cf21").
Voici mon 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub calcul_sortie_temps_FeuilleExcel()
 
Dim x As Integer, y As Integer
Dim i As Integer, j As Integer
Dim Tableau_sortie_temps() As Single
 
 
 
    'Redéfinit la taille du tableau
 x = 21  'correspond au nb de valeur sur la ligne'
 y = 10   'correspond au nb de valeur sur une colonne'
    ReDim NomTableau(1 To x, 1 To y)
 
    Range("cf13") = 1  'la première valeur qui va s'incrémenter'
    Range("ci13") = 0   'la seconde valeur qui va s'incrémenter'
 
    'Alimente les éléments du tableau'
    For i = 0 To x Step 0.05
        For j = 1 To y
 
            Range("cf13").Value = i
            Range("ci13").Value = j
 
           Tableau_sortie_temps(i, j) = Range("cf21")        --> ça bloque là !!
 
        Next j
       Range("ci13") = Range("ci13") + 1
       Range("cf13") = 1
 
    Next i
    Range("c14") = 0
 
 
    'Transfère les éléments du tableau dans la feuille de calcul
    Range(Cells(10, 124), Cells(20, 145)) = NomTableau
End Sub

[eriiic]

Code :

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

1
2
3
x = 21 'correspond au nb de valeur sur la ligne'
y = 10 'correspond au nb de valeur sur une colonne'
ReDim NomTableau(1 To x, 1 To y)

Dimensionne ton tableau correctement.
Avec un step de 0.05 (et non 0.5 comme annoncé) il faut un peu plus que 21 lignes.

Pour une lecture agréable indente ton code et utilise la balise code (icone #)
eric

[mika745]

qu'entends tu par balise code (je suis complètement débutant en VBA, désolé).

[eriiic]

non, là c'est sur le forum.
Sélectionne ton code et au-dessus du post que tu édites tu as des outils de mise en forme dont # (Ajouter la balise [CODE] pour l'avoir tel que je l'ai affiché dans mon post.

Tu as quoi dans cf21, une fonction personnalisée ?

[mika745]

non, une simple division

[eriiic]

Ca c'est de la logique floue de pointe ;-)
Et bien pourquoi tu ne la fais pas dans le code ? Plutôt que 90% du temps soit utilisé à écrire et lire sur la feuille

[mika745]

J'ai simplifié ma réponse.
Il s'agit bien d'une division, mais relative au centre de gravité de mes sorties floues. Résultat donné par mon moteur d'inférence.

A priori mon code fonctionne. J'ai effectivement repris la dim de mon tableau et modifié une autre ligne.
De plus, j'avais plusieurs doc Excel ouverts, ce qui peut peut-être également expliqué mon pb.

En tous les cas merci de vos réponses.
Je pense que je reviendrai vite sur ce forum car il me reste encore des choses à faire, comme coder des graphes et autres. Mais bon je vais d'abord essayer de me débrouiller.

[eriiic]

Méfie-toi quand même des dé-synchronisations entre formules sur feuilles et vba, ce n'est pas une vue de l'esprit.
Contrôle sérieusement que tu récupères correctement tous tes résultats avant de conclure que c'est ok.

[unparia]

Je plussoie la remarque de eriiic
Les formules Excel sont traitées dans un fil distinct de celui de VBA et rien ne garantit que leur calcul est terminé entre chaque itération des boucles dans VBA.
Cette cohabitation de Excel (les formules) et de VBA est souvent source de problèmes et, dans certains cas, de conflits.

[eriiic]

Il me semblait bien qu'il y avait une propriété adéquate mais j'ai eu du mal à la retrouver, je me demandais si je l'avais rêvée...
Insère quand même cette boucle avant la lecture sur feuille :

Code :

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

1
2
3
    Do
        DoEvents
    Loop Until Application.CalculationState = xlDone

eric

[unparia]

Tout-à-fait, eriiic, mais là, cela va ramer si la feuille est truffée de formules.

[eriiic]

Pourquoi ?
Ca ne lance pas de calculs supplémentaires. Seules les formules à ré-évaluer le seront, et il faut bien attendre que le calcul soit fait.
A cause du DoEvents tu crois ? A la limite on peut l'enlever, pas grave s'il ne fait que ça le temps du calcul. Et puis la feuille a tous les autres threads.

[unparia]

Bonjour eriiic

Pourquoi ?
Ca ne lance pas de calculs supplémentaires.

plus je relis son message N° 7 et moins j'en suis certain

EDIT : cela me surprendrait par ailleurs énormément qu'un moteur d'inférence n'intervienne qu'à partir de deux données. Je ne sais pas pourquoi mon petit doigt (mais il est vrai qu'il devient lui aussi gâteux avec l'âge) me souffle que ces deux données-là ne sont là que pour définir en réalité un niveau de calculs faits dans d'autres cellules, dont le nombre ***** dépend probablement du niveau défini.
Au passage : l'utilisation de Excel à une telle fin (assez complexe et nécessitant un thésaurus important de données, généralement stockées dans un système gestionnaire (SGBD) rapide, puissant et se prêtant le mieux possible à des requêtes diverses) me laisse assez dubitatif ...


***** et si c'est mon petit doigt, qui a raison, le temps des calculs progressera - de surcroît de manière non linéaire - au fur et à mesure de la progression des paramètres directeurs des deux boucles.
Amitiés