[VBA-E]Prise en compte ligne suivant condtition multiple

Bonjour

Bon dernière question je l'espère. :cry:

Bon j'ai calculer ma liste d'avion en conflit, je doit maintenant effectuer un tri sur celle si, ne prendre que les éléments réellement en conflit à un temps donnée

Code:

---

1 2 3 4 5 6

n_cot time flight1 flight2 1 29282 BAG42V GWI284 2 29582 SAS1592 DAT72E 3 29738 HLX3122 UAL740 4 29924 DLH4AF DLH3PR

---

ma feuille4 qui contient la liste des avions en conflits 2 à 2, et le moment ou ils sont en conflits

Code:

---

1 2 3 4 5 6 7 8 9 10

0,018268489 DLH4AF GWI284 1 28818 0,010635191 DLH4AF UAL740 1 28818 0,018237496 DLH4AF GWI284 1 28824 0,010691347 DLH4AF UAL740 1 28824 0,018206545 DLH4AF GWI284 1 28830 0,010598958 DLH4AF UAL740 1 28847 0,018081827 DLH4AF GWI284 1 28853 0,010480541 DLH4AF UAL740 1 28853 ...

---

ma feuille Result
ou mes calculs sont mis, et ou je odit trié mes éléments.
Vous me direz, simple, on prend le premier nom..., mais non, sa marche pas

Il faut conserver les lignes qui ont les meme série d'avions que sur la feuille4
et conserver les lignes dui on un valeur de temps en feuille Result, compris entre Time et Time-1200, de la feuille4
bien sur en corélation avec la série d'avion correspondante

Merci

Bonjour,

Qu'est-ce que tu as fait pour le moment ? On a besoin de code pour t'aider, on est pas là pour faire ton travail à ta place ...

A+ avec du code

Théo

Pour l'instant, je n'est pas le code de cette parti, c'est plutot une idée que je recherche

Je suis parti sur une double boucle
Qui tourne autour de mes élément de ma feuille4, et qui compare si j'ai les 2 valeurs identiques, si oui, je copie la ligne sur une autre page
j'utilise alors derlig, pour déterminer la dernière ligne et je copie a derlig+1
je passe au autre valeur
...

Sa devrais fonctionner je pense

Si quelqu'un a une autre idée, je suis prenneur

J'ai réussi a faire un code qui tien la route, mais je pense trop long pour etre mis sur le forum

Par contre j'ai un problème lors de l'exploitation des résultats

Je compte mes avions différents après avoir effectuer un tri et effacer les doublons, mais quand il ni as pas d'avion sur ma page, erreur, il me renvoi 1
alors que je devrais avoir 0

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'Nb a/c par tranche sur C-P Dim derlignea As Long Dim derligneb As Long Dim derlignec As Long   derlignea = wZ.Cells(65536, 1).End(xlUp).Row derligneb = wZ.Cells(65536, 2).End(xlUp).Row derlignec = wZ.Cells(65536, 3).End(xlUp).Row   DE.Cells(t + 1, 3).Value = derlignea DE.Cells(t + 1, 4).Value = derligneb DE.Cells(t + 1, 5).Value = derlignec

---

Que faire pour obtenir 0 si pas de valeur
il faut que je mette quoi, que je verifie que derlignea soit "" ?

Merci

Sinon, je pense que dire que 1 = 0 sur ma page de résulats, c'est possible
MAis le code????? reste un mystère pour moi

Une boucle sur me feuille, et si valeur =1 je met 0

c'est sa

Code:

---

1 2 3 4

DE.Cells(t + 1, 3).Value = derlignea If DE.Cells(t + 1, 3).Value = 1 Then DE.Cells(t + 1, 3).Value = 0 End If

---

petite modif du code est sa roule

J'ai fini se foutu boulot pour la NASA :yaisse:

Qui c'est les meilleurs, les frenchi, on a encore montré a ses foutu ricains qui sont les meilleurs.

:lahola:


vive le france :france:

Merci a tous les membres du Forum, pour leurs aides

Meci

sinon tu pe te pencher sur la fonction find et dès des que tu trouve un 1 tu met 0.
et pour ne pas te tromper dans le cas ou tu aurais des 1 qu'il ne faut pas effacer tu pourrais faire une condition avant de remplacer le 1

genre:

Code:

---

1 2 3 4 5 6 7 8 9

'lance ton find   'selectionne la case qu'il a trouvé   'remplace le 1 if (condition pour ne pas effacer des 1 important) then selection.value=0 end if

---

mais il me semble qu'avec un find tu pe remplacer directement en plus de trouver

Je ne peut pas avoir, le résultat 1

fessant une détermination du nombre d'avion en conflit
c'est 0/2/3/....
le 1 est impossible

Mais merci quand meme

Et voila 2 semaines de vacances pour moi, enfin vacance en boulot, pas de chef, et j'ai fini mon taf.

Quel bonheur, Surtout quand son chef qui fait de la programmation, vous dit qu'il faut 2 semaines à un programmeur pour faire ces programmes, et que moi, qui ne suis pas du tout programmeur, je n'ai mis qu'une semaine.

Grace a vous tous bien sur

Merci