RDM poutre iso

Question

Voilà, je suis débutante en VB, j'ai commencé hier et je dois améliorer une feuille de calcul excel en intégrant du VB pour faciliter la lisibilité et la mise en place des équations.En fait je suis étudiante en génie civil et actuellement en stage sauf que mon tuteur n'est jamais là ou bien trop débordé, en gros je dois me démerder toute seule. Il s'agit d'une feuille de calcul pour une poutre isostatique dans le cas d'un calcul au BAEL avec forces ponctuelles + charge répartie.

Mon programme est plein d'erreurs mais je ne sais pas comment les résoudre.
-pour le calcul de charge ELS ELU, je voudrais qu' en appuyant sur le bouton de commande les calculs se fassent (ou bien qu'ils s'integrent directement dans la cellule qui leur est destinée) or pour le moment il faut,à chaque fois que je change les données, que je réexécute la macro.
-pour le calcul du point maximum mes équations sont à priori justes et ont été vérifiés avc RDM 6.Mais idem je n'arrive pas à les éxécuter.


pour le reste : partie calcul des moments rien n'est fini, ce n'est pas encore le pb.

Est ce que quelqu'un peut m'aider ??? Please.

cs_lim · Answer

Bonjour,

Détaille tes erreurs on pourra peut-être t'aider.

@+LIM

cs_anna81 · Answer

Merci,
au tout début de ma feuille , dans un premier temps je dois faire le calcul de charge à l'ELS et à l'ELU.
Voilà la structure de mon programme:

Private Sub CommandButton3_click()
   'ELS   
      Private Sub InserResultFct()
      [C33]=[sum(c29:c31)]
                    -
                    -  
      End Sub
(il y'a plusieurs calculs qui sont ok)

    'ELU
       Private Sub InserResult()
       [c34]=[c29*1.35 ...etc...]
(il y'a plusieurs calculs qui st ok)
       End Sub

End Sub

Mais ceci n'est pas possible, j'ai essayé de changer private en public et mm résultat.Pour les autres calculs, de moments etc... les boutons de calcul marchent correctement mais dans ces cas là je n'ai pas intégrer de fonctions.

J'espère que je suis claire dans mon explication.
En résumé si j'insere la commande CommandButton3_Click(), je ne peut pas faire de sous catégorie comme Private Sub InserResult() ou bien       Private Sub InserResultFct() ????


Thanks par avance si tu as une idée de la ou vient l'erreur.
Anna

cs_lim · Answer

Bonjour,

A mon avis tu mélange un peut tout

Ton bouton CommandButton3 appel une sub quand tu cliques dessus
Private Sub CommandButton3_click() 
end sub

ensuite tu as tes sub de calculs
Private Sub InserResultFct() 
end sub
et
Private Sub InserResult() 
end sub

pour appeller tes sub de calcul dans la sub de ton bouton
Private Sub CommandButton3_click() 
   InserResultFct
   InserResult
end sub

si tes sub sont dans le même modules que ton bouton.


@+LIM

cs_anna81 · Answer

Yep c'est vrai que je suis à j+2 de VB et je m'exprime pas tres bien.

j'avais en effet essayer la solution de virer les "Sub" de calcul et ça ne marchait pas qd mm !!! mais merci, j'ai résolu le pb, en fait il fallait taper InserResultFct: et InserResult: les ":" sont importants !! sinon ça ne marche pas ! lol. 

Et comme tu le dis aussi de ne surtt pas tout mélanger cad de mettre des sub au début de chaque fonction puisque j'ai déjà intégré le Sub de mon bouton.et puis End Sub.

a+

RDM poutre iso

4 réponses

Votre réponse

Discussions similaires