De VBA vers un autre langage

Question

Bonjour.

Il y a de cela quelque mois on m'a posé comme sujet de stage le calcul de l'incertitude du débit d'un cours d'eau à partir de données ponctuelles de vitesses.

Etant donné que j'allais avoir à étudier de nombreux points, excel me semblait tout indiqué pour sa facilité de visualisation des résultats : je dois afficher pour environ 5000 lignes de tableau des données sur 100 colonnes. je me suis donc remis au VBA histoire de coder tout ça.

Problème : le calcul de débit pour une traversée de la rivière se fait correctement, mais pour un temps de calcul de 30s à une minute pour un PC moyen ... Rien de dramatique me dirais vous sauf que le calcul d'incertitudes nécessite de refaire ce calcul 10 fois pour chaque traversée, et ce pour une dizaine de traversée ...

On m'a clairement fait comprendre que ce temps de calcul ne permettrait pas l'utilisation régulière du programme. J'ai eu beau supprimer toutes les boucles inutiles de mon code, veiller à ne réaliser à chaque fois uniquement les calculs nécessaires à l'opération, je n'arrive pas sous excel à faire moins d'une heure de calcul.

A partir de là il n'y a qu'une seule solution pour moi : migrer vers un autre langage.

Excel en lui même est loin d'être idéal lorsqu'il s'agit de multiplier les calculs, à priori à cause de l'interaction permanente entre les feuilles de calculs à remplir et les calculs à faire sous vb .
Sachant que l'entreprise ne dispose pas de matlab, et que l'utilisation d'un clone libre poserais également des problèmes (principalement par le fait que les gens dans la boite ne sont pas formés à son fonctionnement : il me faut un programme au maximum "pousse-bouton", donc un langage compilé), je dois me tourner vers des langages plus génériques.

Pour moi il faudra remplacer les feuilles de calcul excel par des tableaux dynamiques de grande taille, qui n'auront pas à être affiché (sauf pour vérification)

Ma question est donc : quel est le langage le plus approprié pour ce genre d'opérations ?

Sachant que :

[list]
[*] Les calculs sur les tableaux devront se faire trés rapidement, au moins à la vitesse de matlab sur les fichiers textes : de nombreux logiciels sont capables de traiter les données au format texte rapidement (je pense aux logiciels de calculs par éléments finis) et il me faudra me rapprocher de ce niveau.
[*] Je dois pouvoir réaliser une application fenêtrée, avec un éventuel affichage du détail du contenu des tableaux
[*] Je ne maitrise actuellement que le VB et le Pascal, mais ce ne sera pas limitatif : s'il le faut j'apprendrais sur le tas.
/list

Je suis donc à la recherche du langage idéal, libre et relativement intuitif : d'après vous vers quoi dois-je me tourner ?

ucfoutu · Answer

Bonjour,

sans savoir ce que fait exactement ton appli : dur de te répondre valablement.

Je dirais par contre que Excel est bien armé en matière de calculs. Il est de surcroît un tableur !

Quant à :
Pour moi il faudra remplacer les feuilles de calcul excel par des tableaux dynamiques de grande taille, qui n'auront pas à être affiché (sauf pour vérification)

C'est souvent très vrai et ... VBA/Excel te permet de le faire très bien (avec énormément de souplesse pour passer les valeurs d'une plage dans un tableau dynamique et vice-versaz !)

Mais une autre fois : nul ne saurait te (répondre valablement sans connaître les détaiuls de ton appli, des calculs qui y sont faits et de la présentation et l'exploitation des résultats !



____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Bonjour Atraxor,

Ben moi j'émettrais une autre position :

Excel, le VBA c'est pratique, mais c'est tout, car trop long lors de l'interprétation, pour ma part quand j'ai des trableaux Excel qui commencent à prednre du volume je passe en programmation vbNet, et je peux te dire que c'est le jour et la nuit...

VbNet quant à lui n'est pas si simple que ça, la manipulation des paramétrages et options déjà c'est pas évident, si tu rajoute le code à coucher dehors, tu risques, même en venant de vb6, à ne pas être opérationnel rapidement.

Alors comme tu maîtrises le VB (6 je présume), vb6 est totalement capable de faire efficacement ton programme, donc je pense que tu devrais faire ça dans ce langage que tu connais... 
D'autant que vb6 pond des applications aussi performantes que vbNet, j'ai fait la transition, les logiciels vbNet ne sont pas plus performants en 32 bits en tout cas. Le seul avantage réel de vbNet est qu'il permet plus de choses, mais ce sont des choses qu'on utilise rarement, voire jamais, ou une seule fois, il ne faut pas croire que vbNet est une fusée, non, hélas...

Cordialement.

Joe.

Atraxor · Answer

Merci pour vos réponses !

Malheureusement je ne dispose pas de plateforme VB6, qui n'est pas libre, je vais donc devoir trouver autre chose

ucfoutu · Answer

Au risque de me répéter :
Si ton appli fait principalement des calculs, le VBA d'Ecel sait les agiliser et les traiter à la même vitesse que VB !
Montre-nous donc (en la commentant) une partie du code dont tu te plains de la lenteur ert tu verras à quelle vitesse on peut obtenir le même résultat (-en passant d'ailleurs par des tableaux dynamique )

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pour te donner "un ordre d'idée" : j'ai fréquemment vu faire la même chose avec Excel/VBA :
- 1) par traitements directs sur la feuille de calcul
- 2) par utilisation de tableaux dynamiques
Avec, pour la 2ème méthode, des résultats atteints en entre 300 et 1000 fois moins de temps , tout en gardant tous les avantages très appréciables d'un tableur (cerise sur le gâteau).


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Atraxor · Answer

Voici ma procédure principale d'évaluation du débit : Sub Evaluation(calcul) 'si calcul =1, on refait le calcul aboutissant à Qmesuré. Sinon on repart des résultats existants pour ne calculer que les Qextp. Dim e As Integer 'e le nombre d'ensembles Dim b As Integer 'b le nombre de bins (max) par ensemble Dim i, ivar As Integer 'ensemble actuel Dim j As Integer 'bin actuel Dim k As Integer Dim kvar As Integer Dim a As Integer 'le nombre de bins pour l'ensemble considéré Dim valid As Boolean 'vrai si ensemble validé Dim l As Integer Dim m, gauche, droite As Integer Dim firstval As Boolean 'premier ensemble valide atteind Dim dbens As Double 'debit total de l'ensemble actuel Sheets("Calcul debit").Range("K13").Calculate e = Sheets("Calcul debit").Range("K13") b = Sheets("Calcul debit").Range("K10") k = 4 i = 1 firstval = False dbens = 0 If calcul = 1 Then While i - 1 <= e j = 1 valid = False a = Sheets("Donnees").Cells(i, 1) If a >= 40 Then MsgBox "Le problème ne peut être traité car le nombre de bins par ensembles dépasse les 40", vbOKOnly + vbExclamation, "Calcul interrompu" Exit Sub End If If i = 1 Then 'on ne fait ce calcul qu'une fois If Sheets("Donnees").Cells(i, 13 + j + 5 * a) <> -32768 Then Sheets("Calcul incertitudes").Range("A15") = Sheets("Donnees").Cells(i, 13 + j + 5 * a) / 1000 'On récupère la fréquence de l'appareil End If If Sheets("Donnees").Cells(i, 14 + j + 5 * a) <> -32768 Then Sheets("Calcul incertitudes").Range("A25") = Sheets("Donnees").Cells(i, 14 + j + 5 * a) 'On récupère le mode de l'ADCP pour l'eau End If If Sheets("Donnees").Cells(i, 15 + j + 5 * a) <> -32768 Then Sheets("Calcul incertitudes").Range("A23") = Sheets("Donnees").Cells(i, 15 + j + 5 * a) 'On récupère le nombre de pings pour la vitesse de l'eau End If End If While j <= a k = k + 1 Sheets("Calcul debit").Cells(k, 1) = i Sheets("Calcul debit").Cells(k, 2) = j Sheets("Calcul debit").Cells(k, 3) = Sheets("Donnees").Cells(i, 10 + j) 'vitesse sur faisceau 1 Sheets("Calcul debit").Cells(k, 4) = Sheets("Donnees").Cells(i, 10 + j + a) 'vitesse sur faisceau 2 Sheets("Calcul debit").Cells(k, 5) = Sheets("Donnees").Cells(i, 10 + j + 2 * a) 'vitesse sur faisceau 3 Sheets("Calcul debit").Cells(k, 6) = Sheets("Donnees").Cells(i, 10 + j + 3 * a) 'vitesse sur faisceau 4 Sheets("Calcul debit").Cells(k, 7) = Sheets("Donnees").Cells(i, 7) 'vitesse du fond sur faisceau 1 Sheets("Calcul debit").Cells(k, 8) = Sheets("Donnees").Cells(i, 8) 'vitesse du fond sur faisceau 2 Sheets("Calcul debit").Cells(k, 9) = Sheets("Donnees").Cells(i, 9) 'vitesse du fond sur faisceau 3 Sheets("Calcul debit").Cells(k, 10) = Sheets("Donnees").Cells(i, 10) 'vitesse du fond sur faisceau 4 Sheets("Calcul debit").Cells(k, 32) = Sheets("Donnees").Cells(i, 10 + j + 4 * a) 'profondeur du bin considéré Sheets("Calcul debit").Cells(k, 34) = Sheets("Donnees").Cells(i, 3) 'récupération du temps pour lequel l'ensemble a été mesuré If k > 5 Then Sheets("Calcul debit").Cells(k - 1, 33).Calculate 'Il faut le calculer immédiatement End If Call Calcul_dt(k, firstval) If Sheets("Donnees").Cells(i, 18 + j + 5 * a) = -32768 Then Sheets("Calcul debit").Cells(k, 38) = "BAD" Else Sheets("Calcul debit").Cells(k, 38) = (-1) * Sheets("Donnees").Cells(i, 18 + j + 5 * a) 'débit élémentaire End If If Sheets("Calcul debit").OptionButton7.Value = True Then Call V1234(k) 'Calcul des vitesses dans le repère XYZ Else Call VEarth(k) 'Transcription des vitesses données en Earth dans les colonnes suivantes End If Call Calcul_Vx_Vy(k, a, i) 'On calcule les vitesses horizontales du fond qu'on va utilise rpour le calcul du débit Sheets("Calcul debit").Cells(k, 20).Calculate For l = 29 To 35 Sheets("Calcul debit").Cells(k, l).Calculate 'calcul forcé des cellules de la ligne actuelle Next Sheets("Calcul debit").Cells(k, 65).Calculate If Sheets("Calcul debit").OptionButton1.Value = True Then Call Calcul_dQsuv(k, j, a) Else If Sheets("Calcul debit").OptionButton2.Value = True Then Call Calcul_dQprec(k, j, a) Else Call Calcul_dQmoy(k, j, a) End If End If 'If Sheets("Calcul debit").Cells(k, 3) <> -32768 And Sheets("Calcul debit").Cells(k, 4) <> -32768 And Sheets("Calcul debit").Cells(k, 5) <> -32768 And Sheets("Calcul debit").Cells(k, 6) <> -32768 Then If Sheets("Calcul debit").Cells(k, 18) = "OUI" Then valid = True 'L'ensemble est considéré par défaut comme invalidé. Il est valide dès qu'un de ses bins est valide (cad B1,B2,B3 et B4 <>-32768 If Sheets("Calcul debit").Cells(k, 25) = "NON" Then valid = False 'Mais si un bin de l'ensemble dépasse de seuil de BT error velocity, c'est le cas pour tous les bins et l'ensemble est invalidé End If End If If Sheets("Calcul debit").Cells(k, 36) <> "BAD" Then 'si on a une valeur de débit pour ce bin dbens = dbens + Sheets("Calcul debit").Cells(k, 36) 'on ajoute au débit total de l'ensemble concerné End If j = j + 1 Wend If Sheets("Donnees").Cells(i, 11 + 5 * a) <> -32768 Then Sheets("Calcul debit").Cells(k, 75) = Sheets("Donnees").Cells(i, 11 + 5 * a) 'On récupère flow direction End If If i = 1 Then If Sheets("Donnees").Cells(i, 12 + 5 * a) <> -32768 Then Sheets("Calcul debit").Cells(k, 76) = Sheets("Donnees").Cells(i, 12 + 5 * a) End If If Sheets("Donnees").Cells(i, 13 + 5 * a) <> -32768 Then Sheets("Calcul debit").Cells(k, 77) = Sheets("Donnees").Cells(i, 13 + 5 * a) End If Else If Sheets("Donnees").Cells(i, 12 + 5 * a) <> -32768 And Sheets("Donnees").Cells(i - 1, 12 + 5 * a) <> -32768 Then Sheets("Calcul debit").Cells(k, 76) = Sheets("Donnees").Cells(i, 12 + 5 * a) - Sheets("Donnees").Cells(i - 1, 12 + 5 * a) 'On récupère East displacement End If If Sheets("Donnees").Cells(i, 13 + 5 * a) <> -32768 And Sheets("Donnees").Cells(i - 1, 13 + 5 * a) <> -32768 Then Sheets("Calcul debit").Cells(k, 77) = Sheets("Donnees").Cells(i, 13 + 5 * a) - Sheets("Donnees").Cells(i - 1, 13 + 5 * a) 'On récupère North displacement End If End If k = k + 1 i = i + 1 If valid = True Then Sheets("Calcul debit").Cells(k, 36) = "Valide" firstval = True Else Sheets("Calcul debit").Cells(k, 36) = "Invalide" End If Sheets("Calcul debit").Cells(k, 70) = dbens 'on affiche le débit pour l'ensemble dbens = 0 Call ensemblesextrapoles(k) 'Séparer le débits des ensembles calculés du débit des ensembles extrapolés Wend End If Sheets("Calcul debit").Range("BC16").Calculate 'On détermine le signe de la moyenne des débits élémentaires If Sheets("Calcul debit").Range("BC16") < 0 Then 'On diffère le cas rive gauche de départ et rive droite de départ Sheets("Calcul debit").Range("K19") = Sheets("Donnees").Cells(1, 17 + 5 * Sheets("Donnees").Cells(1, 1)) Sheets("Calcul debit").Range("K22") = Sheets("Donnees").Cells(1, 18 + 5 * Sheets("Donnees").Cells(1, 1)) Else Sheets("Calcul debit").Range("K22") = Sheets("Donnees").Cells(1, 17 + 5 * Sheets("Donnees").Cells(1, 1)) Sheets("Calcul debit").Range("K19") = Sheets("Donnees").Cells(1, 18 + 5 * Sheets("Donnees").Cells(1, 1)) End If Call estimation_debit_non_mesure(gauche, droite) 'lancement de la procédure d'évaluation des débits sur les rives, en surface et au fond ivar = 5 Sheets("Calcul debit").Range("BS5").Calculate Sheets("Calcul debit").Range("BT5").Calculate Do Until Sheets("Calcul debit").Cells(ivar, 1) Sheets("Calcul debit").Range("K13") And Sheets("Calcul debit").Cells(ivar + 1, 1) "" Sheets("Calcul debit").Cells(ivar, 78).Calculate 'On termine les calculs liés aux angles et aux sections Sheets("Calcul debit").Range("CA5").Calculate Sheets("Calcul debit").Range("CB5").Calculate Sheets("Calcul debit").Range("CA8").Calculate Sheets("Calcul debit").Range("CA11").Calculate Sheets("Calcul debit").Cells(ivar, 84).Calculate Sheets("Calcul debit").Cells(ivar, 83).Calculate Sheets("Calcul debit").Cells(ivar, 82).Calculate Sheets("Calcul debit").Cells(ivar, 81).Calculate Sheets("Calcul debit").Cells(ivar, 85).Calculate Call sensecoulement(ivar, gauche, droite) Sheets("Calcul debit").Cells(ivar, 88).Calculate Sheets("Calcul debit").Cells(ivar, 89).Calculate Call signevitesse(ivar) Sheets("Calcul debit").Cells(ivar, 92).Calculate Sheets("Calcul debit").Cells(ivar, 93).Calculate Sheets("Calcul debit").Range("CA14").Calculate Sheets("Calcul debit").Range("CA17").Calculate Sheets("Calcul debit").Range("CA20").Calculate Sheets("Calcul debit").Range("CA23").Calculate Sheets("Calcul debit").Range("CA26").Calculate Sheets("Calcul debit").Range("CA29").Calculate ivar = ivar + 1 Loop For l = 54 To 63 Sheets("Calcul debit").Cells(5, l).Calculate 'calcul forcé des résultats finaux Next Sheets("Calcul debit").Cells(9, 55).Calculate Sheets("Calcul debit").Cells(9, 56).Calculate Sheets("Calcul debit").Range("BC12").Calculate Sheets("Calcul debit").Range("BC14").Calculate Sheets("Calcul debit").Range("BL5").Calculate Sheets("Calcul debit").Range("BM5").Calculate Sheets("Calcul debit").Range("BP28").Calculate Sheets("Calcul debit").Cells(5, 63) = Sheets("Donnees").Cells(e, 6) 'on récupère le débit total Call nbensemblesinvalides 'On calcule le nombre d'ensembles invalidés Sheets("Calcul debit").Range("BF13").Calculate End Sub Quelques autres procédures assez longues : Sub VEarth(i) Dim East, Beast As Double Dim North, Bnorth As Double Dim Up, Bup As Double Dim Error, Berror As Double East = Sheets("Calcul debit").Cells(i, 3) North = Sheets("Calcul debit").Cells(i, 4) Up = Sheets("Calcul debit").Cells(i, 5) Error = Sheets("Calcul debit").Cells(i, 6) Beast = Sheets("Calcul debit").Cells(i, 7) Bnorth = Sheets("Calcul debit").Cells(i, 8) Bup = Sheets("Calcul debit").Cells(i, 9) Berror = Sheets("Calcul debit").Cells(i, 10) If East <> -32768 And North <> -32768 And Up <> -32768 And Error <> -32768 And Sheets("Calcul debit").Cells(i, 1) <> "" Then Sheets("Calcul debit").Cells(i, 14) = East Sheets("Calcul debit").Cells(i, 15) = North Sheets("Calcul debit").Cells(i, 16) = Up Sheets("Calcul debit").Cells(i, 17) = Error If Abs(Error) <= Sheets("Calcul debit").Cells(7, 11) Then Sheets("Calcul debit").Cells(i, 18) = "OUI" Sheets("Calcul debit").Cells(i, 19) = Up Else Sheets("Calcul debit").Cells(i, 18) = "NON" Sheets("Calcul debit").Cells(i, 19) = "" End If Else Sheets("Calcul debit").Cells(i, 14) = "" Sheets("Calcul debit").Cells(i, 15) = "" Sheets("Calcul debit").Cells(i, 16) = "" Sheets("Calcul debit").Cells(i, 17) = "" Sheets("Calcul debit").Cells(i, 18) = "" Sheets("Calcul debit").Cells(i, 19) = "" End If If Beast <> -32768 And Bnorth <> -32768 And Bup <> -32768 And BT4 <> -32768 And Sheets("Calcul debit").Cells(i, 1) <> "" Then Sheets("Calcul debit").Cells(i, 21) = Beast Sheets("Calcul debit").Cells(i, 22) = Bnorth Sheets("Calcul debit").Cells(i, 23) = Bup Sheets("Calcul debit").Cells(i, 24) = Berror If Abs(Berror) <= Sheets("Calcul debit").Cells(8, 11) Then Sheets("Calcul debit").Cells(i, 25) = "OUI" Sheets("Calcul debit").Cells(i, 26) = Bup Else Sheets("Calcul debit").Cells(i, 25) = "NON" Sheets("Calcul debit").Cells(i, 26) = "" End If Else Sheets("Calcul debit").Cells(i, 21) = "" Sheets("Calcul debit").Cells(i, 22) = "" Sheets("Calcul debit").Cells(i, 23) = "" Sheets("Calcul debit").Cells(i, 24) = "" Sheets("Calcul debit").Cells(i, 25) = "" Sheets("Calcul debit").Cells(i, 26) = "" End If End Sub Sub Calcul_dQprec(i, l, c) 'Calcul du debit, si ensemble invalides, on recupere la vitesse d avant les ensembles invalides Dim ivar As Integer ivar = i If Sheets("Calcul debit").Cells(i, 1) <> "" Then If Sheets("Calcul debit").Cells(i, 25) "NON" Or Sheets("Calcul debit").Cells(i, 21) "" Then Sheets("Calcul debit").Cells(i, 36) = "BAD" Else While Sheets("Calcul debit").Cells(ivar, 36) <> "Valide" And ivar > 5 'On recule jusqu a trouver un ensemble précédent valide ivar = ivar - 1 Wend ivar = ivar - 1 Do 'On recule encore pour se placer au début de l'ensemble If Sheets("Calcul debit").Cells(ivar, 36) "Valide" Or Sheets("Calcul debit").Cells(ivar, 36) "Invalide" Then Exit Do If ivar <= 5 Then Exit Do ivar = ivar - 1 Loop If ivar > 5 Then ivar = ivar + l 'On redescend pour se placer à la meme hauteur d'eau que celle de l'ensemble suivant If Sheets("Calcul debit").Cells(ivar, 30) <> "" Then Sheets("Calcul debit").Cells(i, 36) = Sheets("Calcul debit").Cells(ivar, 30) * Sheets("Calcul debit").Cells(i, 33) * Sheets("Calcul debit").Cells(i, 35) Else 'If Sheets("Calcul debit").Cells(ivar, 18) = "NON" Then 'On ne provoque l'extrapolation sur les bins que si le bin est invalidé et WT error ... If Sheets("Calcul debit").OptionButton4.Value = True Then 'Si le bin n'a pas de valeur de vitesse, on va les chercher sur les bins sup ou inf Call Calcul_dQsup(ivar, i) Else If Sheets("Calcul debit").OptionButton5.Value = True Then If l = c Then 'si et seulement si on a atteint le fond de la rivière Call Calcul_dQinf(ivar, i) End If Else If Sheets("Calcul debit").OptionButton6.Value = True Then If l = c Then 'si et seulement si on a atteint le fond de la rivière Call Calcul_dQmoyvert(ivar, i) End If Else If l = c Then 'si et seulement si on a atteint le fond de la rivière Call Calcul_dQcomp(ivar, i) End If End If End If End If 'Else 'Sheets("Calcul debit").Cells(i, 36) = "BAD" 'End If End If Else Sheets("Calcul debit").Cells(i, 36) = "BAD" End If End If Else Sheets("Calcul debit").Cells(i, 36) = "" End If End Sub La procédure estimation_débits_non_mesure repère en gros la procédure d'évaluation une deuxième fois une fois les données en place.

ucfoutu · Answer

Bien !
on va commencer par la première procédure.
C'est quoi, tous ces "calculate" ? Tu as bourré ta feuille de formules ?
Tu as empêché quelque-part dans ton code le calcul automatique ?

Par ailleurs : tu veux travailler sur des tableaux dynamiques ? ===>>
et le premier a pour limites celles fixées par :
While i - 1 <e alors que i commence à  et e e = Sheets("Calcul debit").Range("K13").value  (sil te plait : précise .Value)
Travaille alors sur le tableau toto = Sheets("Donnees").usedrange
Kif-kif en ce qui concerne l'utilisation d'un tableau dynamique pour ce qui est de ta feuille calcul.debit

Mais surtout : l'examen de ce code montre de graves défauts d'analyse, puis de conception. Tu aboutis alors forcément ainsi à une espèce d'usine à gaz, tout naturellement !
Et je ne crois pas que l'utilisation d'un autre langage azpporterait à ce code, tel qu'il est, une véritable amélioration.
Si tu penses que le fait que d'autres langages t'obligerait à utiliser des tableaux dynamiqyues, bé ===>> crée de suite sous vba les deux tableaux dynamiques suivants (grossier et pouvant être affiné) :

dim tablo1, tablo2
tablo1 = Sheets("Donnees").usedrange
'et
tablo2 = Sheets("calcul.debit").usedrange

et tu les auras, tes deux tableaux dynamiques complets (bien trop, même). et ils contiendront toutes les données de tes deux feuilles.

Ah ... mais tu vas bien évidemment être "un peu embêté" avec les formules dans les cellules ? Ouais ? Et dis-moi, alors : tes "formules Excel" , tu ne les aurais pas, non, avec un autre langage ? 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Atraxor · Answer

Alors :

- J'ai en effet bloqué le calcul automatique sur la feuille, pour éviter de perdre du temps de calcul

- J'utilise en effet calculate car certaines opérations sont effectuées sous excel plutôt qu'avec VB, mais je devrais pouvori les reprendre sans problèmes sous VB s'il le faut (il me manquera juste une procédure simple poru calculer sous vb la somme ou la moyenne d'une colonne d'un tableau)


Code Visual Basic :While i - 1 <ealors que i commence à et e e = Sheets("Calcul debit").Range("K13").value (sil te plait : précise .Value) 
Travaille alors sur le tableau toto = Sheets("Donnees").usedrange 
Kif-kif en ce qui concerne l'utilisation d'un tableau dynamique pour ce qui est de ta feuille calcul.debit 



Je n'arrive pas trop à comprendre le sens de ta phrase.

La procédure usedrange sert, si je comprend bien, à délimiter la taille d'une feuille excel en fonction des premières et dernières cellules. Quel rapport avec l'utilisation d'un tableau dynamique ?

Je n'ai rien contre l'utilisation de vb pour les calculs hein : ça me serait même beaucoup plus pratique si je n'utilisais les feuilles excel que pour l'affichage. L'ennui c'est qu'il me faut en gros un tableau de même type que celui que j'utilise, que je n'aurais besoin d'afficher qu'une fois les calculs terminés, et qui maximise le temps de calcul.

Pour les problèmes de conception je veux bien, je n'ai jamais prétendu être programmeur, par contre si c'est simplement pour me faire comprendre "ça marche pas bien parceque le code est tout pourri" ça ne fait pas trop avancer le schmilblick.

ucfoutu · Answer

C'est surtout la conception, qui n'est pas adéquate et qui rend même très malaisée la compréhension de ce qui est fait (et donc inévitablement de la maintenance !)
Je dois t"'avouer que j'ai cherché à comprendre et ai vite abdiqué (tournis).
On va donc essayer différemment :
Parle-nous de ce que tu as au départ dans chaque feuille (les données uniquement, sans nous dire à quoi elles correspondent et qui ne nous regarde point).La structure de chaque feuille, quoi (et rien d'autre)
Parle-nous ensuite des calculs que tu as à faire (à partir de quelles données et sur quelle feuille en résultat). fais-le avec clarté.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Atraxor · Answer

Un topo plus complet sur le programme :

(Données de bases à traiter : on peut le résumer comme un tableau de points sur lesquels s'appliquent diverses données et dont la hauteur des colonnes est variable. Les points forment des entités appelées "cellules" et les colonnes des entités appelées "ensembles")

Fiche Données : les données de base sont formatées de manière à ce qu'une ligne  regroupe toutes les infos sur chaque cellule qui la compose (on se décale d'une colonne sur cette ligne chaque fois qu'on descend d'une cellule sur l'ensemble)

Fiche Calcul debit : organisée de manière plus lisible par l'utilisateur. Une ligne correspond cette fois à une cellule, pour lesquels on va effectuer différents calculs. On change de ligne lorsqu'on passe à la cellule suivante, et on saute une ligne lorsqu'on passe à l'ensemble suivant.

Point important : on considère qu'on ne connait pas d'avance le nombre d'ensembles et surtout le nombre de cellules par ensembles. Il est en effet difficile de récupérer ce nombre

La structure de cette fiche : 

- Le premier jeu de colonne récupère des données contenues dans la fiche "données" et les met en forme sur 8 colonnes. Ces données, variables pour chaque cellules, vont former les données brutes du calcul .

- Sur le second jeu de colonnes on récupère les données du premier jeu en en supprimant certaines suivant différents critères (ex : lorsque les données brutes renvoient -32768, c'est qu'on a touché le fond de la rivière : on ne récupère pas les cellules en dessous) puis on effectue certains calculs dessus

-Sur le troisième jeu on effectue des caluls dépendants du second jeu de colonnes.

Pour ces trois jeu de colonnes on effectue les calculs ligne par ligne : cad le programme part de la colonne de gauche , effectue les calculs pour les jeux de colonnes 2 puis 3 avant de passer à la colonne suivant.

-Le jeu de colonnes 4 nécessite que les calculs précédents aient été effectués pour toutes les cellules (toutes les lignes). Même structure que les colonnes précédentes : dès que tous les calculs sont terminés pour les jeux 1 à 3 on effectue les calculs à partir de la première ligne puis on descend.

-Le jeu 5 nécessite que le jeu 4 ai été totalement calculé, même structure.

-On inscrit les résultats finaux de ces calculs dans des cellules séparées.

Deux boutons sur cette feuille :

-Le premier pour charger les données depuis un fihcier ASCII vers la feuille "Donnees" avec un contrôle de type commondialog.

-Le second pour récupérer ces données dans la feuille "calcul débit"

Une série d'option buttons permet de modifier les paramètres de l'éxécution

Fiche "Calcul incertitudes" :

Le principe est d'effectuer l'opération "calcul debit" sur plusieurs fichiers différents, et pour chaque fichier suivant différents paramètres (10 variations)

Deux boutons :

-Le premier pour charger les ficheirs ASCII dans des feuilles identiques à "Donnees"

-Le second pour lancer le calcul : pour un fichier on transfert les données vers la feuille "Donnees", on effectue l'oprétion "Calcul debit "pour ce fichier, on inscrit les résultats dans la feuille "Calcul incertitudes", on change un paramètre et on recommence pour ce fichier de données, etc... jusqu'à ce que tous les paramètres aient été étudiés, puis on passe au fichier suivant ... En moyenne on va effectuer 60 fois l'opération "Calcul débit"

Fiche "Résultats incertitudes"

On fait quelques derniers calculs à partir des résultats affichés sur la feuille "Calcul incertitudes", puis on affiche les résultats sous forme de tableaux et de diagramme.

Voici, grossièrement expliqué, en quoi consiste le programme.

Atraxor · Answer

Je me permet de upper mon post, étant donné qu'à l'heure qu'il est je n'ai toujours pas trouvé de solutions à mon problème.

De plus en comparant les temps de calculs dans les cas de formules excel, de calculs en vb reportés directement dans le tableur et de calcul fais dans un tableau dynamique qui est ensuite recopié dans le tableur, je ne constate pas de différence confondante.

Pire la dernière solution semble la plus lente.

Une idée pour ne pas avoir à changer de langage ?

ucfoutu · Answer

Bonjour,

ce sont les explications que tu as données qui ne permettent pas de t'orienter, de t'aider !

y "arrivent" des "jeux de colonne" dont on se demande ce que c'est, ce que tu entends par là !
Dépose sur un site ad-hoc une image de chaque "fiche" en y montrant (dessine par dessus) ce que tu entends par tes explications. Montre aussi les données de départ et les résultats attendus
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Atraxor · Answer

Bonjour.

Je répond encore une fois en retard, ce qui n'est pas trés poli et je m'en excuse.

J'ai résolu le problème lié que je croyais lié au temps de calcul : celui ci n'est pas trés différent entre un calcul direct sur le tableur et un calcul en pur code vba.

En revanche ce qui est trés gourmant en temps, c'est l'affichage des résultats dans le tableur (même sans utiliser le calcul automatique des cellules !) : en effet en effectuant tous les calculs sur un tableau vba plutôt que sur le tableur, puis en superposant ce tableau à la feuille de calcul, je m'aperçois que c'est bien cette étape qui prend le plus de temps .

La solution est simplement de ne pas afficher les résultats entre deux changements de paramètres d'entrée pour le programme qui effectue séquentilelement une centaine de calculs.

Je passe ainsi d'1h à 3 min ...

En vous remerciant pour votre aide, malgré les explications peu claires que j'aie pu fournir.

De VBA vers un autre langage

13 réponses

Votre réponse

Discussions similaires