Calcul de somme sous condition en VBA Fermé

Question

Bonjour a tousJe suis tout nouvo alors bonjour tous le monde.Je travail actuellement sur un simulateur de controle aérien, et j'ai quelque problème avec mon VBA, énormément. J'ai débuter le VBA, il y a 2 semaines.Bon voila mon problèmeJe doit déterminer le nombre d'avion ayant un changement par période de 2 minutes.https://www.cjoint.com/?hrkqNxXF6Vvoila pour l'instant le début de mon programme VBAPour cela je doit déterminer quelque conditionregarder si mon avion est bien compris dans l'interval de temps, regarder si c'est un avion du secteur aérien pris en compte, la sa va pour le moment, sa j'ai réussi.Maintenant la partie qui bloque le plus pour moi.Je doit déterminer combien d'avion ont eu un changement de +ou- 15°sur la colonne Det en faire la somme, des avions bien sur(le prog que j'ai fai, j'ai pluto l'impression qu'il somme les dégré lui)je doit donc determiner si mon avion a eu cette modification, et vérifier que cette modification est bien celle de cette avionTBS_EW FS 16:44:15 _ 85TBS_EW FS 16:44:20 _ 75TBS_EW FS 16:44:25 _ 73TBS_EWC FS 16:44:25 _ 85TBS_EW FS 16:44:30 _ 61TBS_EWC FS 16:44:30 _ 75TBS_EW FS 16:44:35 _ 49TBS_EWC FS 16:44:35 _ 73La sur cet exemple l'avion TBS_EW a eu une varion supérieur a 15°TBS_EWC a eu aussi une variation, mais pas de 15°Donc 1 avion iciLe problème que je rencontre c'est comment faire pour mettre en place ces conditions, et avec l'itération, quand on passe a la deuxième ligne, vérifier que l'avion sur lequel les calculs sont fait, n'a pas déja été pris en compte.donc quand on ai en ligne 2, on verifie que le nom de l'avion n'est pas le meme que les lignes précédentes, et ainsi de suiteligne 4, on regarde ligne3,ligne2, ligne1...Merci

Armojax · Answer

Hello superbaptbapt,En VBA, tu peux faire un truc de ce genre :- trier tes lignes sur n° avion (colonne A) / angle (colonne D) (et l'heure en second peut-être ? à toi de voir)- balayer tes lignes : pour un avion donné, noter la valeur d'angle de début et fin- voir si la différence est >= 15 ou <= -15- remettre tes lignes dans le bon ordre.Pour éviter les mouvements d'écran, tu mets unApplication.ScreenUpdating = Falsedevant ton premier tri , et tu remets à True après le 2ème.Avant de trier tes lignes, numérote-les dans une colonne inutilisée, de façon à les retrier sur ce critère pour les remettre dans l'ordre initial.Y'a sûrement d'autres façons de faire... Celle-là est facile à décrire.

superbaptbapt · Answer

Facile en théorie oui J'ai commencé le VBA, il y a 2 semaines, pour moi c'est un peu flou la. 'Heading Change Dim z As Range, y% Dim cel As Range, c% Range("G2:G" & Range("G65536").End(xlUp).Row).Select Selection.ClearContents For p = 2 To Range("B65536").End(xlUp).Row For Each z In Range("E2:E" & i + 1) If Cells(p, 3).Value >= Range("E" & z.Row).Value Then If Cells(p, 3).Value < Range("F" & z.Row).Value Then If Cells(p, 2).Value = "FS" Then For q = 2 To Range("A65536").End(xlUp).Row For Each cel In Range("A2:" & Cells(q, 1).Address(0, 0)) ' regarde si variation de +15°/-15° If Cells(q, 4).Value <= Range("D" & cel.Row).Value - 15 Or Cells(q, 4).Value >= Range("D" & cel.Row).Value + 15 Then If Cells(p, 1).Value = Cells(q, 1).Value Then Cells(cel.Row, 7).Value = Cells(cel.Row, 7).Value + 1 Exit For End If End If Next cel Next q End If End If End If Next z Next p Voila ma macro, mais elle ne me donne pas du tout les bonnes valeurs. Je pense,qu'elle me calcul la somme des angles ou il y a eu un changement

Armojax · Answer

Re,Regarde si ça te convient :https://www.cjoint.com/?hroRJ7MkuOC'est la macro Avions. Résultats dans Feuil2.P.S. J'ai oublié un Plage.Cells.Clear pour virer la numérotation des lignes pour le tri...

Armojax · Answer

C'est tout à fait ça : en mettant C2 au lieu de D2 tu auras le critère Temps dans ton tri.Pour la copie de colonnes, voici un petit code simple :Sub CopieCols()  ' copie des colonnes C à F de Feuil1  ' dans Feuil3 à partir de la colonne G  Sheets("Feuil1").Activate  Columns("C:F").Copy  Sheets("Feuil3").Select  Columns("G:G").Select  ActiveSheet.Paste  Range("A1").Select  End Sub

superbaptbapt · Answer

Dernier renseignementJe vien de revoir les calculscomment modifier les formules, pour qu'il prenne en compte la valeur min ou max, et non la dernière valeurCar qaund on prendTBS_EW initial 85TBS_EW final 29on obtient -59, c'est justemais la valeur min que l'on a c'est TBS_EW min 26et on obtient alors -56Le sytème va donc tomber sur un os, si la valeur initial est égale à la valeur final.Il va donc dire, qu'il n'y a pas eu de changementA moins que se soit juste pour connaitre le nombre final après toute les modifications, alors dans se cas, c'est moi qui me trompe

Armojax · Answer

Me rev'là... j'avais à vaquer un peu...Donc je gère le Min et le Max, et calcule la déviation avec (Max-Min).Regarde si ça fait ce que tu veux.https://www.cjoint.com/?hrs0oRogoC

superbaptbapt · Answer

Bonjour ArmojaxC'est quasiment sa,j'avais fait une erreur d'explication, c'est entre 2 valeurs, que je doit déterminer si il y a eu un changement.Ce que je veu savoir c'est s'il y a eu une variation de plus de 15 degre a un moment?valeur initial 85valeur2 75valeur3 60entre valeur inital et valeur2, on a 10, donc pas de changement conséquent.par contre entre valeur2 et valeur3, on a 15, d'ou changement.le programme doit alors arreter, compter un changement, et passer a l'avion suivant.Sa doit déja etre mieu expliqué la.Sinon, j'ai remarqué queque chose, quand je modifie la valeur de TBS_EW, l'avion TBS_EWC change aussi, il prenne toujours les meme valeurs alors que ce n'est pas le meme avions?bizardmerci

Armojax · Answer

Bonjour superbaptbapt,Une nouvelle mouture, que j'espère plus conforme...https://www.cjoint.com/?hskcSMTB7QDonc là, on constate l'écart de 15° entre deux valeurs successives, et non pas entre un Min et un Max.Je suis surpris pour ce que tu dis de TBS_EW et TBS_EWC...Tiens-moi au courant... Mais je dois m'absenter un peu dans la matinée.

superbaptbapt · Answer

Tout compte fait, la macro avec la difference entre max et min, convient a mes supérieurs.Par contre j'aimerai rajouter quelque ligne de code, mon système se fesant entre interval de temps et secteur donnée.For r = 2 To Range("B65536").End(xlUp).Row    For Each a In Range("E2:E" & I + 1)        If Cells(r, 3).Value >= Range("E" & a.Row).Value Then        If Cells(r, 3).Value < Range("F" & a.Row).Value Then            If Cells(r, 2).Value = "FS" Thenqui me permet de savoir si mon avion est dans tel interval ou un autre et dans le secteur FSest'il possible de les rajouter

superbaptbapt · Answer

https://www.cjoint.com/?hsk7dzhSCzje vien de modifier la macro, pour quel le tri se fasse en feuil2 et les résultats en 3mais comment ajouter le temps et le secteuret retirer que lorsque je lance ma macro prog, le temps se  mette sur la feuille 2faut'il que je lui disse, copie le prog temps sur la feuille x

Armojax · Answer

J'ai modifié :- Feuil1 ne bouge pas- la liste triée se trouve dans Feuil2- les résultats sont dans Feuil3J'ai adapté les 2 macros :- EcartMinMax : écarts entre Mini et Maxi- EcartsConsec : écart entre deux mesures consécutivesComme ça tu as le choix.Dans ta macro prog, j'ai rajouté Application.ScreenUpdating en début et fin, pour éviter la mise à jour écran.J'espère qu'on progresse... Je ne maîtrise pas vraiment ton sujet, évidemment...https://www.cjoint.com/?hsoB2m0NC6

superbaptbapt · Answer

Bonjour ArmojaxDésolé de ne pas avoir pu répondre plus tot, le réseau de toute l'entreprise a des ratés.Ne tend fait on progresse très vite, pour cet algorithme.Je t'explique, plus en détail, tu est en train de m'aider a développer un algorithme fourni par la NASA (pour de vrai), et oui c'est possible.Je te donne leur algorithme_Heading Change.The number of aircraft that made a heading change of greater than 15 degrees during a 2-minute interval.Et voila comment on devient la plus grande puissance mondial, pas d'explication. Il faut donc analyser, et faire les bons choix.Par contre, je rencontre déja des problèmes avec cjoint, est oui page excel de 2.80 MO, un peu trop grosMaintenant, se qu'il faut rajouter, c'est l'élément 2 minutes, sur l'ensemble des valeurs, la première page que j'ai fourni ne contenant que les valeurs du premier interval.https://www.cjoint.com/?htiytqPUL3la j'ai mis ma nouvelle macro, j'ai tou mis sur une meme page VBA, sa évite d'éffacer les anciennes valeurs, et les opérations se font maintenant dans l'ordre que je veux.https://www.cjoint.com/?htiFENcEkket la, la page complete de donnéePar contre je n'est pas mis encore les résultats.J'ai essayer de mettre en place les modifications sur le balayage sur une période et sur un secteur.Mais étant données que je n'est pas encore, fait les résultats.Pour les résultats, je ne les veu plus en page 3, mais en 2, a la suite, en colonne H.Tu vera en lancant la macro, sa devrais se mettre en place.Merci de ton aide

superbaptbapt · Answer

Ne serait'il pas possible de mettre l'affichage des résultats dans la boucle de balayageEntre next b et next cmettreSheet("Feuil2").Cells(c,8).Value=J-2le sytème ne devrais t'il pas alors calculer la bonne valeur.Enfin, j'ai essayer, mais sa na pas fonctionné, j'ai des -2 partout

superbaptbapt · Answer

https://www.cjoint.com/?htj0xPu5UTAvec cette page, c'est un peu plus facile, j'ai retirer énormément de valeur.Et je n'est pris que 2 interval de temps.J'ai mis les valeurs théoriques que l'on doit obteniren couleur

superbaptbapt · Answer

Il y a une modification a faire dans le code, mais meme avec sa je n'arrive pas a avoir les résultatsFor c=2 To Range("C65536")....C au lieu de B

superbaptbapt · Answer

-le nombre d'avions présents dans un secteur, par tranches de 2 minutes : en faut-il la liste, ou seulement le nombre ? juste le nombre, la liste est inutile- les avions pour lesquels on a décelé une déviation de 15° au moins (mesurée entre le Mini et le Maxi), et ce indépendamment des tranches de 2 minutes. en ce qui concerne les déviations, il faut le faire par tranche de 2 minutescomme indiqué sur le dernier exemple que j'ai jointles valeurs en G, c'est le nombre de fois ou il y a eu un changement des paramètres avions, sur un secteur voulu

Armojax · Answer

Bon, j'ai une nouvelle propale avec un fichier complet.Jette un oeil et dis-moi si on touche au but.https://www.cjoint.com/?htoaSNsrrS

superbaptbapt · Answer

Quasiment, par contre la debut des heures, doit etre un nombre en 00 a la fin, et non pas la première valeur que j'oraila colonne A et B sont inutile, je penseil y est affiché la valeur max-min?

superbaptbapt · Answer

Je vien d'essayer sur mon classeur1https://www.cjoint.com/?htosTxCx30le système ne prend qu'un interval de16:44:15	4:46:14 PMalors que je devrais avoir de 16:44:00 à 16:46:00ou 16:44:00 à 16:45:59, afin de ne pas avoir aprendre ne compte 2 fois les avions qui serait sur une valeur justede plus, le nombre d'avion calculer en H, correpond au nombre d'avion dans le secteur qui est différent du nombre d'avion ayant eu un déviationNombre4etNombre d'avions : 3	Avion	AngleEFL41	41TBS_EW	45TBS_EWC	59il faudrait mettre le "Nombre d'avions" a la place de l'autre en H

superbaptbapt · Answer

J'ai vérifier les valeurs sur celui que tu m'as envoyerdeTranche	Début	Fin	Nombre			1	4:44:15 	4:46:14       8le nombre réel est 7et sur celui de toute a l'heure, la calcul donne 4, alors qu'on devrait avoir 3Il y a peut etre besoin de retirer 1.Je vai voir en comptant la période 2

superbaptbapt · Answer

je vien de regarder les résultats, pour savoir si c'était juste une erreur de 1Mais 1	4:44:15 	4:46:14  	82	4:46:15      4:48:14       1010 est le nombre d'avion sur l'intervalle nombre d'avion ayant eu une déviation est 73 avion n'ayant pas eu l'ecart suffisanton peut garder la colonne donnant le nombre d'avion pour les sources, et savoir sur tant d'avion, il y a en eu tand qui on eu la déviation.Mais il faudrait mettre en colonne I, le nb a/c ayant eu une déviation, la sytème métant lui en A1le nombre d'avion au total sur tout les intervals, ayant eu cet déviation

superbaptbapt · Answer

Pour explication voila se qu'il faudrait faire pour la mise ne formeGarder les colonnes EFGH pour les mettres en ABCD, étant donnée, qu'après d'autre résultats seront a y ajouter.de plus pour la déviationentre 16:44:00 à 16:45:59  calcul déviation correspondante en E2entre 16:46:00 à 16:47:59  calcul déviation correspondante en E3 a chaque fois il faut calculer la déviation correspondante a l'intervalJ'ai regardé la script VBA, plus en détail, il faudrait peut etre ajouter un boucle comme pour le calcul du nombre d'avion par trancheDe plus, quand tout ceci sera fini, et fonctionnera comme sur des roulettes grace a ton aide. Il me faudra ton "nom", juste pour mettre dans les remerciements et explication du programme.Et oui toute personne aidant doit etre cité, sauf si tu ne souhaite pas.

Armojax · Answer

Hello,J'ai pu m'y remettre un peu ce soir...https://www.cjoint.com/?htxD1rBDICJ'ai donc modifié la présentation, en échangeant les colonnes.Dans la version précédente, la liste des avions devait être bonne. Par contre, pour la répartition par tranches horaires, je prenais la totalité des avions. Pfff... j'ai modifié ça.Je me suis dit aussi que quand un avion passe de 357° à 5°, ça fait un écart énorme, mais en fait la déviation est minime. J'ai donc pris une option : si l'écart est > 345°, on laisse tomber, parce qu'en fait ça fait moins de 15°, en sens inverse. Dis-moi si ça colle.J'ai rétabli le calcul du temps initial pour avoir une minute juste.Je pars vendredi, et demain j'ai pas mal de chats à fesser, comme on dit chez moi.A+

superbaptbapt · Answer

Je vien d'essayer avec mon classeur1, pour vérifier, les calculs montre un problèmele système recopie sur le feuille3 et les met par période, mais en feuille2, les interval vont de 16:44:00 à 16:45:59alors que sur le feuille3,ils vont de 16:44:00 à 16:46:00EFL41	FS	16:46:00	319	1TBS_EW	FS	16:44:15	85	1TBS_EW	FS	16:44:20	75	1TBS_EW	FS	16:44:25	73	1TBS_EW	FS	16:44:30	61	1TBS_EW	FS	16:44:45	55	1TBS_EW	FS	16:46:00	40	1TBS_EWC	FS	16:44:25	85	1TBS_EWC	FS	16:44:40	47	1TBS_EWC	FS	16:44:45	49	1TBS_EWC	FS	16:46:00	26	1EFL41 ne devrais pas etre sur cet interval, mais en 2tout comme une ligne de TBS_EW et TBS_EWCde plus en D, c'est donc le nombre d'avion présent par tranche de 2 minutesen E et F, le nombre d'avion ayant eu un changement.se nombre et réaliser pour l'ensemble des cellules de temps, alors qu'il le fodrait sur le intervalsdonc calculer le nombre de déviation sur 2 minuteset après on recalcul sur les 2 minutes suivantesen colonne Ele nom des avions n'est pas nécessaireMerci

superbaptbapt · Answer

J'ai modifié ces lignes pour que le tri se fasse sur les memes intervals que les résultats.Le nombre d'avion en D, est juste maintenant.With FD    .Rows(1).Copy    Range("A1").Select    ActiveSheet.Paste    Derlig = .Cells(65536, 1).End(xlUp).Row    J = 1    HDeb = Int(.Cells(2, 3).Value * 3600) / 3600    HFin = HDeb + TimeValue("00:01:59") * NbTr    For I = 2 To Derlig      If .Cells(I, 2).Value = Secteur _      And .Cells(I, 3).Value <= HFin Then        J = J + 1        .Rows(I).Copy        Cells(J, 1).Select        ActiveSheet.Paste        Cells(J, 5).Value = Int(((Cells(J, 3).Value - HDeb) / TimeValue("00:01:59")) + 1)      End If    Next  End WithPar contre, il ne reste plus qu'a calculer le nombre de déviation par interval

superbaptbapt · Answer

Le nombre en D, c'est le nombre d'avion ayant eu une déviation?Je vien de faire le test, c'est a ni plus rien comprendre pour moi.Alors tout compte fait, c'est bon, par contre j'aimerais supprimer les lignes E et F, pour les remplacer par le nombre d'avion présent sur l'intervalet le nombre d'opération qu'il y a eu sur l'interval'Order NumberDim a As Range, w%Range("G2:G" & Range("G65536").End(xlUp).Row).SelectSelection.ClearContentsFor r = 2 To Range("B65536").End(xlUp).Row    For Each a In Range("E2:E" & X + 1)        If Cells(r, 3).Value >= Range("E" & a.Row).Value Then        If Cells(r, 3).Value < Range("F" & a.Row).Value Then            If Cells(r, 2).Value = "FS" Then                Cells(a.Row, 7).Value = Cells(a.Row, 7).Value + 1                Exit For            End If        End If        End If    Next aNext rPar contre, le nombre d'avion présent sur le secteur par interval, tu l'avais fait, le code y est encore sur le VBA, mais il ne s'affiche pasmerci

superbaptbapt · Answer

Tout compte fait, ordre number, je n'arrive pas a le mettreétant donné que certain éléments sont sur la feuil1, les autre devant etre mis sur la feuil2Ti cout de main, pleaseMerci

superbaptbapt · Answer

Y as bien un problème sur la déviationIl compte bien le nombre d'avion et la met dans la case correspondante pour l'interval, mais quand il passe eu suivant, il compte toujours du début.Quand je prend 1 interval au lieu des 10j'ai1	16:44:00	16:45:59	5quand j'en prend 21	16:44:00	16:45:59	62	16:46:00	16:47:59	8pour 31	16:44:00	16:45:59	52	16:46:00	16:47:59	83	16:48:00	16:49:59	8petite problème je penseje devrai avoir 5 et pour l'autre 6

superbaptbapt · Answer

Bon j'ai encore regardé en détailEn colonne D, tu calcul le nombre d'avion par périodeet non pas le heading changeque tu fait en globale est non pas par interval de temps

superbaptbapt · Answer

J'ai remis le nombre d'avion par interval en Den retirant la ligne 'If Déviation > 180 Then Déviation = Déviation - 360le nombre d'avion présent par interval devient le bonmais sur 10 interval, les valeurs seront les bonnesmais si je met 1 interval, c'est parti le délireTranche	Début	Fin	Nb a/c	5					Avions	Angles1	16:44:00	16:45:59	5	AIRONLY	27				EFL41	29				FOL1111	27				TBS_EW	109				TBS_EWC	107il y a bien 5 déviationmais si je met 10 interval1	16:44:00	16:45:59	72	16:46:00	16:47:59	103	16:48:00	16:49:59	104	16:50:00	16:51:59	9et la 7 est bien le nombre d'avion par inteval, tout comme 10 pour le suivant...Je ne comprend plus du tout

superbaptbapt · Answer

Merci de ton aide ArmojaxEst bonne vacance, je pense

superbaptbapt · Answer

Il y aurait une méthode, afin d'obtenir les bons résultats.Lors du calculs du heading par interval, il serait nécessaire d'ajouter des conditions initiales aux intervals suivants.C'est a dire ajouter en condition initials, la dernière valeur de chaque avions, afin de faire les comparaisons.Cela évitant de faire une comparaison avec 0, s'il n'y a qu'un seul terme.Donc il faut reprendre les dernières valeurs de chaques avions, pour chaque interval, et les mettres comme conditions initials, et ainsi de suiteTBS_EW	FS	16:44:15	85	TBS_EW	FS	16:44:20	75	TBS_EW	FS	16:44:25	73	TBS_EW	FS	16:44:30	61	TBS_EW	FS	16:44:45	55	TBS_EW	FS	16:46:00	40	TBS_EW	FS	16:46:05	57	TBS_EW	FS	16:49:00	40	la on a les conditions global, par interval, on a TBS_EW	FS	16:44:15	85	TBS_EW	FS	16:44:20	75	TBS_EW	FS	16:44:25	73	TBS_EW	FS	16:44:30	61	TBS_EW	FS	16:44:45	55	pour le premier, on effectue le calculTBS_EW	FS	16:44:45	55    valeur ajouté,cond initialTBS_EW	FS	16:46:00	40	TBS_EW	FS	16:46:05	57pour la seconde périodeTBS_EW	FS	16:46:05	57   valeur ajoutéTBS_EW	FS	16:49:00	40pour la troisième....mais ne sait pas faire, comme d'habitudeSinon, on m'a dit qu'il serait possible de le faire par tableau, mais ?Merci

Calcul de somme sous condition en VBA

32 réponses

Discussions similaires