XL 2016 Décoder message via VBA

MURET31

XLDnaute Nouveau
Bonjour le forum
Ayant toujours trouvé de l’aide sur ce forum, je reviens cette fois-ci avec un nouveau sujet, en effet je cherche via une macro VBA à décoder le message ci-dessous:



081544Z 0818/0824 23015KT 9999 SCT020 TN18/2608Z TX26/2617Z BECMG 0822/0824 29007KT 5000 BECMG 0906/0908 35005KT 7000 BKN020 PROB30 TEMPO 0912/0914 19010KT 9999 OVC010 TEMPO 0922/0924 12005KT =



La façon dont je souhaiterais le décoder par VBA:


081544Z 0818/0924 23015KT 9999 SCT020 TN18/2608Z TX26/2617Z =
Groupe1
Date issued= 08JUIN
Time issued = 15h44
Date de début de validité = 08JUIN
Heure de début de validité = 18h00
Date de fin de validité = 09JUIN
Heure de fin de validité = 24h00
wind=230
Force=15
Visibility=9999

BECMG 0822/0824 29007KT 5000=
Groupe2
BECMG
08Juin
22h00
08Juin
24h00
wind=290
Force=07
Visibility=5000

BECMG 0906/0908 35005KT 7000 BKN020 =
Groupe3
BECMG
09Juin
06h00
09Juin
08h00
wind=350
Force=05
Visibility= 7000
Ceiling= 2000 (BKN020 = 20x100=2000)

PROB30 TEMPO 0912/0914 19010KT 9999 OVC010 =
Groupe4
PROB30 TEMPO 0912/0914 19010KT 9999 OVC010 (message non décodé car le groupe commence par PROB30 TEMPO)

TEMPO 0922/0924 12005KT =
Groupe5
TEMPO
09Juin
22h00
09Juin
24h00
wind=120
Force=05

Le groupe 1 commence toujours de la même manière « Date, Time of issue, heure etc... » le groupe 1 s’arrête dès qu’il y a un mot clé (voir ci-dessous)

Les mots-clés suivants annoncent à chaque fois un changement de groupe « BECMG ou PROB40 ou PROB30 ou PROB30 TEMPO ou PROB40 TEMPO ou TEMPO ou FM »

Dans les groupes ci-dessous, deux doivent être ignorés « PROB30 TEMPO et PROB40 TEMPO », donc inutile de les décoder.

Voir plus haut: dans l’exemple ci-dessus le Groupe4 n’a pas été décodé.

Par avance merci beaucoup.

Bien cordialement
MU
 
Dernière édition:

MURET31

XLDnaute Nouveau
Bonjour,
Et désolé pour ma réponse tardive, je viens de voir votre proposition.
Je la teste et reviens vers vous rapidement.
Merci infiniment.
MU
 

Discussions similaires


Haut Bas