Discussion :

[baptbapt]

Bonjour a tous, encore une belle journée qui s'annonce.

Bon maintenant revenons au sujet de départ.
J'ai maintenant une macro qui crée des pages supplémentaires, et qui copie dessus les éléments correspondants aux tranches correspondantes.

Les tranches, sont en réalitée, des plages horaires de 2 minutes.

Afin de pouvoir réaliser mes calculs, il faudrait que j'ajoute des variables sur chacune de mes feuilles suppplémentaires (Attender, je vous explique).

Ces variables sont en réalitées les derniers avions de chaques pages précédentes, qu'il faut copier sur la suivante, à la suite des éléments correspondant au tranche.

En exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
TBS_EW	FS	0,697395833	85	1
TBS_EW	FS	0,697453704	75	1
TBS_EW	FS	0,697511574	73	1
TBS_EW	FS	0,697569444	61	1
TBS_EW	FS	0,697743056	55	1
TBS_EWC	FS	0,697511574	85	1
TBS_EWC	FS	0,697685185	47	1
TBS_EWC	FS	0,697743056	49	1
XF4	FS	0,697916667	300	1
XF4	FS	0,698148148	315	1

ma feuille 4, tranche 1, la première feuille, qui va me servir ici de source de départ.

Voila les données qu'il faut récupérer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
TBS_EW	FS	0,697743056	55	1
TBS_EWC	FS	0,697743056	49	1
XF4	FS	0,698148148	315	1

les dernièrés caractéristiques de chaques avions.

et les copier en feuille5

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
AIRONLY	FS	0,698668981	315	2
AIRONLY	FS	0,699305556	316	2
EFL41	FS	0,698611111	319	2
EFL41	FS	0,698668981	360	2
TBS_EW	FS	0,698611111	40	2
TBS_EW	FS	0,698668981	57	2
TBS_EWC	FS	0,698611111	26	2
TBS_EWC	FS	0,698668981	70	2
XF4	FS	0,699305556	300	2
TBS_EW	FS	0,697743056	55	1
TBS_EWC	FS	0,697743056	49	1
XF4	FS	0,698148148	315	1

Voila mon problème, ceci jusqqu'a la valeur NbTr

[illight]

Voila les données qu'il faut récupérer

Code :
TBS_EW FS 0,697743056 55 1
TBS_EWC FS 0,697743056 49 1
XF4 FS 0,698148148 315 1

Comment tu le sais que c'est ça qu'il faut récupérer ? c'est par rapport à ta tranche de 2 minutes la ? elle apparait ou ?

[baptbapt]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Citation:
Voila les données qu'il faut récupérer
 
Code :
TBS_EW FS 0,697743056 55 1
TBS_EWC FS 0,697743056 49 1
XF4 FS 0,698148148 315 1

Comment je sais, car c'est la dernière ligne pour chaque nom d'avion, c'est au simple que sa, sur le papier bien sur.

[baptbapt]

J'ai réussi, a obtenir se que je veu, par contre, maintenant j'ai de gros problème pour la mise en place sur les feuilles (a la suite des valeurs) et pour la boucle qui me permet de calculer ses memes valeurs mais sur les autre feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim I         As Long
    Dim J         As Long
    Dim Avion     As String
    Dim sector     As String
    Dim Tim     As Integer
    Dim Head    As Integer
  ' balayage des lignes et comptage des avions concernés
  J = 0
  I = 2
  Sheets("Feuil2").Cells.ClearContents
  Avion = Range(Cells(I, 1), Cells(I, 1)).Value
  sector = Range(Cells(I, 2), Cells(I, 2)).Value
  Tim = Range(Cells(I, 3), Cells(I, 3)).Value
  Head = Range(Cells(I, 4), Cells(I, 4)).Value
  Do While Cells(I, 1).Value <> ""
    If Cells(I, 1).Value <> Avion Then
        J = J + 1
        Sheets("Feuil2").Cells(J, 1).Value = Avion
        Sheets("Feuil2").Cells(J, 2).Value = sector
        Sheets("Feuil2").Cells(J, 3).Value = Tim
        Sheets("Feuil2").Cells(J, 4).Value = Head
      Avion = Cells(I, 1).Value
      sector = Cells(I, 2).Value
      Tim = Cells(I, 3).Value
      Head = Cells(I, 4).Value
    End If
    I = I + 1
  Loop
    J = J + 1
        Sheets("Feuil2").Cells(J, 1).Value = Avion
        Sheets("Feuil2").Cells(J, 2).Value = sector
        Sheets("Feuil2").Cells(J, 3).Value = Tim
        Sheets("Feuil2").Cells(J, 4).Value = Head

Bon la les résultats se font en feuille2.
Problème les valeurs de temps ne s'affiche pas 0:00:00 ou 1

[ouskel'n'or]

Quel est ton problème ?
J'ai compris l'histoire du dernier avion (tu récupères, pour chaque avion la dernière ligne dans laquelle l'avion apparaît)
Mais je n'ai pas vu d'explication sur le problème

[ouskel'n'or]

ma macro me donne la ligne initial et non pas la dernière ligne ou apparait l'avion

Ben oui !
Dans ces lignes, tu stockes les données du premier avion différent rencontré. Or tu veux la dernière ligne de cet avion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
    If Cells(I, 1).Value <> Avion Then
        J = J + 1
        Sheets("Feuil2").Cells(J, 1).Value = Avion
        Sheets("Feuil2").Cells(J, 2).Value = sector
        Sheets("Feuil2").Cells(J, 3).Value = Tim
        Sheets("Feuil2").Cells(J, 4).Value = Head
      Avion = Cells(I, 1).Value
      sector = Cells(I, 2).Value
      Tim = Cells(I, 3).Value
      Head = Cells(I, 4).Value
    End If

Au moment ou l'avion change, tu dois récupérer les données de la ligne précédente et mémoriser le nom de l'avion de la ligne courante
Si tu ne comprends pas, tu dis

[baptbapt]

Alors la, non je ne te suis plus du tout.

Le nombre d'avion type,non je ne le connais pas du tout.
Et sinon ma macro fonctionne, mais elle devrais me mettre la dernière valeur de I, et non pas la première.

I c'est l'avion, tand que I=I+1 c'est qu'on a le meme avion, sinon J+1
et on passe au prochain avion

Moi ce que je veu c'est cette valeur de I, la dernière

Sinon, autre chose pour la mise en place de ma boucle, et oui pour le faire sur tout mes pages.
Si je copie, il va m'effacer mes données que j'avais copié avant, comment faire pour copier à la suite, car je copie à partir de J, faut-il dire que J= dernière valeur non nul
et je copie en J+1?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Je suis sur le cul!!

[ouskel'n'or]

Tu réponds à qui ?

[baptbapt]

Au 2!

Comment mémorisé la ligne courrante?

et MemoEncours vers MemoPrec ?

[SfJ5Rpw8]

ta macro fonctionne (peu-être...) mais tu recommence à me faire des boucles de partout... tu as déjà une boucle qui parcours toutes les lignes de ton fichier source utilise la... !


pour copier mémo en cours vers mémo prec..:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub testTransfert()
 Sheets("MemoPrec ").Cells.ClearContents
 Sheets("MemoPrec ").Cells.Value = Sheets("MemoEncours ").Cells.Value
 Sheets("MemoEncours ").Cells.ClearContents
End Sub

on peu peu-être limité la plage.. supposant par exemple un maxi de 100 avions tu remplace cells par Range("A1:F100")

[baptbapt]

Bon si j'ai bien compris, pour ne pas avoir énormément de boucle et vu que tu veu pas que j'en mette, je le dirais à ma mère de toute façon, tu est méchant avec moi bbil, va le dire, va me plaindre au modérateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
'Copie des données de la tranche x à la feuille x+3
 Dim wS As Worksheet 'Feuille source
 Dim wD As Worksheet 'Feuille destination
 'Affecte les feuilles sources/destination (de la copie)
 Set wS = Sheets("Feuil3")
 
For t = 1 To NbTr
Set wD = Sheets("Feuil" & 3 + t)
 J = 1
 'Determine derniere ligne fichier source
 Derlig = wS.Cells(65535, 5).End(xlUp).Row 'Derniére ligne rempli colonne 5 fichier source
 If Derlig < 2 Then
   MsgBox "Aucune données ", vbCritical
   Exit Sub
 End If
 ' Boucle sur lignes fichier source
 For I = 2 To Derlig
   If wS.Cells(I, 2) = Secteur And wS.Cells(I, 5) = t Then
     'Copie ...
     wD.Rows(J).Value = wS.Rows(I).Value
     J = J + 1
   End If
 Next I
 Set wD = Nothing
Next t
 
'balayage des lignes et comptage des avions concernés
    Dim Avion     As String
    Dim sector     As String
    Dim Tim     As Integer
    Dim Head    As Integer
 
  J = 0
  I = 1
  Sheets("Feuil2").Cells.ClearContents
  Avion = Range(Cells(I, 1), Cells(I, 1)).Value
  sector = Range(Cells(I, 2), Cells(I, 2)).Value
  Tim = Range(Cells(I, 3), Cells(I, 3)).Value
  Head = Range(Cells(I, 4), Cells(I, 4)).Value
  Do While Cells(I, 1).Value <> ""
    If Cells(I, 1).Value <> Avion Then
        J = J + 1
        Sheets("Feuil2").Cells(J, 1).Value = Avion
        Sheets("Feuil2").Cells(J, 2).Value = sector
        Sheets("Feuil2").Cells(J, 3).Value = Tim
        Sheets("Feuil2").Cells(J, 4).Value = Head
        Avion = Cells(I, 1).Value
        sector = Cells(I, 2).Value
        Tim = Cells(I, 3).Value
        Head = Cells(I, 4).Value
    End If
    I = I + 1
 
  Loop
    J = J + 1
        Sheets("Feuil2").Cells(J, 1).Value = Avion
        Sheets("Feuil2").Cells(J, 2).Value = sector
        Sheets("Feuil2").Cells(J, 3).Value = Tim
        Sheets("Feuil2").Cells(J, 4).Value = Head
 
  Application.ScreenUpdating = True

Je doit mettre le deuxième partie de la macro dans la première, juste après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Copie ...
     wD.Rows(J).Value = wS.Rows(I).Value

il prendra donc en compte la dernière feuille pour les calculs, enfin je crois

et a la place de feuill2, je wD+1, feuille d'après.

Par contre je crois que sa va m'écraer se qu'il y avait d'écrit.

[SfJ5Rpw8]

déjà rajoute 2 variable Worksheet .. "pointant" sur tes feuilles Memoprec,MemoEncours.... ensuite à chaque changement de type d'avion d'en fichier source (wS..) .. tu recherche le type précèdent.. (mémorisé dans une variable chaine stTypePrec qui en plus te permet de détecter le changement de type) .. dans le fichier MeMoEnCours.. s'il existe tu écrase ses données.. sinon tu place la ligne précédente dans le fichier memoEncours..//

[baptbapt]

la va falloir que tu me montre, je comprend plus du tout.

[SfJ5Rpw8]

tiens un coup de pouce ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

'Copie des données de la tranche x à la feuille x+3
 Dim wS As Worksheet 'Feuille source
 Dim wD As Worksheet 'Feuille destination
  Dim stMemo As String
 'Affecte les feuilles sources/destination (de la copie)
 Set wS = Sheets("Feuil3")
 
 stMemo = wS.Range("A2") 'Premier type d'avion
 
For t = 1 To NbTr
Set wD = Sheets("Feuil" & 3 + t)
 J = 1
 'Determine derniere ligne fichier source
 Derlig = wS.Cells(65535, 5).End(xlUp).Row 'Derniére ligne rempli colonne 5 fichier source
 If Derlig < 2 Then
   MsgBox "Aucune données ", vbCritical
   Exit Sub
 End If
 ' Boucle sur lignes fichier source
 For i = 2 To Derlig
   If wS.Cells(i, 2) = Secteur And wS.Cells(i, 5) = t Then
     'Copie ...
     wD.Rows(J).Value = wS.Rows(i).Value
     If wS.Cells(i, 1) <> stMemo Then 'ChangementDeType
         MemoLigne wS.Rows(i) ' Fonction MemoRisant ligne courante dans MemoEncours...
     End If
     J = J + 1
   End If
   
 Next i
 MemoLigne wS.Rows(i) ' Fonction MemoRisant ligne courante dans MemoEncours...
 'Rajout des lignes MemosPrecedent
 For Each r In Sheets("MemoPrec").Range("A1").CurrentRegion.Rows
     wD.Rows(J).Value = r.Value
     J = J + 1
 Next
 CopieMemoPrecMemoEncours ' Fonction de copie MemoPrecversencours..
 
 Set wD = Nothing
Next t
End Sub

reste 2 procédure à réaliser
- MemoLigne.. qui mémorise la ligne donnée en paramétre dans l'onglet MemoEncours..
- CopieMemoPrecMemoEncours : qui copie MemoEnCours dans MemoPrec (et efface MemoEncours..)

[baptbapt]

Meme la, j'ai encore, tu ni va pas en douceur bbil, met plus de vaseline

Je vien de modifier ma macro pour supprimer une des boucles, j'ai mis la macro qui crée les feuilles dans celle qui recopie par tranche.

Une boucle de moins déja.

Bon alors, ton exemple me permet de sauver mes résultats par tranche que j'ai copier, et me copie après les résulats de la suite de ma macro, qui sélectionne là dernière ligne de chaque avion, de la feuille précédente.

C'est sa

[SfJ5Rpw8]

désolé j'ai pas lu ton code et je continu dans mon idée.. (va bien falloir que tu sache ce qu'est une procédure.ou un fonction..) tiens voilà la fameuse procédure (sub) de mémorisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
'
 'Procédure mémorisaiton Ligne
 'Paramétre r = Ligne à mémoriser...
  Sub MemoLigne(r As Range)
   Dim i As Integer
   With Sheets("MemoEncours")
    i = 1
    While (.Cells(i, 1) <> "") And (.Cells(i, 1) <> r.Cells(1, 1))
     i = i + 1
    Wend
    .Rows(i).Value = r.Value
   End With
  End Sub

à toi de faire la procédure CopieMemoPrecMemoEncours... je crois que tu as déjà tous le code...

[baptbapt]

Moi qui voulais prendre ma fesé, j'ai été vilain

Bon ok, je vai voir pour le dernier, donc je part du code que j'ai.

sa ne gène pas si j'ai 2 sub dans meme macro?, mais j'en apprend tout les jours. C'est peut etre pour sa que j'ai mal au crane.

Bon je rajoute les lignes rouges sur celle de mémorisation, je met ensuite la procédure de mémorisation, puis le truc que tu me laisse faire.

Bon je me lance

[SfJ5Rpw8]

...
sa ne gène pas si j'ai 2 sub dans meme macro?, mais j'en apprend tout les jours. C'est peut etre pour sa que j'ai mal au crane.....

les procédures et fonctions permettent de découper le code et donc de le rendre plus lisible .. avec des fonctions ou procédure "à taille humaine" et non pas une grosse procédure qui fait tout en vrac..., cela doit-être bon pour le mal de crâne en te limitant à l'étude du code fonctions/fonctions.. il y en as moins à rentrer en même temps

[SfJ5Rpw8]

mais tu peu te limiter à un seul lancement... d'une seule macro qui appelle plusieurs procédures...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub MaMacro
  ProcedureRecuperationDonnee
  ProcedureMiseEnformeDonnee
...
en sub
 
Private Sub ProcedureRecuperationDonnee 'Avec private elle n'est pas dans liste des macros..
....
..;
end Sub
Private Sub ProcedureMiseEnformeDonnee
...
end Sub

...
Bon en revenant a mon code, pour la procédure.
....

de quelle procédure tu parle : CopieMemoPrecMemoEncours, tu la déjà écrite.. ?

[SfJ5Rpw8]

c'est quoi le code aprés .. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'balayage des lignes et comptage des avions concernés

s'il appartient à ta procédure principale.. Heading.. pourquoi as tu mis les 2 nouvelles procédures en plein milieu !...