XL 2016 Décoder message via VBA

[MURET31]

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

 

[vgendron]

Hello

Voir PJ pour essai.

 

[MURET31]

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