Boucle multiple avec condition multiple en VBA

[baptbapt]

Bonjour a tous

Voila j'ai des gros problème pour le réalisation de cette nouvelle macro de simulation que j'essaye de sollutionner pour des algorithmes de la NASA.

Problème, il ya télemment de boucle, que j'arrive meme pas a faire la première, télement j'ai de condition différentes.
J'ai donc simplifier la chose afin de commencer au plus simple, puis de le faire passer au général, mais je bloque toujours.

J'ai énormément simplifier la page

J'ai le temps que j'utilise en référence en J
A partir de celui si, je travail et je fait mes comparaison sur cette unique plage.

Donc tand que J est de la meme valeur je continu, quand J change je change d'avion pour mes comparaison

Les comparaisons se font entre F et H
donc je compare F a toute les valeurs de H, H correspondant au meme nombre que J

Et je fait tout mes calculs

 lati = DegToRad * Cells(i, 2).Value / 10000
        latj = DegToRad * Cells(j, 2).Value / 10000
        loni = DegToRad * Cells(i, 3).Value / 10000
        lonj = DegToRad * Cells(j, 3).Value / 10000
        cj = Cos(latj)
        ci = Cos(lati)
        sj = Sin(latj)
        si = Sin(lati)
        cij = Cos(loni - lonj)
        GDist = MetresToNm * EarthRadius * Abs(Arcos((si * sj) + (ci * cj * cij)))
        'FLDiff=Abs(Cells(j,1).value-cells(i,1).value)
        ADiff = Abs(Cells(j, 1).Value - Cells(i, 1).Value) * 100 / FeetToNm
        ADist = Sqrt((GDist * GDist) + (ADiff * ADiff))

et ensuite je vérifie si ADist<5
si oui, je met le nom de l'avion en F et H correspondant, je passe à la valeur de H suivante
.....

Voila mon problème, je sais les explications, sont peut etre un peu vague, je suis la pour plus de détail

Merci

 

[Creepy]

Re : Boucle multiple avec condition multiple en VBA

Hello le Forum, BaptBapt,

Rien compris non plus comme Isa !! lol

Merci d'être plus claire

Creepy

 

[baptbapt]

Re : Boucle multiple avec condition multiple en VBA

Je sais meme pour moi c'est un peu incomprehensible

AFR1271	        AFR1271	DD	8:00:12
		LIL470	FE	8:00:12
		DLH4AF	FL	8:00:12
		LOT261	HM	8:00:12
BAW770G		BAW770G	DD	8:00:12
		BAW843	HM	8:00:12
		DAT61N	DD	8:00:12
				08:00:15

On regarde le temps
puis on prend le premier avion, et on le compare avec tout les autres avion de la colonne suivante compris dans le meme temps, et on regarde si <5

quand on a comparer avec toute les valeur, on passe a l'avion suivant, et on fait de meme

quand on comparer tout les avions, on passe au temps suivant