Bonjour à tous.

Je vous présente mes meilleurs voeux pour 2017.

Il ya un an et demi j'avais déposé sur ce forum un fichier Excel pour le décodage d'une trace en réponse à la recherche de Mcriaz, quelque temps après petite modification pour Jéro qui désirait supprimer les temps d'attente avant décollage, il y a quelques semaines c'est l'ami Gilbert_VE voulait décoder la trace pour en extraire la Vz.

Je lui ai proposé mon classeur et après de nombreux échanges d'email, et de très agréables conversations il a travaillé avec beaucoup de passion à l'enrichissement du classeur par l'ajout d'un superbe graphique.
Quelques boutons, cases à cocher, quelques formules, quelques macros, enfin je vous en passe, quelques modifications, quelques modifications, et encore quelques modifications.

Aujourd'hui je vous propose une nouvelle version avec de nombreuses améliorations si vous désirez analyser, nettoyer et enregistrer vos traces ce fichier peut être un outil utile.

Décoder un fichier trace de VFR v3.3.5 (EXCEL 2007)

Prenez le temps de lire la feuille Infos.
Faites des essais avec une copie d'un de vos fichiers trace (mais le fichier d'origine n'est pas modifié).

Ce n'est qu'un travail d'amateur, mais j'espère qu'il vous plaira.

Bonne consultation de vos traces

Régis.

Bonjour et bonne année

Les utilisateurs de VFR sont gâtés : la V4 non beta et un fichier excel pour décoder les traces. Je n'ai pas encore eu le temps de l'essayer (je dois aller bosser), mais je ferai un retour dès que je l'aurai essayé.

Merci à Regis, comme à Olivier pour le travail effectué.

Bon vols

EM

Bonsoir,
Il semblerait qu'il y a un problème à l'ouverture du fichier.
Avez-vous un message, une fermeture d'Excel ou un blocage ?
J'ai fait ce fichier avec Excel 2007 et de mon côté tout roule.
Merci.
Régis

Bonjour,

Ca fonctionne pour moi (excel 2007) !

Je l'ai modifié pour inclure la prise en compte du GUND :

Sub Message1()
Range("A1").Select
ActiveSheet.Shapes("Bouton Ouvrir").visible = False
ActiveSheet.Shapes("Bouton Décoder").visible = True 'False
ActiveCell.FormulaR1C1 = _
" Modifiez éventuellement votre vitesse de décollage"
Application.ScreenUpdating = True
Temp = MsgBox("Choisisez votre vitesse de décollage" & vbCr & vbCr _
& "Et cliquez sur le bouton 'Décoder la trace'" & vbCr _
& "Ce processus peut être long selon " & vbCr _
& "la vitesse de décolage et la taille de la trace" & vbCr _
& "Indiquez la valeur du GUND (0 ou -45)", vbOKOnly + vbDefaultButton1 + vbExclamation, " Décodage de la trace ")
Application.ScreenUpdating = False


End Sub

Sub Effacement_Lignes_Vitesse()
'
Application.ScreenUpdating = False

Application.Goto Reference:="Val_GUND"
Gund = ActiveCell.Value

Application.Goto Reference:="Vitesse_de_décollage"
Vitesse = ActiveCell.Value

If Vitesse = "0" Then
MsgBox " Indiquez une vitesse de décollage SVP " & vbCr & _
" ou " & vbCr & _
" Rechargez un autre fichier", vbOKOnly + vbDefaultButton1 + vbExclamation, "Aucune vitesse à " & Vitesse_Kmh & " Km/h"
ActiveSheet.Shapes("Bouton Décoder").visible = True
ActiveSheet.Shapes("Bouton Ouvrir").visible = True
Range("K1").Select
End
End If
'atteindre la derniere cellule de la collone E
Columns(5).Find("*", , , , , xlPrevious).Offset(0, 0).Select
derniereligne = ActiveCell.Row 'dernière ligne
derL = derniereligne
For N = derL To 2 Step -1
If Gund <> "" Then
Valtemp1 = Range("D" & N).Value + Gund
Range("D" & N) = Round(Valtemp1, 0)
End If


If Range("E" & N).Value < Vitesse Then Rows(N).Delete
Next
ActiveWindow.ScrollRow = 1
Range("A2").Select

End Sub

et la feuille1


et j'ai nommer la cellule T1 "Val_GUND"

Bon vols

EM

Bonjour Pegase_87,
Merci pour votre retour,
effectivement on peut prendre en compte la valeur du GUND, mais si je ne l'ai pas fait c'est que pour certain les tablettes appliquent déjà une correction et pour ceux qui entrerons une petite valeur le temps de décodage est augmenté pour un résultat qui perso ne me semble que peu important dans mon utilisation.
à chacun de voir selon sa recherche, mais dans la pratique ça marche encore merci.

Bonjour,

Je trouve bizarre d'être décalé de 150 ft du sol quand je visionne la trace sur google earth (je roule trop haut, comme ils disent dans le vol de l'intruder) Et j'aime bien le faire pour chaque vol.

Il y aurait moyen d'améliorer la performance en mettant un test si la valeur du gund est renseigné à 0, dans le cas ou c'est déjà corrigé dans la trace.

Bon, normalement demain matin je vol, de bonne heure et de bonne humeur !

Eh vive les RTT (j'en profite tant que ça existe)

Bon vols à toutes et tous

EM