VB sur excel

Version imprimable

11/10/2010, 11h25
S.Miles

1 pièce(s) jointe(s)

VB sur excel

Bonjour à tous!!
alors je vous soumet mon probleme.

J'ai deux formules sur excel, qui me donnent chacune un couple (A,B)
je souhaite réalisé deux tests succesif.
le premier :
avec boucle qui teste toutes les valeur de A et B allant de 1 à 2000.
puis me rangent dans un tableau excel le couple qui repond à la premiere formule.
ensuite le second test:
qui recupere ces valeurs de A et B du tableau
et me donne le meilleur couple (A,B).

si vous avez une idée.
merci beaucoup!!

edit :

le tableau que je souhaiterais remplir en fichier joint.

En gros je pensais faire quelque chose comme ça :

Code:

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
Private Sub form1()
 
 
Dim a, b, VonMisses, Surface, c, d, t, Fx, Mx, My, Mz As Integer
Dim TabCouple(3, 2000) As Integer
Fx = 250
Mx = 1000
My = 10000
Mz = 1500
 
For a = 1 To 2000 Step 1
    For b = 1 To 2000 Step 1
        VonMisses = RACINE((Fx * 100 / (Pi() * (a * b - (a - 2) * (b - 2)) / 4)) + (((My * 10000 * a * 32) / (Pi() * (b * a ^ 3 - (b - 2) * (a - 2) ^ 3))) + ((Mz * 10000 * b * 32) / (Pi() * (a * b ^ 3 - (a - 2) * (b - 2) ^ 3)))) ^ 2 + (3 * ((Mx * 1000 * a * 16) / (Pi() * (((b * a ^ 3) - (b - 2) * (a - 2) ^ 3) + ((a * b ^ 3) - ((a - 2) ^ 3) * (b - 2))))) ^ 2))
 
        If 260 < VonMisses < 270 Then
            t = t + 1
            TabCouple(1, t) = a
            TabCouple(2, t) = b
            TabCouple(3, t) = Pi() * (a * b - (a - 2) * (b - 2)) / 4
        End If
    Next
Next
For t = 2 To 2000 Step 1
    If TabCouple(3, t) < TabCouple(3, t - 1) Then
        c = TabCouple(1, t)
        d = TabCouple(2, t)
    End If
Next
 
MsgBox ("le meilleur couple est" & c & "et" & d)
 
End Sub

Mais je n'arrive pas a trouver la commande qui me met automatiquement les valeurs dans le tableau excel.
deplus je souhaiterais que le programme me demande de rentrer le Fx, Mx, My, Mz.

Citation:
Envoyé par S.Miles
Code:

1 2 (.../...) VonMisses = RACINE((Fx * 100 / (Pi() * (a * b - (a - 2) * (b - 2)) / 4)) + (((My * 10000 * a * 32) / (Pi() * (b * a ^ 3 - (b - 2) * (a - 2) ^ 3))) + ((Mz * 10000 * b * 32) / (Pi() * (a * b ^ 3 - (a - 2) * (b - 2) ^ 3)))) ^ 2 + (3 * ((Mx * 1000 * a * 16) / (Pi() * (((b * a ^ 3) - (b - 2) * (a - 2) ^ 3) + ((a * b ^ 3) - ((a - 2) ^ 3) * (b - 2))))) ^ 2))(.../...)
c'est quoi cette horreur? Franchement, même si c'est vrai, c'est illisible, et à la moindre maintenance, nul, même toi, ne pourra en tirer quoi que ce soit. C'est curieux parceque le reste de ton code me parait à peu près propre.

Sinon, généralement, quand je fais un traitement de ce genre, je rajoute un bouton qui me déclenche le calcul et à la fin de ma sub, j'ai un code du genre :

Code:

cells(Ligne,Colonne) = ResultatCalcule

Appuyer sur le bouton me met automatiquement à jour les résultats.

pour rentrer tes paramètres, tu peux créer une form de saisie, ou alors créer un feuillet paramètre et lire, dans ta sub, les paramètres tapés dedans, du genre :

Code:

Parametre1 = Sheets("parametres").Cells(LigneParametre1, ColonneParametre1)

Et il y a sans doute d'autres manières de faire.

11/10/2010, 15h30
S.Miles

Merci pour votre réponse,
En faite mon calcul qui me permet d'obtenir Le critere de Von mises est super compliqué. C'est pourquoi je doit passer par de la programmation c'est un polynome de degré 4 que je n'ais pas envie de resoudre !! :roll:
Mais je n'ai malheuresement que quelques notions de programmation. donc toutes les fonctions simples je connais mais le reste je suis pas à niveau !!
effectivement je rajoute des boutons cela me semble plus facile, et lisible
je vous tiens au courant!!
11/10/2010, 15h32
fring

Bonjour,

Pour info, concernant la déclaration des variables, le type doit être déclaré pour chaque variable.

Lorsque l'on déclare

Code:

Dim a, b, VonMisses, Surface, c, d, t, Fx, Mx, My, Mz As Integer

seule la variable Mz sera du type Integer, toutes les autres seront du type Variant.

La bonne méthode est donc

Code:

Dim a As Integer, b As Integer, VonMisses As Integer, Surface As Integer, c As Integer, d As Integer, t As Integer, Fx As Integer, Mx As Integer, My As Integer, Mz As Integer

Ton code

Code:

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
Sub form1()
Dim A As Long, B As Long, C As Long, D As Long, t As Long
Dim VonMisses As Double, Fx As Double, Mx As Double, Mz As Double, Pi As Double
Dim TabCouple() As Double
Fx = 250
Mx = 1000
My = 10000
Mz = 1500
Pi = Application.WorksheetFunction.Pi()
ReDim TabCouple(1 To 3, 1 To 1)
For A = 3 To 2000
    For B = 3 To 2000
        VonMisses = ((Fx * 100 / (Pi * (A * B - (A - 2) * (B - 2)) / 4)) + (((My * 10000 * A * 32) / (Pi * (B * A ^ 3 - (B - 2) * (A - 2) ^ 3))) + ((Mz * 10000 * B * 32) / (Pi * (A * B ^ 3 - (A - 2) * (B - 2) ^ 3)))) ^ 2 + (3 * ((Mx * 1000 * A * 16) / (Pi * (((B * A ^ 3) - (B - 2) * (A - 2) ^ 3) + ((A * B ^ 3) - ((A - 2) ^ 3) * (B - 2))))) ^ 2)) ^ 0.5
        If VonMisses > 260 And VonMisses < 270 Then
            t = t + 1
            ReDim Preserve TabCouple(1 To 3, 1 To t)
            TabCouple(1, t) = A
            TabCouple(2, t) = B
            TabCouple(3, t) = Pi * (A * B - (A - 2) * (B - 2)) / 4
        End If
    Next B
Next A
For t = 2 To UBound(TabCouple, 2)
    If TabCouple(3, t) < TabCouple(3, t - 1) Then
        C = TabCouple(1, t)
        D = TabCouple(2, t)
    End If
Next t
 
MsgBox "Le meilleur couple est (" & C & " , " & D & ")"
 
End Sub

reste a savoir tes cellules d'entrée et celles de sortie

11/10/2010, 17h29
S.Miles

merci beaucoup je regarde votre réponse

edit :

donc super le programme marche je dois juste ajuster pour qu'il me donne les bonnes valeurs. cela me sert à faire un prédim d'une poutre de section elliptique; le probleme c'est que la j'ai 2 metre de hauteur et seulement 80mm de large :roll: :roll: sa va pas !!

je dois ranger les valeurs A et B dans excel, peu importe l'endroit je dirais à partir de B6 et C7 jusqu'a Bn et Cn.

quand à
Fx il est en G6
Mx en G7
My en G8
Mz en G9 de la feuil1

encore merci

bonjour,
j'aurais une question concernant les tableaux.
je cherche a faire varié mon t de 1 à la valeur max de ligne dans mon tableau, or il s'agit d'un tableau dynamique qui se créer en fonction des valeaur que je rentre. donc autant un coup il peut y en avoir seulement 150 autant il y en aura 2000. comment je fais ça ???

merci beaucoup pour votre aide
12/10/2010, 14h47
mercatog

Code:

ReDim Preserve TabCouple(1 To 3, 1 To t)

Fais un F1 sur redim
12/10/2010, 14h54
S.Miles

Ok merci bcp
12/10/2010, 15h15
mercatog

Ci joint lien pour approfondir les tableauxPour ton cas, tu auras un tableau variant de 0 à 2000 x 2000 éléments